déterminer si une plage de cellules est vide

J

jeckil

Guest

• 23 Mars 2004

• #2

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, @+

 

Vote positif 0 Vote négatif

D

daniel

Guest

• 23 Mars 2004

• #3

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

 

Vote positif 0 Vote négatif

M

michel

Guest

• 23 Mars 2004

• #4

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

 

Vote positif 0 Vote négatif

D

daniel

Guest

• 23 Mars 2004

• #5

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

 

Vote positif 0 Vote négatif

T

Ti

Guest

• 23 Mars 2004

• #6

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

 

Vote positif 0 Vote négatif

J

jeckil

Guest

• 23 Mars 2004

• #7

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

 

Vote positif 0 Vote négatif

D

daniel

Guest

• 23 Mars 2004

• #8

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

 

Vote positif 0 Vote négatif