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

P

Pyrof

XLDnaute Occasionnel

• 3 Février 2010

• #2

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

bonjour,
voila le code

Code:

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

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 3 Février 2010

• #3

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

Salut pmfontaine, Pyrof, le Forum

Ou peut-être comme cela

Code:

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

Bonne Journée

 

Vote positif 0 Vote négatif

P

Pyrof

XLDnaute Occasionnel

• 3 Février 2010

• #4

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

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

Code:

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 ????

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 3 Février 2010

• #5

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

 

Vote positif 0 Vote négatif

pmfontaine

XLDnaute Occasionnel

• 3 Février 2010

• #6

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

Pyrof à dit:

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

Cliquez pour agrandir...

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.

 

Vote positif 0 Vote négatif

pmfontaine

XLDnaute Occasionnel

• 3 Février 2010

• #7

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.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 3 Février 2010

• #8

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

Bonsoir


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


Alors essai ce code

Code:

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 3 Février 2010

• #9

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

Re

Pour ta macro

Modifie ainsi

Code:

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

 

Vote positif 0 Vote négatif

pmfontaine

XLDnaute Occasionnel

• 4 Février 2010

• #10

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.

 

Pièces jointes

• remplacement.xls

  29.5 KB · Affichages: 76
• remplacement.xls

  29.5 KB · Affichages: 82
• remplacement.xls

  29.5 KB · Affichages: 82

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 4 Février 2010

• #11

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

Bonsoir


Cela fonctionne non ?

Code:

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

Code:

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

 

Dernière édition: 4 Février 2010

Vote positif 0 Vote négatif

pmfontaine

XLDnaute Occasionnel

• 5 Février 2010

• #12

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.

 

Vote positif 0 Vote négatif