[XL-2003] Remplacer virgule par point [Résolu]

[zangaloni]

Bonjour,

Je veux automatiser le remplacement des virgules dans une feuille par un point.
J'ai essayé en enregistrant une macro, dont voici le code :

Code :

1
2
3
4
5
6
 
ThisWorkbook.Sheets("Output_Action").Select
    Cells.Select
    Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

[lelensois16]

Quel est le problème ?

plusieurs solutions :

Fonction Replace + boucle sur les cellules non vide ( à partir d'un CurrentRegion)
Utiliser Sendkeys et simuler les touches Ctrl+A Ctrl+H etc ...

[MarcelG]

Bonjour Zangaloni,

"Vous pouvez répéter la question?"

Sinon, 2 remarques :
- Ces f.... Select sont à proscrire
- Mieux vaut resteindre ton champ d'action au maximum, du moins par élégance

(à adapter)

Code :

Sheets("Output_Action").Usedrange.Replace What:=",", Replacement:=".", LookAt:=xlPart

[zangaloni]

comment utiliser le sendkeys ?

[Qwazerty]

Salut

Que cherches-tu à faire exactement avec sendkey? Le code de MarcelG ne fait il pas ce que tu souhaitais?

Si c'est par rapport au message de lelensois16, tu n'as pas d’intérêt à utiliser une telle méthodologie au sein même d'Excel, je dirais même au sein de la suite Office... conserve le code actuel .

++
Qwaz

[zangaloni]

Bonjour Qwazerty,

j'ai bel et bien essayer le code mais ça ne marche pas, pas de changement sur ma feuille !!!ou plutot sur les nombre en virgule

par contre qu'on je fais manuellement CTR+H et je clique sur remplacer tout, ça marche.

C'est pourquoi je demandais, comment simuler les sensendkeys.

Bonne journée.

[patricktoulon]

bonjour

chez moi si je tape par exemple 10.5 dans une cellule ca m'ecri 10,5

tout simplement parceque le format et a la base "standard" soit numerique
il faut bien utilise la fonction replace mais il faut metre le format de cellule au format "texte"
exemple

Code :

1
2
3
4
5
6
 
Sub change_le_point()
ActiveCell.NumberFormat = "@"
ActiveCell = Replace(ActiveCell, ",", ".")
 
End Sub

au plaisir

[zangaloni]

Bonsoir,
Afin d'adapter le code à mon besoin (remplacer la virgule par des points dans tout le classeur).
J'ai utiliser le code suivant :

Code :

1
2
3
4
5
6
 Sub change_le_point()
 
Sheets("Tableau de bord").Range("A1:HI400").NumberFormat = "@"
Sheets("Tableau de bord").Range("A1:HI400").Replace What:=",", Replacement:="."
 
End Sub

Mais ça n'a pas marché.
Par contre, ton code M. Patrick fonctionne pour l'active cell.
Y a-t-il quelque chose que j'ai omis ?

[Gestionnaire_rh]

Bonsoir zangaloni,

je pense que tu fait erreur sur la feuille, ton dernier code fonctionne le plus normalement je viens même de l'essayé.

[zangaloni]

Je viens de réessayer mais en vain
merci d'avoir essayer quand meme
si tu peux m'envoyer une feuille avec le code dessus qui marche je te serai reconnaissant.

[zangaloni]

Bonjour,

Je viens de faire un nouveau essai avec le code suivant et ça a marché :

Code :

1
2
Sheets(Feuil).Range("F2:X500").Replace What:=",", Replacement:=".", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False

Merci à vous et bon courage