déterminer si une plage de cellules est vide

[daniel]

Bonsoir le forum !

Une question toute bête...Comment tester si une plage de cellules (ex : A1 C13) est vide ?
J'ai essayé :

If range ("a1:c13")="" then ...

mais ça ne marche pas...

Pouvez vous m'aider ?

Bonne soirée à toutes et tous

Daniel

 

[jeckil]

Salut daniel, tu peux taper une formule matricielle dans la feuille de calcul
avec ton exemple ça donne =ESTVIDE(A1:C13) et tu valide en appuyant sur les touches Ctrl+shift+entrée, dans la barre de formule tu va voir inscrit {=ESTVIDE(A1:C13)}
ça devrait rouler.
tcao, @+

 

[daniel]

merci mais

j'ai oublié de préciser que je voulais effectuer ce test via VBA (macro dans un module). Mais merci de m'avoir répondu

Bonne soirée

Daniel

 

[michel]

bonsoir Daniel , bonsoir Jeckil

j'espere que l'exemple ci dessous pourra t'aider


Sub ControleCellules()
Dim Cell As Range
Dim Resultat As String

For Each Cell In Range("A1:C13")
If Not Cell = "" Then
Resultat = Resultat & Cell.Address & Chr(10)
End If
Next Cell

If Resultat = "" Then
MsgBox "La plage de cellule est vide"
Else
MsgBox Resultat, vbInformation, "liste des cellules non vides dans la selection . "
End If

End Sub


bonne soiree
michel

 

[daniel]

ca a marché

Merci beaucoup pour ton aide ! et en plus, je n'en demandais pas autant lol ! Maintenant, j'ai même la liste de mes cellules non vides...

Bonne soirée et encore merci
Daniel

 

[Ti]

tu peux simplement passer par worksheetfunction

Dim Plage As Range
Set Plage = Range("A1:C15")
MsgBox WorksheetFunction.CountA(Plage)

(attention n'est précis que s'il n'y a pas de formules dans les cellules, sinon NBVAL compte les cellules qui en contiennent comme des formules non vides, mais tu peux aussi utiliser d'autres fonctions...)

et pour compter les vides :

MsgBox WorksheetFunction.CountBlank(Plage)

Ca va plus vite qu'avec une boucle

 

[jeckil]

salut michel et re daniel
Je crois que ton code va m'être utile pour definir la liste des non vides
merci encore, @+

 

[daniel]

ca marche nickel

merci bcp Ti,

bon... j'avais un problème, et j'ai maintenant plusieurs solutions ! ç'est-y-pas beau ?
Merci à tous pour votre aide,

Bonne soirée

Daniel