Discussion :

[Dart974]

Bonjour tout le monde,
je suis débutant alors excusez moi par avance pour mon vocabulaire approximatif.
J'essaie de coder un UserForm pour obtenir un formulaire me permettant les choses suivantes :
- je choisi un élève dans un menu déroulant (ça c'est bon)
- je choisi l'exercice (parmis 5) pour compléter la bonne feuille (ça c'est bon)
- je reporte dans la feuille la valeur attribué à chaque critère dans le formulaire (Critères COM, APP etc)
mais surtout en face du nom préalablement sélectionné! (ça c'est plus bon du tout) ::o

J'ai beaucoup cherché dans des tutos déjà existant mais il ne me reste plus que le dernier point à coder.
- Comment attribuer une valeur au nom selectionner
- Comment faire pour que selon cette valeur, les bonnes case se remplissent?

Je remercie par avance toute personne qui voudrait bien m'aider

PS : PS : voici le fichier sur lequel je travail
Test - Copie.rar

[Nico Chg]

Bonjour,

Je n'ouvre pas les PJ, donc une petite image expliquant le tout ne serais pas mal.

Sinon, ça dépend beaucoup de la construction de ton fichier, mais l'algorithme devrait ressembler à ça :

- Récupérer la valeur de la liste déroulante (le nom de l'élève)
- Je fais une recherche de ladite valeur dans la feuille qui va bien
- Je récupère la ligne de la recherche
- J'écris mes valeurs dans les colonnes qui vont bien.

Je suppose ici que tu as le nom des élèves dans une colonne, chaque élève correspond donc à une ligne, et que les critères sont en lignes, donc chacun des critères correspond à une colonne.

Voici des exemples de codes :

Code :

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

1
2
3
4
5
6
7
8
9
'Pour sélectionner la valeurs d'une Listbox en supposant que le nom se trouve dans la première colonne de la Listbox
MaValeur = Listbox1.List(Listbox1.ListIndex, 0)
 
'Rechercher la ligne d'une valeur dans une Feuille avec X le numéro de la colonne
MaLigne = Worksheets("MaFeuille").Columns(X).Find(MaValeur, , , , xlByRows, xlPrevious).Row
 
'Ecrire ensuite les bonnes valeurs aux bons endroits avec Y et Z les numéros de colonne correspondant à COM et APP
Worksheets("MaFeuille").cells(MaLigne, Y) = "Critère COM"
Worksheets("MaFeuille").cells(MaLigne, Z) = "Critère APP"

Je te souhaite bon courage pour la suite !

[illight]

Salut

Dans un premier temps, et finalement, ce que tu dois récupérer est la ligne du nom sélectionné. Pour cela, tu as 2 solutions :
- Soit tu fais une fonction, qui fait une recherche sur ta première colonne, pour retrouver le nom sélectionné. Un truc de ce genre :

Code :

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

1
2
3
4
5
6
7
8
Public Function Ligne(NomP As String) As Long
For i = 5 To 42
    If InStr(1, NomP, Cells(i, 1).Value, vbTextCompare) > 0 Then
        Ligne = i
        Exit For
    End If
Next i
End Function

Que tu utilises après dans ton clic :

Code :

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

1
2
3
Private Sub CommandButton14_Click()
MsgBox Ligne(Me.ComboBox1.Value)
End Sub

- Soit tu utilises ListIndex :

Code :

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

1
2
3
Private Sub CommandButton14_Click()
MsgBox Me.ComboBox1.ListIndex
End Sub

Qui te donnera l'index de ta liste déroulante sélectionné.
Par exemple, pour le premier de ta liste, il te donnera 0 => il faut donc rajouter 5 pour avoir la ligne de l'agent sélectionné

Une fois que tu as cette information, remplir les différentes colonnes devrait être un jeu d'enfant

[Dart974]

Bonjour messieurs,
merci beaucoup beaucoup pour vos réponses si rapides.
Je vais essayer de suivre vos conseils éclairés.
Je ne manquerai pas de vous montrer le résultats et à cocher RÉSOLU
(si j'y arrive)
Merci encore