Désignation d'une cellule pleine
A
Bonjour,
J'ai écris le code suivant :
If ActiveCell.Value = IsNotEmpty Then
ActiveCell.Clear
End IfMon but est d'instaurer la condition suivante :
Si la cellule continent quelque chose alors supprimer
Mon problème est que je ne connais pas le code pour désigner une cellule pleine, IsNotEmpty ne fonctionne pas.
Connaissez vous, s'il existe, la formule permettant de désigner une cellule pleine ?
Merci de votre aide,
Bonjour,
If ActiveCell.Value <> "" Then
ActiveCell.Clear
End IfA+
F
Bonjour
Autre code avec isempty
Sub vide()
Sheets("Sources").Select
For i = 2 To 5
If IsEmpty(Range("B" & i)) = True Then
Range("C" & i).Formula = 1
Else
Range("C" & i).Formula = "r"
End If
Next i
End Sub
A toutes fins utiles
Cordialement
FINDRH