Bonjour,
Afin de transformer des virgules en point j'utilise la fonction replace associée avec ActiveCell (seule la seule fonction qui fonctionne)
Sub change_le_point()
ActiveCell.NumberFormat = "@"
ActiveCell = Replace(ActiveCell, ",", ".")
End Sub
Cela fonctionne bien sur une cellule par contre sur une série en colonne je bute sur comment incrémenter la position de l'activeCell.
Exemple dans le fichier joint avec une boocle while / wend.
Sub change_la_virgule_boucle()
Range("A1").Select
Dim virgule As Integer
virgule = 1
ActiveCell = Cells(virgule, 1)
While Cells(virgule, 2) <> ""
ActiveCell.NumberFormat = "@"
Cells(virgule, 1) = Replace(ActiveCell, ",", ".")
virgule = virgule + 1
Wend
End Sub
Ici cela décale bien vers le bas mais ça me remplace mes valeurs par la valeur en A1 ...
Merci de votre aide.
Afin de transformer des virgules en point j'utilise la fonction replace associée avec ActiveCell (seule la seule fonction qui fonctionne)
Sub change_le_point()
ActiveCell.NumberFormat = "@"
ActiveCell = Replace(ActiveCell, ",", ".")
End Sub
Cela fonctionne bien sur une cellule par contre sur une série en colonne je bute sur comment incrémenter la position de l'activeCell.
Exemple dans le fichier joint avec une boocle while / wend.
Sub change_la_virgule_boucle()
Range("A1").Select
Dim virgule As Integer
virgule = 1
ActiveCell = Cells(virgule, 1)
While Cells(virgule, 2) <> ""
ActiveCell.NumberFormat = "@"
Cells(virgule, 1) = Replace(ActiveCell, ",", ".")
virgule = virgule + 1
Wend
End Sub
Ici cela décale bien vers le bas mais ça me remplace mes valeurs par la valeur en A1 ...
Merci de votre aide.