Précédent suivant

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 429 fois - Téléchargée 57 fois

Contenu du snippet

Active les feuilles précédentes ou suivante dans un classeur excel

Source / Exemple :


Sub AvanceFeuille()
    NbFeuilles = Sheets.Count
    NomFeuilleActive = ActiveSheet.Name
    For z = 1 To NbFeuilles
        FeuilleEnCours = Sheets(z).Name
        If FeuilleEnCours = NomFeuilleActive Then Exit For
    Next z
        If z = NbFeuilles Then
            MsgBox "J'aime pas l'chocolat."
            Exit Sub
        End If
    Sheets(z + 1).Activate
End Sub

Sub ReculeFeuille()
    NbFeuilles = Sheets.Count
    NomFeuilleActive = ActiveSheet.Name
    For z = 1 To NbFeuilles
        FeuilleEnCours = Sheets(z).Name
        If FeuilleEnCours = NomFeuilleActive Then Exit For
    Next z
    If z = 1 Then
        MsgBox "Hier j'ai mangé des nouilles."
        Exit Sub
    End If
    Sheets(z - 1).Activate
End Sub

Conclusion :


Zack, toi qui es tout plein risolet d'habitude, pourquoi ne peux-tu pas te tenir d'agoniser de sottises cette colombe? Que tu es franc rogneux tout par un coup! Que Dieu te patafiole, espèce de grand gognan, en place de te sampiller avec toutes les fenottes qui font esqueprès de te lancer des fions, tu ferais mieux de nous livrer une de tes épatrouillantes gognandises de bazu borjolais! Vas-tu ben te taire, grande bajafle! A force que tu leurs cherches des pouillons dans la paille, elles vont se revenger et t'échavasser tant que le dessus de ta caboche sera aussi vide que le dedans.

Pardon de me marcourer le menillon, mais que t'as donc à rebiquer à ces catolles qui te bourreaudent tant que la barbe en fume? Nom d'un rat, si ça veut pas y faire, cesse de te comporter en cogne-mou et tâche donc de rentrer dans ta cabiotte si t'es trop crevogné, occupe-toi de ton ordiniau qu'est tout détrancané à force de l'abistronier avec ta longue-dame de bredouillon!
Allez mon gone, j'arrête de t'agromander et j'appose mes amicales salutances avant mon pataraphe.

A voir également

Ajouter un commentaire

Commentaires

cs_Isa45
Messages postés
7
Date d'inscription
mercredi 30 janvier 2002
Statut
Membre
Dernière intervention
27 octobre 2003
-
Encore une procedure pour rien. L'Equipe d'Excel a mis à ta disposition des boutons de navigation pour faire la même chose. (ces boutons se trouvent en bas à gauche de ton écran)
mdrrrrrrrrrrrrrrrrrrrrrrr!!!!!!!!!!!!!!!
cs_cybil
Messages postés
1
Date d'inscription
mercredi 9 juin 2004
Statut
Membre
Dernière intervention
31 décembre 2004
-
Ca m'a bien servi moi

Merci de respecter un minimum le boulot des autres

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.