Précédent suivant

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 898 fois - Téléchargée 59 fois

Commenter

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_cybil Messages postés 1 Date d'inscription mercredi 9 juin 2004 Statut Membre Dernière intervention 31 décembre 2004
31 déc. 2004 à 10:04
Ca m'a bien servi moi

Merci de respecter un minimum le boulot des autres
cs_Isa45 Messages postés 7 Date d'inscription mercredi 30 janvier 2002 Statut Membre Dernière intervention 27 octobre 2003
1 févr. 2002 à 13:28
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!!!!!!!!!!!!!!!
S'inscrire maintenant

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.

Du même auteur (Zackarry)