Macro , remplace point par virgule [Fermé]

Signaler
Messages postés
1
Date d'inscription
vendredi 23 avril 2010
Statut
Membre
Dernière intervention
23 avril 2010
-
Messages postés
17300
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
13 janvier 2021
-
Bonsoir à toutes et à toutes,

Je sais que différents sujets existent sur " Comment ça marche " mais franchement je n'y arrive pas et je ne comprend pas pourquoi.

Je voudrais créer une macro dans un fichier qui me permet de remplacer le " . " par la " , " j'ai lu le message , je ' copier/coller ' le text de la macro mais quand j'execute rien ne marche .

Ma demande , quelqu'un pourrait-il me donner la démarcher à suivre ?

Je procéde comme cela : " J'ouvre un fichier vierge , je clic sur "dévelopeur" puis " enregistrer une macro " , " nom de la macro " macro1 " -> "ok" puis clique sur macro , selection " macro1" , modifier , apparer ->

Sub Macro1()
'
' Macro1 Macro
'

'
Application.Goto Reference:="Macro1"
End Sub


Voila , ensuite je ne sais quoi faire. HELP

4 réponses

Messages postés
853
Date d'inscription
jeudi 21 janvier 2010
Statut
Membre
Dernière intervention
2 mai 2013
381
Bonsoir,

Tu es dans quel logiciel ?
Parce que si tu fais
chercher : .
Remplacer par : ,
Remplacer tout.
ça marche aussi
Messages postés
853
Date d'inscription
jeudi 21 janvier 2010
Statut
Membre
Dernière intervention
2 mai 2013
381
Sinon, voici la macro (sur Word) puisque je ne sais pas quel logiciel tu as, on va dire que c'est Word, tu copies cela :

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "."
.Replacement.Text = ","
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Messages postés
853
Date d'inscription
jeudi 21 janvier 2010
Statut
Membre
Dernière intervention
2 mai 2013
381
Hello,

Si tu veux apprendre la VBA, tu peux aller sur ces deux sites, le premier est de l'initiation et l'autre, plus approfondi. C'est très clair. J'apprends aussi en ce moment avec ça.

https://heureuxoli.developpez.com/office/word/vba-all/
https://heureuxoli.developpez.com/office/word/vba-word/?page=sommaire
Messages postés
17300
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
13 janvier 2021
4 429
Salut,

sur Excel, mettre en surbrillance la plage à traiter ou intégrer les référence de la plage en début de code

Sub Remplace()
For Each cell In Selection
If InStr(1, cell.Text, ".") > 0 Then
cell.Value = CDbl(Val(cell.Text))
End If
Next
End Sub

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.