Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Recherche avec find

GGPS58

XLDnaute Occasionnel
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 ...
 

Pièces jointes

  • recherche.zip
    2.4 KB · Affichages: 39
  • recherche.zip
    2.4 KB · Affichages: 50
  • recherche.zip
    2.4 KB · Affichages: 42

Moa

XLDnaute Occasionnel
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

XLDnaute Accro
Re : Recherche avec find

Bonjour,

Un autre code sur le même principe :

Code:
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

XLDnaute Occasionnel
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…