P
Pierre
Guest
Bonjour le fourm
J"ai eu, hier, de la part de l'un d'entre-vous, ce petit bout de code qui me permet d'avoir un message me disant qu'il n'y a aucune donnée dans la feuille sélectionnée, si effectivement il n'y en a pas, à l'inverse, la feuille s'ouvre.
En testant ce code via mon fichier destination, dans tous les cas de figure, la feuille est activée(avec ou sans données),
Une erreur s'est peut être glissée dans mon raisonnement, car, ce n'est pas un bouton de commande, mais,c'est au bouton rectangle, que j'affecte la macro.Le code serait il différent ?
Sub LeBoutonTiti()
TheTestingBlankSheet "feuil1"
End Sub
Sub TheTestingBlankSheet(TheSheet As String)
Dim UsedCell As String
Dim Cell As Range
With Sheets(TheSheet)
If UsedCell = "$f$1" Then
MsgBox "Il n'y a pas de données"
Else
.Activate
End If
End With
End Sub
PS : pour les 8 rectangles, j'ajoute ce code en le modifiant selon les données que je veux aller chercher, ou, est-ce possible en fonction du texte nommant le rectangle de dire en VB :
Ouvrir la feuille dont le nom est dans l'intitulé du bouton
Si pas de données dans la feuille alors message : pas de données, si non, ouverture de la feuille.
Je vous remercie
J"ai eu, hier, de la part de l'un d'entre-vous, ce petit bout de code qui me permet d'avoir un message me disant qu'il n'y a aucune donnée dans la feuille sélectionnée, si effectivement il n'y en a pas, à l'inverse, la feuille s'ouvre.
En testant ce code via mon fichier destination, dans tous les cas de figure, la feuille est activée(avec ou sans données),
Une erreur s'est peut être glissée dans mon raisonnement, car, ce n'est pas un bouton de commande, mais,c'est au bouton rectangle, que j'affecte la macro.Le code serait il différent ?
Sub LeBoutonTiti()
TheTestingBlankSheet "feuil1"
End Sub
Sub TheTestingBlankSheet(TheSheet As String)
Dim UsedCell As String
Dim Cell As Range
With Sheets(TheSheet)
If UsedCell = "$f$1" Then
MsgBox "Il n'y a pas de données"
Else
.Activate
End If
End With
End Sub
PS : pour les 8 rectangles, j'ajoute ce code en le modifiant selon les données que je veux aller chercher, ou, est-ce possible en fonction du texte nommant le rectangle de dire en VB :
Ouvrir la feuille dont le nom est dans l'intitulé du bouton
Si pas de données dans la feuille alors message : pas de données, si non, ouverture de la feuille.
Je vous remercie