Sub remplacer()
Dim c As Range
For Each c In Selection
c = "(" & c.Text & ")"
Next c
End Sub
Sub remplacerV2()
Dim c As Range
For Each c In Selection
c.Value = IIf(c.Row Mod 2 = 1, "'(" & c.Text & ")", c)
Next c
End Sub
ooaauh merci ça marche super! vraiment pratique, je vais gagner de précieuses minutes!
Nous étions sur une colonne (ici la colonne B)En fait, je souhaite mettre entre () mes chiffres mais qu'une ligne sur deux (par exemple B5 B7 B9...).
par exemple si je sélectionne une plage de cellule A1:G1
Sub remplacerV3()
Dim c As Range
For Each c In Selection
c.Value = IIf(c.Column Mod 2 = 1, "'(" & c.Text & ")", c)
Next c
End Sub