Précédent suivant

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

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.