Pb dans ma macro?

Résolu/Fermé
xav37300 Messages postés 46 Date d'inscription mercredi 18 décembre 2013 Statut Membre Dernière intervention 4 septembre 2019 - 9 févr. 2014 à 15:19
xav37300 Messages postés 46 Date d'inscription mercredi 18 décembre 2013 Statut Membre Dernière intervention 4 septembre 2019 - 9 févr. 2014 à 18:49
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

A voir également:

1 réponse

eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 214
9 févr. 2014 à 15:42
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
0
xav37300 Messages postés 46 Date d'inscription mercredi 18 décembre 2013 Statut Membre Dernière intervention 4 septembre 2019
9 févr. 2014 à 18:49
Merci beaucoup c'est super cela fonctionne
Merci de ton aide
je marque comme résolu!
0