Discussion :

[bebertol]

Bonjour a tous,

Je souhaite effectuer une macro avec une recherche de valeur particulière, ce qui correspond au raccourci : ctrl + f
Comment coder en VBA une recherche de valeurs dans une feuille dans un premier temps et comment coder un remplacement.

Quelqu'un pourrait-il m'apporter une reponse ?

[a.dequidt]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
dim reference as string
'tu definies la plage de recherche
With Range("A2:A9")
    'reference est le mot que tu recherches, 
    'LookIn:=xlValues signifie que tu regardes dans le contenu des cellules parcourues
    'LookAt:=xlWhole signifie que tu veux exactement le mot reference
    Set c = .Find(reference, LookIn:=xlValues, LookAt:=xlWhole)
        ' si il a trouvé la "reference"
        If Not c Is Nothing Then
                 ' pour récupérer la ligne ou se trouve reference: c.Row 
        End If
End With

[ucfoutu]

Bonjour,

As-tu au moins tenté d'utiliser l'enregistreur de macro (juste pour voir le code qu'écrirait M. VBA) ?
Tu pourrais commencer par là ..

[Drost]

Hello,

Passe par l'assistant enregistreur de macro ca marche assez bien !

voici le code pour remplacer :

Code :

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

1
2
Cells.Replace What:="titi", Replacement:="toto", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

[Pierre Fauconnier]

Bonjour

Code :

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

1
2
 
Range("A1:a10").Replace what:="martine", replacement:="Manon"

Regarde dans l'aide VBA sur REPLACE pour les explications sur les paramètres optionnels.

Ok?