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 ?
Merci beaucoup pour votre aide
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
Partager