Macro , remplace point par virgule
pouipouic95
Messages postés
1
Statut
Membre
-
Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention -
Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention -
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
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
-
Bonsoir,
Tu es dans quel logiciel ?
Parce que si tu fais
chercher : .
Remplacer par : ,
Remplacer tout.
ça marche aussi -
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 -
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 -
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.
