pb de macro de mise en forme

[sandra69]

bonjour,

j'ai fait une macro pour changer la mise en forme d'une colonne, je veut que les nombres passe en format texte et ensuite remplacer les virgules par des points. Quand j'execute la macro les nombres passe en format texte mais mais les virgules sont tjs la.

Columns("C:C").Select
Selection.NumberFormat = "@"
Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
SearchOrder:=xlByColumns, MatchCase:=True


End Sub


aidez moi SVP car la jsuis bloquer 🙁

merci

 

[Compte Supprimé 979]

Re : pb de macro de mise en forme

Salut Sandra69,

Pourquoi passer les chiffres en texte 😕

Il suffit de faire

Columns("C:C").Select
    Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, [COLOR=blue]MatchCase:=False[/COLOR], SearchFormat:=False, _
        ReplaceFormat:=False

Dans ton code, le MatchCase peut poser problème !

Voilà 😉

 

[sandra69]

Re : pb de macro de mise en forme

merci d'avoir répondu aussi vite, mais sa marche pas.

 

[Compte Supprimé 979]

Re : pb de macro de mise en forme

Re

Qu'est-ce qui ne marche pas !?
Merci de bien vouloir expliciter la réponse 😉

 

[sandra69]

Re : pb de macro de mise en forme

la macro ne fonctionne pas les virgules ne sont pas remplacer.

Private Sub CommandButton3_Click()
Columns("C:C").Select
Selection.NumberFormat = "@"
Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=True
End Sub

Pour résumer je veu créer une macro qui met la colonne C en format texte et que les virgules soit remplacer par des points.

voila.

 

[pierrejean]

Re : pb de macro de mise en forme

bonjour Sandra69

Salut bruno

une solution

 

[sandra69]

Re : pb de macro de mise en forme

merci pr votre réponse,
mais sa fonctionne pas, la macro s'execute pas et replace est surligner.

Private Sub CommandButton2_Click()
For Each cel In Range("C7:C" & Range("C65536").End(xlUp).Row)
cel.NumberFormat = "@"
cel.Value = Replace(cel.Value, ",", ".")
Next cel
End Sub

 

[sandra69]

Re : pb de macro de mise en forme

personne n'a de solution a mon pb?

🙁

 

[Pierrot93]

Re : pb de macro de mise en forme

Bonjour Sandra, PierreJean, Bruno

chez moi cette macro fonctionne parfaitement (Excel 2003), mais cela dépend sans doute du format d'entrée des données... Passe peut être par le convertisseur, => barre de menu => données => convertir...

bon après midi
@+

 

[Compte Supprimé 979]

Re : pb de macro de mise en forme

Oui, cet étange !

Sinon voilà une autre solution, mais un peu plus longue 😀

Sub Remplace()
  Dim Cel As Range, DerLig As Integer, NewVal As String
  Columns("C:C").Select
  Selection.NumberFormat = "@"
  DerLig = Range("C65536").End(xlUp).Row
  For Each Cel In Range("C1:C" & DerLig)
    If InStr(1, Cel, ",") > 0 Then
      NewVal = Left(Cel, InStr(1, Cel, ",") - 1) & "." & Right(Cel, Len(Cel) - InStr(1, Cel, ","))
      Cel.Value = NewVal
    End If
  Next
End Sub

Voilà 😉

 

[pierrejean]

Re : pb de macro de mise en forme

re

je presume que Sandra est sous excel97

auquel cas la solution de Bruno devrait fonctionner

en effet pour autant que je le sache replace n'apparait qu'a partir de excel 2000

 

[sandra69]

Re : pb de macro de mise en forme

Yesss sa marche!

merci a tous!

🙂 🙂