Macro , remplace point par virgule Fermé

Question

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 

Configuration: Windows 7 / Internet Explorer 7.0

sriviere · Answer

Bonsoir,

Tu es dans quel logiciel ?
Parce que si tu fais 
chercher : .
Remplacer par : ,
Remplacer tout.
ça marche aussi

sriviere · Answer

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

sriviere · Answer

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

Mike-31 · Answer

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.

Macro , remplace point par virgule

4 réponses

Discussions similaires