Problème de bouton

Bonjour,

Pourquoi mettez-vous un espace devant et derriere les noms d'objets ???

    Set Ws = Sheets(" base ") 'Correspond au nom de votre onglet dans le fichier Excel
    With Me.ComboBox1
        For J = 2 To Ws.Range(" A " & Rows.Count).End(xlUp).Row
            .AddItem Ws.Range(" A " & J)
        Next J
    End With
    For I = 1 To 6
        Me.Controls(" TextBox " & I).Visible = True

ceci dans tout votre code !!!!!!!!
Vous n'avez que 6 textbox pas 7

Je ferme ce post

Voilà
https://www.cjoint.com/c/FEqqbbZE0Lw
Merci encore

Bonjour

Pouvez-vous nous joindre votre fichier anonymé?
Pour transmettre un fichier, il faut passer par un site de pièce jointe tel que cjoint.com

Va sur ce site : https://www.cjoint.com/
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse..
Cordialement

code bouton Sub eric()
UserForm1.Show "en jaune"
End Sub

Private Sub UserForm_Initialize() "ref f8 bug"
Dim J As Long
Dim I As Integer
ComboBox2.ColumnCount = 1 'Pour la liste déroulante Civilité
ComboBox2.List() = Array(" ", " M. ", " Mme ", " Mlle ")
Set Ws = Sheets(" base ") 'Correspond au nom de votre onglet dans le fichier Excel
With Me.ComboBox1
For J = 2 To Ws.Range(" A " & Rows.Count).End(xlUp).Row
.AddItem Ws.Range(" A " & J)
Next J
End With
For I = 1 To 7
Me.Controls(" TextBox " & I).Visible = True
Next I
End Sub

Merci

Bonjour
Sans votre code, pas possible de vous aider !!!!!