Discussion :

[P-H B]

Bonjour à tous,

Bonne année 2014.

Voilà mon problème: je souhaiterai que la macro ci-après fonctionne avec l'automation. C'est une macro que j'ai enregistré avec l'outil "Enregistrer une macro" d'Excel qui permet de changer (dans ce cas les points en virgules). J'ai essayé un certain nombre de choses mais je n'ai pas réussi. En cherchant sur internet je n'ai pas trouvé non plus.

Code :

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

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

Merci beaucoup pour l'aide que vous m'apportez.

[Jerome Briot]

Voici la traduction :

Code :

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

1
2
3
4
xlPart = 2;
xlByRows = 1;
 
range.Replace('.', ',', xlPart, xlByRows, false, false, false);

ou plus simplement avec les options par défaut :

Code :

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

range.Replace('.', ',');

Ici range correspond à un objet Range définit préalablement.

Voir Les méthodes et S'aider de l'enregistreur de macros

Par contre, le code ne fonctionne que sur des cellules contenant du texte.

[P-H B]

Merci beaucoup pour cette réponse
Ça fonctionne parfaitement dans mon cas. Les cellules que je souhaitais modifier sont biens des cellules contenant des nombres sous forme de texte. Donc pas de problème.