pb de macro de mise en forme

C

Compte Supprimé 979

Guest

• 10 Mai 2007

• #2

Re : pb de macro de mise en forme

Salut Sandra69,

Pourquoi passer les chiffres en texte 😕

Il suffit de faire

Code:

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à 😉

 

Vote positif 0 Vote négatif

S

sandra69

XLDnaute Nouveau

• 10 Mai 2007

• #3

Re : pb de macro de mise en forme

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

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 10 Mai 2007

• #4

Re : pb de macro de mise en forme

Re

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

 

Vote positif 0 Vote négatif

S

sandra69

XLDnaute Nouveau

• 10 Mai 2007

• #5

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.

 

Pièces jointes

• fichier2.xls

  26.5 KB · Affichages: 46
• fichier2.xls

  26.5 KB · Affichages: 52
• fichier2.xls

  26.5 KB · Affichages: 43

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 10 Mai 2007

• #6

Re : pb de macro de mise en forme

bonjour Sandra69

Salut bruno

une solution

 

Pièces jointes

• fichier2.xls

  30 KB · Affichages: 51
• fichier2.xls

  30 KB · Affichages: 50
• fichier2.xls

  30 KB · Affichages: 54

Vote positif 0 Vote négatif

S

sandra69

XLDnaute Nouveau

• 10 Mai 2007

• #7

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

 

Vote positif 0 Vote négatif

S

sandra69

XLDnaute Nouveau

• 10 Mai 2007

• #8

Re : pb de macro de mise en forme

personne n'a de solution a mon pb?

🙁

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 10 Mai 2007

• #9

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
@+

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 10 Mai 2007

• #10

Re : pb de macro de mise en forme

Oui, cet étange !

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

Code:

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à 😉

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 10 Mai 2007

• #11

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

 

Vote positif 0 Vote négatif

S

sandra69

XLDnaute Nouveau

• 10 Mai 2007

• #12

Re : pb de macro de mise en forme

Yesss sa marche!

merci a tous!

🙂 🙂

 

Vote positif 0 Vote négatif