Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

andrekn13

XLDnaute Occasionnel
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

XLDnaute Barbatruc
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

VB:
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

VB:
Application.Goto [C10], -1

A+

Martial
 

andrekn13

XLDnaute Occasionnel
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

XLDnaute Barbatruc
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
 

Pièces jointes

  • Index.jpg
    4.6 KB · Affichages: 27
  • Index.jpg
    4.6 KB · Affichages: 35

Yaloo

XLDnaute Barbatruc
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

XLDnaute Occasionnel
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…