Tester si feuille active

job75

XLDnaute Barbatruc

• 28 Février 2018

• #2

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+

 

Vote positif 0 Vote négatif

Chris24

XLDnaute Impliqué

• 28 Février 2018

• #3

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: 1 Mars 2018

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 28 Février 2018

• #4

Bonsoir job75 🙂, papy

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 28 Février 2018

• #5

Bonsoir Chris24, Lone-wolf,

Oui Chris c'est probablement ce que veut faire papy.

A+

 

Vote positif 0 Vote négatif

papy 73 ans

XLDnaute Occasionnel

• 1 Mars 2018

• #6

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

 

Vote positif 0 Vote négatif

papy 73 ans

XLDnaute Occasionnel

• 1 Mars 2018

• #7

Re,
Bon ça ne va pas, je vous met le classeur
Voir Mod_Test
En vous remerciant

 

Pièces jointes

• papy 73 ans.xls

  121 KB · Affichages: 27

Vote positif 0 Vote négatif

papy 73 ans

XLDnaute Occasionnel

• 2 Mars 2018

• #8

Je remet le classeur en vous remerciant

 

Pièces jointes

• papy 73 ans.xls

  120.5 KB · Affichages: 30

Vote positif 0 Vote négatif