Tester si feuille active

papy 73 ans

XLDnaute Occasionnel
Bonjour chers amis
Je voudrais tester si la feuille active est bien celle figurant en G7 de la feuil1
Le code que j'ai fait n'est pas bon, merci de me corriger.
VB:
Sub test2()
Dim i As Byte
i = ActiveSheet.Index
i = ("Feuil1") = ([G7])
        MsgBox "C'est Juste"
End Sub
 

job75

XLDnaute Barbatruc
Bonjour papy 73 ans,

Si en G7 se trouve le nom (Name) d'une feuille :
Code:
Sub test()
If ActiveSheet.Name = CStr([G7]) Then MsgBox "C'est juste"
End Sub
CStr pour le cas où il y aurait une valeur d'erreur en G7.

PS : la casse (majuscules/minuscules) doit être respectée.

A+
 

Chris24

XLDnaute Impliqué
Bonsoir papy 73 printemps

Si c'est bien l'index de la feuille que tu écris en G7

VB:
Sub test2()
Dim i As Byte, j
i = ActiveSheet.Index
j = Sheets("Feuil1").[G7]
    If j = i Then MsgBox "C'est Juste"
   
' OU PLUS COURT
If ActiveSheet.Index = Sheets("Feuil1").[G7] Then MsgBox "C'est Juste aussi"
End Sub

Bonne soirée

Edit de ce matin "ou plus court"
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof