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 ?