Discussion :

[Breitzou]

Bonsoir le forum,

j'ai un petit fichier dans lequel j'ai un UserForm qui me permet de rechercher des données dans une feuille de calcul.
A terme, cette base de données doit contenir des milliers de noms et donc potentiellement des noms identiques.
Lorsque je cherche un nom via le ComboBox, est-ce possible en cas de noms identiques, de cliquer sur un bouton "suivant" que j'ai crée dans l'USF pour faire apparaître les uns après les autres les noms concernés.

Ci-joint le fichier exemple.

Merci d'avance pour votre aide.

Breitzou

[clementmarcotte]

Pierre Fauconnier est ultra extrêmement clair. Pas de %%%%$$$//"Q!Q!"**&?U%% de fichier-joint à la première question.

http://www.developpez.net/forums/d84...s-discussions/

http://www.developpez.net/forums/d84...s-discussions/

http://www.developpez.net/forums/d84...s-discussions/

http://www.developpez.net/forums/d84...s-discussions/

http://www.developpez.net/forums/d84...s-discussions/

http://www.developpez.net/forums/d84...s-discussions/


Vite, vite in grève des réponses.

[Breitzou]

Bonsoir Clementmarcotte,

désolé !!! Cela fait très, très longtemps que je ne suis pas venu sur ce forum et je ne me souvenais plus de cette règle qui consiste à mettre un fichier en pièce jointe qu'en dernier recours.
J'aurais du relire ce message avant !

Ceci étant, j'expose donc mon problème différemment :
Dans un UserForm, j'essaie de faire apparaître des données tirées d'une feuille de calcul. Cela est fait. Le problème, c'est que lorsqu'il y a plusieurs noms identiques, je voudrais faire défiler les noms identiques suivants, les uns après les autres, en cliquant sur un bouton nommé "SUIVANT". Et c'est là que je bloque ! Je suis plus que novice en la matière. J'ai juste mis le code ci-dessous pour donner une idée du point qui me bloque.
Merci pour votre aide.

Breitzou

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
Private Sub ComboBox1_Change()
Dim sh As Worksheet
If Me.ComboBox1.Value = "" Then Exit Sub
Set sh = Sheets("LAD")
  li = Me.ComboBox1.ListIndex + 5
 Me.TextBox2 = sh.Cells(li, 1)
 Me.TextBox4 = sh.Cells(li, 6)
 Me.TextBox5 = sh.Cells(li, 2)
With Me.ComboBox1
     .RowSource = "Noms"
     .Value = sh.Cells(li, 5)
End With
 
 Me.TextBox2 = sh.Cells(li, 1)
 Me.TextBox4 = sh.Cells(li, 6)
 Me.TextBox5 = sh.Cells(li, 2)
 
End Sub
 
Private Sub CommandButton1_Click()
  Unload UserForm1
End Sub