Re : Metre deux fichiers en un....
Bonsoir JONEY76
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
Sheets("ReqDerby").Cells.Delete
Sheets("ReqCotes").Cells.Delete
'Sheets("Rapport").Range("D4
" & Sheets("Rapport").Cells(Rows.Count, "D").End(xlUp).Row + 50).EntireRow.Delete
Call Get_CourseDate
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
ActiveSheet.ComboBox1 = "CHOISIR LA DATE"
End Sub
donc que faire...
Merci
amitiées
Guido