vba excel si on n'est pas sur la feuille X,Y,Z alors

[andrekn13]

Bonjour à tous
le titre est j'espère assez explicite
Sur worbook j'aimerais que toutes mes feuilles soient , à l'ouverture, déjà bien positionnées donc j'ai créé :
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveWindow.SmallScroll Down:=-42
'positionnement
ActiveWindow.SmallScroll Down:=9
end sub
j'aimerais exclure les 3 premières feuilles et adapter :

If Not Sh.Name <> "Synthèse" Then
ActiveWindow.SmallScroll Down:=-42
ActiveWindow.SmallScroll Down:=9
End If

mais j'y arrive pas
Si quelqu'un connaît la bonne syntaxe, se serait sympa

 

[Yaloo]

Re : vba excel si on n'est pas sur la feuille X,Y,Z alors

Salut André, le forum,

Peut-être que ces quelques lignes te permettrons de réaliser ta macro

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Index > 3 Then [A1] = "Coucou"
End Sub

Pour positionner à une cellule précise tu peu utiliser

Application.Goto [C10], -1

A+

Martial

 

[andrekn13]

Re : vba excel si on n'est pas sur la feuille X,Y,Z alors

Bonsoir martial
Comme dab tu me réponds ! je t'en remercie
Cela marche nickel
et par curiosité pourquoi
If Not Sh.Name <> "Synthèse" Then ne fonctionne pas
ou plus simplement , du style
if not sheets("untel").select then ....

 

[Yaloo]

Re : vba excel si on n'est pas sur la feuille X,Y,Z alors

Bonsoir André,

If Not Sh.Name <> "Synthèse" , si on raccourci un peu cela revient à dire Si le nom de la feuille = Synthèse donc ça devait fonctionner que si tu activais la feuille Synthèse.
Tout dépends comment est réglé VBE, mais il suffit de taper Sheets( pour avoir la suite à savoir un Index


A+

Martial

 

[andrekn13]

Re : vba excel si on n'est pas sur la feuille X,Y,Z alors

je pense avoir compris. Pourtant comme je dis " if not" c'est que justement il ne faut pas que je le"select" pour avoir "then" !

 

[Yaloo]

Re : vba excel si on n'est pas sur la feuille X,Y,Z alors

Négatif + Négatif = Positif

Tu écris : "Si le nom de l'onglet n'est pas différent de Synthèse" ce qui revient à dire "Si le nom de l'onglet est Synthèse".

+A

 

[andrekn13]

Re : vba excel si on n'est pas sur la feuille X,Y,Z alors

ben ça alors ....ça marche , j'ai mis :
If Sh.Name <> "Synthèse" Then
Martial , je garde ton code qui est plus classe, mais je voulais comprendre mon erreur
Trop gentil de ta part