Remplacer les 0

[Hulk]

Hello les amis,

Ce code

Sub Remplace()
Application.ScreenUpdating = False
[COLOR="Green"][B]Selection[/B][/COLOR].NumberFormat = "@"
For Each c In [COLOR="green"][B]Selection[/B][/COLOR]
c.Value = Replace(c, "0", "-", 1)
Next
End Sub

remplace les zéro dans une sélection voulue, ok.

Mais si je fais ça pour l'appliquer à toute la feuille, il me dit erreur, je n'arrive pas...

Sub Remplace()
Application.ScreenUpdating = False
[COLOR="Red"][B]ActiveSheet[/B][/COLOR].NumberFormat = "@"
For Each c In [COLOR="red"][B]ActiveSheet[/B][/COLOR]
c.Value = Replace(c, "0", "-", 1)
Next
End Sub

Une petite aide svp...

Merci infiniment, Hulk.

 

[noviceAG]

Re : Remplacer les 0

Bonjour Hulk, le Forum,


Et quelque chose comme ça :

Sub Remplace()
Application.ScreenUpdating = False
Sheets("Feuil1").Select
Selection.NumberFormat = "@"
For Each c In Selection
For Each c In Sheets("Feuil1")
c.Value = Replace(c, "0", "-", 1)
Next
End Sub

 

[kjin]

Re : Remplacer les 0

Bonsoir,

Sub Remplace()
Sub Remplace()
Application.ScreenUpdating = False
ActiveSheet.Cells.NumberFormat = "@"
For Each c In ActiveSheet.Cells
c.Value = Replace(c, "0", "-", 1)
Next
End Sub

Mais est-ce bien raisonable ?!
A+
kjin

 

[Hulk]

Re : Remplacer les 0

Hello, Slt Novice,

Hm il y a deux For Each c donc erreur... j'ai essayé avec For Each c in Sheets("Feuil1") ainsi que l'autre, mais non.

Bref, vais plutôt faire comme ça

Sub Remplace()
Application.ScreenUpdating = False
[A1:C20].Select
Selection.NumberFormat = "@"
For Each c In Selection
c.Value = Replace(c, "0", "-", 1)
Next
[A1].Select
End Sub

Finalement mieux pour moi car au fait pas tous les 0 doivent être remplacés, et là je lui défini une zone à remplacer.

Merci quand même pour ton aide Novice.

Remarque si on arrive à l'appliquer sur toute la feuille...

Cdt, Hulk.

 

[Hulk]

Re : Remplacer les 0

Yop Kjin,

Ben tu vois je commencais à me dire que c'est mieux dans une zone définie...

Bref, j'vois que je n'étais pas loin... manquait les Cells... 😡 😀

Merci à vous !

Cdt, Hulk.