Discussion :

[Joey1]

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 :

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

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

[Menhir]

Code :

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

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.

[Joey1]

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.

[boisgontierjacques]

Bonsoir,

Pour avoir toutes les occurences, il faut une 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
 
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

[Menhir]

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.