XL 2010 Fusionner des cellules à travers un userform

[ssonap]

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

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,

 

[Yaloo]

Bonsoir,
Avec un fichier c'est mieux.
A+
Martial

 

[ssonap]

Bonsoir,
Avec un fichier c'est mieux.
A+
Martial

Bonjour,

Merci de ta réponse,

En voulant créé un fichier exemple, excel a détecté un contenu illisible et l'a supprimé.
Maintenant mon code marche ??????
Bref, j'ai pas compris mais le problème n'était pas mon code.
Ci-joint mon message d'alerte pour info.

Merci d'avoir pris le temps de me répondre