Discussion :

[bakaratoun]

Bonsoir a tous,

J'ai un fichier excel Test qui contient trois chaines de caracteres. "dog" dans la cellule A2. "cat" dans la cellule B3 et "cola" dans C5.

J'aimerais ecrire une macro qui permet de remplacer les chaines de caracteres par des nombres. (Par ex. remplacer dog par 1, cat par 2 et cola par 3).

le souci c'est qu'il faut d'abord reperer ces mots, je suppose que je ne connais pas leurs coordonnees d'avance ..

Si vous aviez des idees je suis preneur.

PS: desole pour les accents. Je suis sur un clavier francophobe.

merci

[Vadorblanc]

Bonjour
Essaie ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Macro1()
 
    Cells.Replace What:="dog", Replacement:="1", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Cells.Replace What:="Cat", Replacement:="2", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Cells.Replace What:="Cola", Replacement:="3", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

Cordialement

[mercatog]

Code :

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

Sheets("NomDeTaFeuille").UsedRange.Replace "Cat", 2

[bakaratoun]

Merci beaucoup de votre aide, sinon vous connaissez un moyen pour trouver les coordonnees du mot "dog" ?


un truc du genre:

Code :

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

1
2
row_dog= Sheets("").UsedRange.find("dog").Row
column_dog= Sheets("").UsedRange.find("dog").column

je ne sais pas trop si y a une fonction de ce genre,


cordialement

[mercatog]

F1 sur Find, tu auras un exemple explicite:
ci joint adaptation

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim c As Range
Dim PremAdr As String
 
Set c = Sheets("Feuil1").UsedRange.Find("dog", LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
   PremAdr = c.Address
   Do
      Set c = Sheets("Feuil1").UsedRange.FindNext(c)
      MsgBox "Adresse: " & c.Address & vbCrLf & "Ligne: " & c.Row & vbCrLf & "Colonne: " & c.Column
   Loop While Not c Is Nothing And c.Address <> PremAdr
End If