Re : création de planning
Déjà merci Bebere pour ta réponse.
J'ai testé un peu ta macro et elle bloque au niveau de equipe = combobox1
Private Sub CommandButton1_Click() 'valider
Dim ColEquipe As Byte, Cel As Range, Tbl
Dim DerLigne As Byte
If ComboBox1 = "" Then Exit Sub
equipe = ComboBox1
With Worksheets("Feuil1")
mois = .Cells(2, 2).Text
Set Cel = .Rows(1).Find(UCase(equipe))
If Not Cel Is Nothing Then
ColEquipe = Cel.Column
DerLigne = .Cells(50, ColEquipe).End(xlUp).Row
Tbl = .Range(.Cells(2, ColEquipe), .Cells(DerLigne, ColEquipe))
End If
End With
For Each Cel In Range("A6:X6")
If Cel.Text = mois Then
colmois = Cel.Column + 1
Exit For
End If
Next Cel
Cells(7, colmois).Resize(UBound(Tbl, 1), UBound(Tbl, 2)) = Tbl
End Sub
Pour le moment j'arrive pas à régler le problème, si tu peux jeter un oeil
merci