Problème de bouton

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

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

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

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

Je ferme ce post

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