Macro
Bonjour,
J'ai créé ma première macro en suivant les cours présents sur le site mais j'ai dû laisser une info de coté car je n'arrive pas à retrouver ma macro dans la liste.
J'ai bien quitté le mode création, ma macro est placée dans le dossier "Feuilles", je peux la lancer en passant par VBA
Sub UserForm_Initialize()
Dim Plage As String
With Sheets("Base_ET")
Plage = .Range("B2:B70" & .Range("A65536").End(xlUp).Row).Address
End With
ComboBox1.RowSource = "Base_ET!" & Plage
End Sub
Private Sub CommandButton1_Click()
Sheets("Calcul FL").Range("A1") = ComboBox1
Unload mon_userform
End SubMerci
Bonjour,
Peux-tu clarifier ton propos et d'où sort le code que tu cites ?
Il y a là deux procédures : la première (qui devrait être Private Sub UserForm_Initialize() et n'a donc pas été insérée normalement) initialise un Userform au chargement, la seconde déclenchée par un bouton (du même userform ?) opère une affectation et décharge le Userform.
Si ces deux procédures sont liées à Userform, elles doivent se trouver dans le module de code dudit Userform (sinon aucun effet à en attendre
Il te reste au moins à apprendre à indenter ton code (indenter n'est pas un luxe... !)
Cordialement.
Merci pour ta réponse, a priori je n'avait pas assez insisté sur mes recherches. Cela fonction maintenant, pour ce faire j'ai rajouter "Private Sub", j'ai créé un module pour l’exécution de la macro avec ce code :
Sub Liste_points()
mon_userform.Show vbModeless
End SubJ'ai ensuite créé un bouton sur ma feuille qui appelle la macro :
Private Sub CommandButton1_Click()
mon_userform.Show vbModeless
End SubMerci