Bonjour Pierre, le Forum
Tu pouvais rester dans le même Fil de Discussion =>
Lien supprimé
Tu devrais lire notre
Charte pour comprendre comment être "XLD-Compliant".
Maintenant ton histoire est différente de celle d'hier "
Pour corser le tout, j'ai dans chaque feuillle, en cellule D4: un intitulé
Si il n'y a aucune donnée mais qu'une shape (bouton rectangle !!!) alors uin code comme ceci devrait convenir :
Sub TousLesBoutonMenentAlaFeuille()
Dim WS As Worksheet
Dim TheButtonText As String
Set WS = ActiveSheet
TheButtonText = WS.Shapes(1).TextFrame.Characters.Text
TheTestingBlankSheet TheButtonText
End Sub
Sub TheTestingBlankSheet(TheSheet As String)
Dim UsedCell As String
Dim Cell As Range
On Error GoTo Out
With Sheets(TheSheet)
UsedCell = .UsedRange.Address
If UsedCell = "$A$1" Then
If Range("A1") = "" Then
MsgBox "Il n'y a pas de données en feuille " & TheSheet
End If
Else
.Activate
End If
End With
Exit Sub
Out:
MsgBox "Le Bouton " & TheSheet & " ne contient pas un nom de feuille"
End Sub
NB ceci est subordonné que tous tes Shapes "Bouton rectangle" contiennent bien un Nom de Feuille Valide ! et aussi que ce soit les seuls sur la feuille (Index Numéro 1 !!!) sinon il faut les nommer identiquement par exemple "BoutonSheet" et changer cette ligne :
TheButtonText = WS.Shapes(1).TextFrame.Characters.Text
Par :
TheButtonText = WS.Shapes("BoutonSheet").TextFrame.Characters.Text
Bonne Soirée
@+Thierry