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é
Supporter XLD
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:

papy 73 ans

XLDnaute Occasionnel
Bonjour job75, Chris24, Lone-wolf,
Je vous remercie de votre participation et pour vos réponses.
Je vais tester et vous tenir au courant.
 

Discussions similaires


Haut Bas