Discussion :

[damsmut]

Bonjour,

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

Code :

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

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 ?

[SilkyRoad]

bonjour

tu peux essayer

Code :

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

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

bon apres midi
michel

[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 ?

[damsmut]

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

il faut rajouter :

Code :

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

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

pour trouver la cellule entière

[damsmut]

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

[SilkyRoad]

Code :

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

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