TAM136 a écrit :
J'ai une solution qui n'est pas forcément la plus simple.Il y a surement plus simple mais en attendant, je te la propose.Il s'agit de la macro suivante:
Sub DeleteDoubleZero()
For i = 1 To 8
'Tu remplaces 8 par ta dernière ligne
For j = 1 To 1
'Je suppose que tu n'as qu'une colonne
Cells(i, j).Select
If Cells(i, j) = 3# Or Cells(i, j) = 6# Or Cells(i, j) = 4# Then
'Tu continues bien sûr Or Cells(i, j) = 7,8...
Selection.NumberFormat = "0"
End If
Next j
Next i
End Sub
Je suppose que tes cellules sont au format nombre et que tu as donc: 3,00 par exemple.
|