Problème de bouton
Résolu
eric2027
Messages postés
289
Date d'inscription
Statut
Membre
Dernière intervention
-
eric2027 Messages postés 289 Date d'inscription Statut Membre Dernière intervention -
eric2027 Messages postés 289 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Problème de bouton
- Bouton reinitialisation pc - Guide
- Diagnostic bouton photo - Accueil - Outils
- Bouton on/off comment savoir ✓ - Forum Matériel & Système
- Symbole arrêt marche - Forum Word
- Réinitialiser chromecast sans bouton - Guide
6 réponses
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
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour,
Pourquoi mettez-vous un espace devant et derriere les noms d'objets ???
ceci dans tout votre code !!!!!!!!
Vous n'avez que 6 textbox pas 7
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