VBA - Recherche valeur colonne

Bonjour,

je cherche à faire une macro qui cherche dans une colonne (ici colonne F), la valeur que j'aurai entré dans le "TextBox1".
Si la valeur correspond, la valeur de la "TextBox2" se copie 3 colonne plus loin, dans la même rangé.

Code:

---

1 2 3 4 5 6 7 8

Private Sub CommandButton1_Click()   If Range("F").Value = UserForm2.TextBox1.Value Then ActiveCell.Offset(0, 3).Value = UserForm2.TextBox2.Value   End If   End Sub

---

Pouvez-vous me guider sur ce qu'il reste a compléter pour cette macro?

Merci

Code:

---

1 2 3 4 5

Private Sub CommandButton1_Click() Dim OK as Range Set OK = Range("F").Find(UserForm2.TextBox1.Value) If Not OK Is Nothing Then OK.Offset(0, 3).Value = UserForm2.TextBox2.Value End Sub

---

Je ne l'ai pas testé donc tu auras peut-être du débugage à faire mais tu as le principe de ce que tu veux faire.

Merci pour votre répondre.

J'arrive a seulement à faire ce que je veux à la première valeur trouvée, il me reste a l'appliquer a toutes les valeurs dans la colonne.

Bonsoir,

Pour avoir toutes les occurences, il faut une boucle

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub cherche_plusieurs() [A:C].Interior.ColorIndex = xlNone nom = InputBox("Nom cherché?") If nom = "" Then Exit Sub Set c = [A:A].Find(nom, , , xlWhole) If Not c Is Nothing Then premier = c.Address Do c.Resize(, 3).Interior.ColorIndex = 4 Set c = [A:A].FindNext(c) Loop While Not c Is Nothing And c.Address <> premier End If End Sub

---

Une autre solution consiste à transférer la colonne dans un Array() et à faire une boucle de recherche.


Boisgontier

Citation:

---

Envoyé par Joey1

J'arrive a seulement à faire ce que je veux à la première valeur trouvée, il me reste a l'appliquer a toutes les valeurs dans la colonne.

---

Dans ta demande, rien n'indiquait que tu recherchais plusieurs occurrences de la valeur.
A mauvaise question, mauvaise réponse. Forcément.