[VBA-E] Rechercher / Remplacer

Version imprimable

Bonjour,

Voici le code pour un Rechercher / Remplacer de caractères.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub RECHERCHE() 'recherche tous les A et les remplacent par des 5 With Worksheets(1).Columns(1) Set c = .Find("A", LookIn:=xlValues) If Not c Is Nothing Then Do c.Value = 5 Set c = .FindNext(c) Loop While Not c Is Nothing End If End With End Sub
Il cherche tous les cellules avec un A qu'il remplace par une cellule avec un 5.... ok ça c'est bon.

2 Questions :

1. Par contre le contenu complet de la cellule est remplacé par 5 comment faire pour juste remplacé le caractère ???. --> exemple ABCD deviendra 5BCD

2. Comment faire pour rechercher/remplacer les cellules contenant uniquement le caracère A ?

Y'a t'il une autre fonction peut être que find ?

16/08/2006, 15h30
SilkyRoad

bonjour

tu peux essayer

Code:

Sheets("Feuil1").Columns(1).Replace "A", "5"

bon apres midi
michel
16/08/2006, 15h52
damsmut

Oais merci... mais en fait j'ai mal formulé ma question.... j'attendais cette réponse ;-)

En fait la partie "/remplacer" c'était juste pour l'exemple... dans la pratique il y'a tout un traitement....

et donc la fonction replace ne convient pas ?? une autre idée avec Find ?
16/08/2006, 16h06
damsmut

Ah !!!! c'est bon j'ai trouvé !!

il faut rajouter :

Code:

Set c = .Find("A", LookAt:=xlWhole)

pour trouver la cellule entière
16/08/2006, 16h07
damsmut

Des idées pour la question 1. ????

Code:

1
2
3
4
5
6
7
8
9
    With Worksheets(1).Columns(1)
        Set c = .Find("A", LookIn:=xlValues)
        If Not c Is Nothing Then
            Do
                c.Replace "A", "5"
                Set c = .FindNext(c)
            Loop While Not c Is Nothing
        End If
    End With