Discussion :

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

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

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 :

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

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 :

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

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

au plaisir

[casefayere]

Bonjour windox,

et comme ça

Code :

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

1
2
3
4
5
6
7
8
9
Sub mise_en_forme()
Dim CH, Rpl
Dim x As Integer
CH = Array(" ", "'", "ë", "ê", "ï", "î", "ä", "â")
Rpl = Array("_", "_", "e", "e", "i", "i", "a", "a")
For x = 1 To UBound(CH)
  ActiveCell = Replace(ActiveCell, CH(x), Rpl(x))
Next x
End Sub

[Qwazerty]

Bonjour

Pourquoi boucler 100 fois? autant fournir directement l'adresse des cellules et tout remplacer d'un coup ?


En reprenant le code de casefayere

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Sub mise_en_forme(Plage as range)
Dim CH, Rpl
Dim x As Integer
 
'Si la procédure est appelée avec un paramètre vide
If Plage is nothing then exit sub
 
CH = Array(" ", "'", "ë", "ê", "ï", "î", "ä", "â")
Rpl = Array("_", "_", "e", "e", "i", "i", "a", "a")
 
For x = 1 To UBound(CH)
  'ActiveCell = Replace(ActiveCell, CH(x), Rpl(x))
  Plage.Replace What:=CH(x), Replacement:=Rpl(x), LookAt:=xlPart, MatchCase:=True
Next x
End Sub
 
'Teste
mise_en_forme(Classeur1.Feuil1.Range("A1:A100"))

(Code non testé)

++
Qwaz