VBA : Savoir si une feuille est vide ?

[Creepy]

Bonjour à vous,

Je me pose une question. Existe-t-il en VBA un moyen simple de savoir si une feuille est vide ou pas ?

Genre un truc du genre activesheet.isempty ou isempty(activesheet) bref de ce genre quoi ! 😀

Quelqu'un connait un truc 😕

Merci d'avance.

Creepy (Qui aime bien les smiley !)

 

[Hervé]

Re : VBA : Savoir si une feuille est vide ?

salut creepy 🙂

tu pourrais faire une boucle sur chaque cellule de la feuille ?

j'rigole 😛


peut etre comme ca :

If Cells.Find("*") Is Nothing Then
MsgBox "vide"
Else
MsgBox "pas vide"
End If

salut

 

[Jacques87]

Re : VBA : Savoir si une feuille est vide ?

Bonjour Creepy

Voici une solution

Sub verre_vide_ou_plein()
If Cells.Find("*") Is Nothing Then
MsgBox ("ya rien")
Else
MsgBox "ya qqchose"
End If
End Sub

Elle n'est pas de moi mais de Jacques ..... Chaussart

Cordialement

 

[Gorfael]

Re : VBA : Savoir si une feuille est vide ?

Bonjour à vous,

Je me pose une question. Existe-t-il en VBA un moyen simple de savoir si une feuille est vide ou pas ?

Genre un truc du genre activesheet.isempty ou isempty(activesheet) bref de ce genre quoi ! 😀

Quelqu'un connait un truc 😕

Merci d'avance.

Creepy (Qui aime bien les smiley !)

Salut
Pas trouvé, mais essaie ça

Sub test()
Dim X
X = (ActiveSheet.UsedRange.Count = 1 And Range("A1") = "")
End Sub

 

[Jacques87]

Re : VBA : Savoir si une feuille est vide ?

Bonjour Hervé, et heureux de te retrouver

Le temps de faire une recherche sur le Net, tu m'as "brûlé" la priorité.

Bien cordialement, Jacques

 

[Creepy]

Re : VBA : Savoir si une feuille est vide ?

Re All,

Merci à tous, mais je vais garder la proposition de Hervé, comme je voulais un truc rapide, le test de toutes les cellules me semble pas mal !! 😀

Au fait je vous ai pas dit c'est pour le faire sous 2007 !! 😀

Plus sérieusement, merci de la réponse, j'aurais pu chercher sur Excelabo effectivement ! Mais je me précipite ici avant même de réflechir 30s !!

Merci à vous

Creepy