Recherche avec find

[GGPS58]

Bonjour,

J'ai un petit soucis de recherche que je n'arrive pas à résoudre.
J'ai une valuer dans une feuille, je voudrais remplacer une valuer attenante à cette même valeur à l'aide d'une macro.
Voir mon fichier joint.

Merci de votre aide, car je sèche ...

 

[Moa]

Re : Recherche avec find

Salut !

Sub Macro1()
Dim Cell As Range
For Each Cell In Range("A1:A9")
If Cell = "EEEE" Then
Cell.Offset(0, 1).Value = "Plouf"
End If
Next Cell
End Sub


@ +++

ChrisOne

 

[SergiO]

Re : Recherche avec find

Bonjour,

Un autre code sur le même principe :

Option Explicit
Sub Remplacer()

Dim Couleur, Chaine, Derlig
Dim Cell As Range

Derlig = Range("B65536").End(xlUp).Row
Couleur = Worksheets("SAISIE").Range("C6").Value
Chaine = Worksheets("SAISIE").Range("E6").Value
Sheets("Base").Select
For Each Cell In Range("B1:B" & Derlig)

    If Cell.Value = Couleur Then
    Cell.Offset(0, -1) = Chaine
    End If
    
Next Cell

End Sub

 

[GillesC]

Re : Recherche avec find

Bonjour à tous,
petite variante qui demande la chaîne à chercher et celle à renseigner:
Sub macro_remplace()
Cpt = 0
Depart = InputBox("Saisissez le nom à remplacer")
Fin = InputBox("Saisissez la valeur de remplacement")

For Each Cell In Range("A1:A9")
If Cell = Depart Then
Cpt = Cpt + 1
Cell.Offset(0, 1).Value = Fin
End If
Next
If Cpt = 0 Then
MsgBox "Aucune valeur à remplacer"
Else: MsgBox (Cpt) & " valeur(s) remplacées"
End If
End Sub