Effacer si cellule remplie, mettre "X" si cellule vide

[mounier1950]

Bonjour à tous et à tous,

Je vous félicite pour votre travail (un peu de flagornerie).

Ma question me fait rougir et va vous sembler ridicule, mais voilà :

Soit une grille de chiffres (de A3 à C3 par ex) qui contient des cases vides.

- si une cellule contient un chiffre il faut effacer le chiffre, elle devient donc vide
- si une cellule est vide, il faut la remplir par un "X"

Si vous pouviez m'aider ...

 

[Fredevils]

Re : Effacer si cellule remplie, mettre "X" si cellule vide

bjr

pourrais tu mettre un fichier d'exemple de ce que tu veux . Parce que la si la grille A3:C3 est vide comment peut elle avoir des chiffres dedans?

 

[Oranger]

Re : Effacer si cellule remplie, mettre "X" si cellule vide

Bonjour, Je te propose ça:


Sub test()
'déclaration
Dim myRange As Range
Dim cell As Range
Set myRange = ActiveSheet.Range("A3:C3")

'on boucle sur la plage
For Each cell In myRange
'si la plage est vide on efface
If cell <> Empty Then
cell.Clear
Else
'sinon on met un X
cell = "X"
End If
Next
End Sub