Pb dans ma macro?
Résolu
xav37300
Messages postés
52
Statut
Membre
-
xav37300 Messages postés 52 Statut Membre -
xav37300 Messages postés 52 Statut Membre -
Bonjour,
J'ai un fichier pour la gestion de personnel et J'ai un petit problème dans ma macro je pense que c'est a cause d'une une zone de sélection incorrect.
Je m'explique lorsque j'ouvre le formulaire en W2 et que je vais dans la case rechercher nom ,je ne retrouve pas 2 noms (SQF et GVEZGR) j'ai modifié plusieurs fois ce code:
Private Sub UserForm_Initialize()
I = 2
' Alimenter la liste des noms à l'initialisation du formulaire
For I = 4 To Range("A3").CurrentRegion.Rows.Count
Me.L_Choix_Nom.AddItem Cells(I, 1) & " " & Cells(I, 2)
Next I
Nouveau = True
' Placer le curseur dans le champ Nom
Me.T_Nom.SetFocus
End Sub
Mais soit, je perds tout soit il me manque des noms etc.....
Je vous joint le fichier afin de visualiser mon soucis
Merci de votre aide
https://www.cjoint.com/?DBjpmeIVfBp
J'ai un fichier pour la gestion de personnel et J'ai un petit problème dans ma macro je pense que c'est a cause d'une une zone de sélection incorrect.
Je m'explique lorsque j'ouvre le formulaire en W2 et que je vais dans la case rechercher nom ,je ne retrouve pas 2 noms (SQF et GVEZGR) j'ai modifié plusieurs fois ce code:
Private Sub UserForm_Initialize()
I = 2
' Alimenter la liste des noms à l'initialisation du formulaire
For I = 4 To Range("A3").CurrentRegion.Rows.Count
Me.L_Choix_Nom.AddItem Cells(I, 1) & " " & Cells(I, 2)
Next I
Nouveau = True
' Placer le curseur dans le champ Nom
Me.T_Nom.SetFocus
End Sub
Mais soit, je perds tout soit il me manque des noms etc.....
Je vous joint le fichier afin de visualiser mon soucis
Merci de votre aide
https://www.cjoint.com/?DBjpmeIVfBp
1 réponse
-
Bonjour,
une autre façon de faire, sans boucle :Private Sub UserForm_Initialize() ' Alimenter la liste des noms à l'initialisation du formulaire L_Choix_Nom.List = Range("A4").Resize(Cells(Rows.Count, 1).End(xlUp).Row - 3, 1).Value Nouveau = True ' Placer le curseur dans le champ Nom Me.T_Nom.SetFocus End Sub
Quand tu mets du code pense à le mettre en forme avec l'icone <>
eric
