feuille vide renvoie msgbox

[Pierre]

Bonjour le forum

J'ai dans une feuille intitulée Menu général plusieurs boutons de commande qui me permettent d'ouvrir des feuilles et analyser des données
Si, un bouton nommé "titi", le clic sur le bouton m'ouvre par exemple la feuille 2.
Je souhaiterais mettre un petit bout de code qui fasse ceci :
Si toutes les cellules de la feuil2 sont vides, alors msgbox "il n'y a pas de données"
Pour corser le tout, j'ai dans chaque feuillle, en cellule D4: un intitulé correspondant au bouton de commande, donc, correction de la condition d'avant :
si à l'exception de la cellule d4, il n'y pas d'autres données, alors message box renvoie "il n'y a pas de données"
Merci

 

[@+Thierry]

Salut Pierre, ultra rapidos sans trop tester....


Sub LeBoutonTiti()
TheTestingBlankSheet "Feuil2"
End Sub


Sub TheTestingBlankSheet(TheSheet As String)
Dim UsedCell As String
Dim Cell As Range

With Sheets(TheSheet)
UsedCell = .UsedRange.Address
If UsedCell = "$D$4" Then
MsgBox "Il n'y a pas de données en feuille " & TheSheet
Else
.Activate
End If
End With
End Sub

Bonne Soirée (là je file ou je vais être enfermé au bureau !! lol)
@+Thierry

 

[Pierre]

Merci bien Thierry et bonne soirée