Discussion :

[Fabwasu75]

Bonjour,

Merci d'avance pour votre aide
J'ai écrit la macro ci-dessous pour me permettre d'homogénéiser le format de cellules Excel. Ces cellules peuvent contenir des nombres stockés sous forme de texte ou des nombres avec un point comme séparateur décimal. Je veux sélectionner une plage de cellules, lancer la Macro et obtenir des nombres (et non plus du texte) avec virgule comme séparateur décimal.
La Macro fonctionne très bien pour une plage de cellules avec des nombres stockés en format texte. Toute la plage sélectionnée est convertie au bon format.
La Macro fonctionne également très bien pour 1 cellule avec un nombre ayant un point comme séparateur, mais elle ne fonctionne plus si je sélectionne une plage de ces mêmes cellules (pour lesquelles ça fonctionne ''individuellement'')

Le message d'erreur est le suivant ''Erreur d'exécution '13' Incompatibilité de type''. Pourquoi ce problème dans le seul cas décrit ci-dessus ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
    For Each cell In Selection
        ActiveCell.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    If (Application.WorksheetFunction.IsText(cell) = True) Then
        cell.Value = CDbl(cell.Value)
        Selection.NumberFormat = "#,##0.00"
    End If
    Next cell
End Sub

Merci beaucoup pour votre aide

[halaster08]

Bonjour,

Je ne comprends la raison de cet erreur.
Mais je peux te proposer un moyen détourné pour ne pas l'avoir, puisque ça fonctionne pour une cellule seule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub aaa()
Dim cell As Range
For Each cell In Selection
Call convertir(cell)
Next cell
End Sub
 
Sub convertir(c As Range)
c.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
 SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
 ReplaceFormat:=False
 If (Application.WorksheetFunction.IsText(c) = True) Then
 c.Value = CDbl(c.Value)
c.NumberFormat = "#,##0.00"
 End If
End Sub

[Patrice740]

Bonjour,

Dans cette partie,le replace se fait sur une seule cellule, celle qui est active.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    For Each cell In Selection
        ActiveCell.Replace What:=".", Replacement:=",", LookAt:=xlPart,

C'est une des raisons pour laquelle je préconise de bannir l'utilisation des objets actifs (Selection, ActiveCell, ...)

[Fabwasu75]

Effectivement je n'ai toujours pas trouvé pourquoi ça ne marche pas.
Mais votre solution fonctionne, merci beaucoup pour l'aide et votre réactivité

[Patrice740]

Effectivement je n'ai toujours pas trouvé pourquoi ça ne marche pas.

Je te l'ai dit : c'est parce que tu effectue le Replace sur la cellule Active (ActiveCell.Replace...)
Comme aucune instruction de ton code modifie la position de la cellule active, c'est toujours la même cellule qui est modifiée

[Fabwasu75]

Tu as raison Patrice je n'avais pas vu.
Maintenant je veux utiliser la même macro sous Mac et là j'ai une erreur, apparemment ça bloque sur SearchFormat:=False avec comme message Compile error:Named argument not found
Alors que ça fonctionne très bien sur PC.
Merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub aaa()
Dim cell As Range
For Each cell In Selection
Call convertir(cell)
Next cell
End Sub
 
Sub convertir(c As Range)
c.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
 SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
 ReplaceFormat:=False
 If (Application.WorksheetFunction.IsText(c) = True) Then
 c.Value = CDbl(c.Value)
c.NumberFormat = "#,##0.00"
 End If
End Sub

[Transitoire]

Bonjour, essayez avec:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
c.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False

Sur mon Mac ça semble marcher.

Cordialement

[Fabwasu75]

Merci Transitoire,
Je pourrai tester d'ici 10 jours.
Pour être certain, en gros tu me conseilles de supprimer SearchFormat:=False, _
ReplaceFormat:=False
c'est bien ça ?

[Transitoire]

Bonjour, j'ai simplement effectué la manoeuvre avec l'enregistreur de macro. J'ai obtenu cet enregistrement qui fonctionne sur mon Mac.
Sur ce type de problème, avec des standards différents, PC=>Mac, ou l'inverse, il est souvent très interessant d'utiliser l'enregistreur qui nous permet de trouver l'écriture du standard.
Cordialement

[Fabwasu75]

Oui, c'est pas faux... Merci du conseil, je testerai