bonjour, voici mon problème: j'ai crée un userform permettant de rajouter des informations sur une feuille excel ( qui elle contient 13 colonnes).
pour le bouton recherche:je voudrais être en mesure de rechercher une donnée en particulier par son et l'afficher sur l'userform. en voici les codes VBA:

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
18
19
20
21
22
23
24
25
26
27
28
Private Sub btnrecherche_Click()
Dim vrech As String
Dim i As Integer
i = 2
vrech = nom
If nom.Value = "" Then
MsgBox "Introduisez un nom SVP!!"
While vrech <> Feuil2.Cells(i, 1)
i = i + 1
Wend
ElseIf vrech = Feuil2.Cells(i, 1) Then
    nom = Feuil2.Cells(i, 1)
    prenom = Feuil2.Cells(i, 2)
    fonction = Feuil2.Cells(i, 3)
    matricule = Feuil2.Cells(i, 4)
    datedenaissance = Feuil2.Cells(i, 5)
    adresse = Feuil2.Cells(i, 6)
    codepostal = Feuil2.Cells(i, 7)
    ville = Feuil2.Cells(i, 8)
    pays = Feuil2.Cells(i, 9)
    salairebrutannuel = Feuil2.Cells(i, 10)
    numerodetelephone = Feuil2.Cells(i, 11)
    numerodegsm = Feuil2.Cells(i, 12)
    email = Feuil2.Cells(i, 13)
    Else
    MsgBox "Aucun résultat"
End If
End Sub
le problème que j'ai c'est que quand j'introduis le nom se trouvant dans la case A2, tout fonctionne normalement mais lorsque j'introduis un nom se trouvant dans une autre case de la colonne A, ca affiche quand même " aucun résultat", comme ca le ferait pour un nom ne se trouvant pas dans la colonne A. quelqu'un pourrait il m'aider a déceler l'erreur SVP?

pour le spinbutton: voici les codes:

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Private Sub gestion_intialize()
With SpinButton1
.Min = 0
.Max = 1000000
End With
i = 2
While Feuil2.Cells(i, 1) <> ""
i = i + 1
Wend
i = -1
SpinButton1.Value = 1
End Sub
*****************************************************
Private Sub SpinButton1_Change()
SpinButton1.Value = 1
If i < 2 Then
i = 2
SpinButton1.Value = 1
End If
If i > 1 Then
nom = Feuil2.Cells(i, 1)
prenom = Feuil2.Cells(i, 2)
fonction = Feuil2.Cells(i, 3)
matricule = Feuil2.Cells(i, 4)
datedenaissance = Feuil2.Cells(i, 5)
adresse = Feuil2.Cells(i, 6)
codepostal = Feuil2.Cells(i, 7)
ville = Feuil2.Cells(i, 8)
pays = Feuil2.Cells(i, 9)
salairebrutannuel = Feuil2.Cells(i, 10)
numerodetelephone = Feuil2.Cells(i, 11)
numerodegsm = Feuil2.Cells(i, 12)
email = Feuil2.Cells(i, 13)
End If
End Sub
le problème que j'ai est que en cliquant sur les flèches, je n'affiche que les données de la 1ere ligne mais je n'arrive pas a passer a la ligne suivante. comme pour dire: je suis bloqué sur la 1ère ligne.

Besoin d'aide SVP

le fichier est joint. thx

P.S.: désolé pour ce long message.

<config>Windows Vista / Safari 534.24</config>


[Edit]
desolé, au fait le fichier est trop grand pour etre joint. mais tous les codes sont affichés ci-dessus