Discussion :

[RetourVBA]

Bonjour,

Je viens chercher de la compétence sur ce forum parce que ma petite mémoire ne répond plus. Cela fait très,très longtemps que je n'ai pas fait de macro ....
Hier, je me suis lancé dessus pour réaliser une recherche de nom sur une base Excel après sur un CommandButton_Click. Malheureusement, je n'arrive pas à faire ma boucle.
Le but est de controler la présence d'un même nom dans une cellule sur la même feuille et de l'afficher dans des TextBox avec d'autres informations.
La fonction marche une fois .... il me manque la boucle.

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 CommandButton2_Click()
  nomtrouve = Cells.Find(what:=strChaine)
  valeursuivant = ActiveCell.Row
  nomrecherche = Cells(valeursuivant, 2)
  nomsuivant = Cells(valeursuivant + 1, 2)
 
      If nomrecherche = nomsuivant Then
        i = valeursuivant + 1
        TextBox2 = nomrecherche
        TextBox3 = Cells(i, 3)
        TextBox4 = Cells(i, 4)
        TextBox5 = Cells(i, 5)
      Else
        MsgBox "Plus de nom correspondant"
      End If
 End Sub

Est-ce quelqu'un aurait un peu de temps pour regarder mon bout de code et ainsi me rafraîchir la mémoire ?
Merci.

[hben1961]

Bonjour à tous,

Essayes avec le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton2_Click()
  nomtrouve = Cells.Find(what:=strChaine)
  nomrecherche = Cells(ActiveCell.Row, 1)
   For i = ActiveCell.Row To 50
       nomsuivant = Cells(i+1, 1)
     If nomrecherche <> nomsuivant Then GoTo 1
       TextBox2 = nomrecherche
       TextBox3 = Cells(i, 3)
       TextBox4 = Cells(i, 4)
       TextBox5 = Cells(i, 5)
1  Next i
     MsgBox "Plus de nom correspondant"
End Sub

La valeur 50 dans le code peut être changée par la valeur de la dernière ligne non vide...
Cordialement