problème de bouton Résolu/Fermé

Question

Bonjour le Forum,
J'ai une macro mais j'ai un bug avec mon bouton, quand j'appuis sur ce dernier, j'ai UserForm1.Show en jaune qui me fait référence quand je fais f8 à, Private Sub UserForm_Initialize()
Pourriez m'expliquer ce bug sil vous plait
Par avance, merci
Cordialement

f894009 · Answer

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

eric2027 · Answer

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

jc80 · Answer

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

eric2027 · Answer

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

eric2027 · Answer

Je ferme ce post

f894009 · Answer

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

Problème de bouton

6 réponses

Discussions similaires