Bonjour,
J'ai userform dans lequel j'ai inséré un combobox.
Lorsque je sélectionne ce combobox, je voudrais copier sa sélection dans une cellule d'un onglet et fusionner cette cellule avec 2 autres.
J'ai un code qui fonctionne en dehors de l'userform mais pas à travers le combobox.
Help please
Cordialement,
J'ai userform dans lequel j'ai inséré un combobox.
Lorsque je sélectionne ce combobox, je voudrais copier sa sélection dans une cellule d'un onglet et fusionner cette cellule avec 2 autres.
J'ai un code qui fonctionne en dehors de l'userform mais pas à travers le combobox.
Help please
Code:
Private Sub ComboBox1_Change()
Dim I As Integer
For I = 6 To 1000
If Cells(I, 7) = ComboBox1.Value Then
' Transfère données dans tableaux et mise en forme du texte
Sheets("test").Cells(I, 5) = ComboBox1.Value
'Sheets("test").Range(Cells(I, 5), Cells(I, 6)).Merge
Sheets("test").Cells(I, 5).HorizontalAlignment = xlLeft
End If
Next
Cordialement,