SUBSTITUE(A1;".";",") en VBA

[pmfontaine]

Bonjour à tous,
Comment écrit on la fonction =SUBSTITUE(A1;".";",") en VBA.
Merci d'avance pour votre aide

 

[Pyrof]

Re : SUBSTITUE(A1;".";",") en VBA

bonjour,
voila le code

Sub Macro1()
    ActiveCell.FormulaR1C1 = "=SUBSTITUTE(R1C1,""."","","")"
End Sub

 

[Dull]

Re : SUBSTITUE(A1;".";",") en VBA

Salut pmfontaine, Pyrof, le Forum

Ou peut-être comme cela

Sub Macro1()
[A1]= Replace([A1], ".", ",")
End Sub

Bonne Journée

 

[Pyrof]

Re : SUBSTITUE(A1;".";",") en VBA

c'est une solution que j'avais aussi imaginée, mais la demande n'est pas claire

Comment écrit on la fonction =SUBSTITUE(A1;".";",") en VBA.

est ce une macro qui doit écrire la fonction ou une macro qui doit faire le remplacement ????

 

[Dull]

Re : SUBSTITUE(A1;".";",") en VBA

Re le Fil, Pyrof 🙂

Effectivement... mais dans le doute il aura au moins 2 solutions. A lui de voir ce qu'il veux 😀

Bonne Journée

 

[pmfontaine]

Re : SUBSTITUE(A1;".";",") en VBA

est ce une macro qui doit écrire la fonction ou une macro qui doit faire le remplacement ????

Merci beaucoup pour votre aide, et désolé pour le manque de clarté de ma question.
En faite il s'agit bien d'une macro qui face le remplacement.
Je vais tester vos solutions dans la soirée.

 

[pmfontaine]

Re : SUBSTITUE(A1;".";",") en VBA

Bonsoir,
Je viens de tester la proposition de Dull, Ca marche très bien sur A1,
Mais je ne trouve pas la syntaxe pour faire plusieurs lignes du style

Sub Macro1()
Dim a As Integer
For a = 1 To 10
[A & a] = Replace([A & a], ".", ",")
Next a
End Sub

Merci d'avance et bonne soirée.

 

[Staple1600]

Re : SUBSTITUE(A1;".";",") en VBA

Bonsoir


S'il s'agit de données du type : 1250.00


Alors essai ce code

Sub remplacement()
[COLOR=Green]'merci à ROGER2327[/COLOR]
With Selection
    .TextToColumns Destination:=.Cells(1, 1), DecimalSeparator:="."
    .NumberFormat = "#,##0.00"
End With
End Sub

 

[Staple1600]

Re : SUBSTITUE(A1;".";",") en VBA

Re

Pour ta macro

Modifie ainsi

Sub Macro1()
Dim a As Integer
For a = 1 To 10
Cells(a, "A").Value = Replace(Cells(a, "A").Text, ".", ",") * 1
Next a
End Sub

 

[pmfontaine]

Re : SUBSTITUE(A1;".";",") en VBA

Bonjour,
Merci Staple1600.
Bon, décidément je pensais faire quelque chose de simple, mais ça ne marche pas.
En faite, dans une colonne latitude et une colonne longitude que je renseigne ou que je récupère en degrés et centième de degrés avec une virgule. Je veux remplacer la virgule par un point, car avec ces données je génère un fichier.kml que je peux ouvrir avec google earth avec toutes les positions renseignés. Mais il faut un point.
Avec les code de Staple1600 ou j’ai inversé la virgule et le point j’ai le message :
Erreur d’exécution 13
Incompatibilité de type
J'ai essayé de mettre mes colonnes au format Texte, mais même résultat.
Merci pour votre aide.

 

[Staple1600]

Re : SUBSTITUE(A1;".";",") en VBA

Bonsoir


Cela fonctionne non ?

Sub remplacement3()
'merci à ROGER2327
With Selection
    .TextToColumns Destination:=.Cells(1, 2), DecimalSeparator:=","
    .NumberFormat = "#.##0.00"
End With
End Sub

La même mais sans devoir faire de selection

Sub remplacement4()
'merci à ROGER2327
With Range([A1], [A65536].End(xlUp))
    .TextToColumns Destination:=.Cells(1, 2), DecimalSeparator:=","
    .NumberFormat = "#.##0.00"
End With
End Sub

 

[pmfontaine]

Re : SUBSTITUE(A1;".";",") en VBA

Bonjour,
Merci beaucoup Staple1600 pour votre aide
Le code ci-dessous marche très bien.
Mais juste une question, pourquoi met tu 2 points dans le format "#.##0.00" ?
Avec 1 point j’obtiens exactement ce que je souhaite.

Sub remplacement4()
'merci à ROGER2327
With Range([A1], [A65536].End(xlUp))
.TextToColumns Destination:=.Cells(1, 1), DecimalSeparator:=","
.NumberFormat = "#.##000"
End With
End Sub

Je vais surement revenir vous voir dans un nouveau post pour transformer un nombre décimal en degrés minute et seconde et vis versa en VBA.
Mais avant je vais chercher si je trouve sur le forum.