Discussion :

[Antemix]

Re-bonjour,

Je reviens avec mon fichier de base de donnée pour la suite de mes problèmes.

Dans un autre topic, j'avais demandé comment mettre les noms et prénom de tous mes employés dans une liste déroulante.
Maintenant j'aimerai que, après avoir sélectionné un employé, on puisse cliquer sur le bouton Modifier et qu'il affiche dans les case de l'userform suivant, toutes les informations nécessaires inscrites dans la ligne de l'employé.

Merci d'avance pour vos réponses !

Antemix

[Philippe Tulliez]

Bonjour,
Si tu utilises le contrôle ComboBox pour afficher des données (Nom et prénom par exemple) et si tu affiches la liste de toutes les données de la première à la dernière, alors utilise la propriété ListIndex qui te renvoie le n° de la ligne sélectionnée dans la liste (0 étant la première).
Il suffit alors de faire une simple addition arithmétique entre le numéro de la ligne de la première cellule avec la valeur renvoyée par ListIndex

[Antemix]

Je n'y arrive pas, ou j'ai pas compris (la deuxième est la bonne surement)

J'ai mis ça comme code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub CommandButton1_Click()
 
'On supprime tout de la liste déroulante lors de l'appui sur le bouton Modifier
 
ComboBox1.Clear
 
'On regarde quelle ligne est séléctionnée et on fait +2 pour les 2 lignes d'entête du fichier
'Utilisation d'une static pour réattribuer la variable dans un autre module
 
Static Ligne As Variant
Ligne = ComboBox1.ListIndex + 2 'Prend en compte le numéro de ligne de la personne séléctionnée
 
'Affiche l'UserForm
 
modification.Show
 
End Sub

Je me suis dit qu'il fallait mettre un Static pour la déclaration, parce que la variable je la réutilise dans la séquence c'initialisation de l'Userform suivant ou toutes les données sont affichées:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub UserForm_Initialize()
 
'Utilise la variable ligne pour savoir le numéro de la ligne à charger et le numéro indique la colonne de la valeur recherchée (voir dossier compl. pour savoir quelle valeur a quoi)
nom.Value = Cells(Ligne, 2)
 
 
End Sub

[Antemix]

Bon au final j'ai réussi...

Mon erreur est que je supprimait la liste avant d'affecter les variables.

Et j'ai ensuite eu un bug d'affectation des variables donc j'ai réservé un carré de cellules pour les stocker indéfiniment. Ca sera plus lourd mais ca marchera

Merci pour vos réponses et à tout bientôt (enfin je ne l'espère pas...)