Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force.
Apprenez, échangez, progressez – et tout ça gratuitement !
👉 Inscrivez-vous maintenant !
Apres avoir fais glisser touts les feuilles dans l'autre classeur
et que j'appuie sur le bouton de commande un debogage s'affiche...
Private Sub CommandButton1_Click()
Voici la macros....
Private Sub CommandButton1_Click()
'Bouton - Listes des Courses
Dim Cel As Range
With Range("B10:R12,B14:U33")
.ClearContents
.Font.Bold = False
.Font.ColorIndex = 0
End With
Range("B35:U550").Clear
With ActiveSheet
.ComboBox1.Clear
.ComboBox2.Clear
.ComboBox1 = "TRAITEMENT EN COURS"
.ComboBox2 = "CHOISIR LA RÉUNION"
.ComboBox2.Visible = False
End With
With Sheets("ReqDate")
For Each Cel In .Range("A2:A" & .Cells(Rows.Count, 1).End(xlUp).Row)
ComboBox1 = Cel
If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Cel
Next Cel
End With
Il faut insérer une forme sur la feuille
Clic droit, affecter une macro, nouvelle
Copier la macro en question, le code ci dessus
Coller dans le module
enlever le private sub command button1 et ne garder qu'un seul end sub
- Navigue sans publicité - Accède à Cléa, notre assistante IA experte Excel... et pas que... - Profite de fonctionnalités exclusives Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel. Je deviens Supporter XLD