Bonjour,
j'avoue que je n'ai pas tout compris.
Bon pour faire dans l'ordre:
je n'ai pas trouvé le code qui remplis la combo zone_semaine. donc voici celui que je te propose
Sub remplir_combo_semaine()
With Sheets("Planning")
'détermine la dernière ligne utilisé de la colonne A
dercel = .Range("A" & Rows.Count).End(xlUp).Row
'boucle sur les cellules des la colonne A
For x = 4 To dercel
'si la cellule est fusionnée
If .Range("A" & x).MergeCells = True Then
nblig = .Range("A" & x).MergeArea.Rows.Count 'met dans une variable le nombre de ligne fusionnée
If nblig = 1 Then 'si il y a une ligne
rec.Zone_Semaine.AddItem .Range("A" & x).Value 'je met dans ma combo la valeur de cette cellule
Else
x = x + nblig - 1 'sinon je passe à la prochaine cellule
End If
End If
Next x
End With
End Sub
ensuite tu sélectionnes une semaine dans la combo, un responsable dans l'autre et tu appuies su "rechercher". Que doit faire le bouton rechercher?