Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

PRÉCÉDENT SUIVANT


Information sur la source

Catégorie :VBA Classé sous : classeur, excel Niveau : Débutant Date de création : 13/07/2001 Date de mise à jour : 28/07/2001 00:00:00 Vu : 2 493

Note :
7 / 10 - par 4 personnes
7,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10

Commentaire sur cette source (2)
Ajouter un commentaire et/ou une note

Description

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

Source

  • 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
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.

 

Commentaires et avis

signaler à un administrateur
Commentaire de Isa45 le 01/02/2002 13:28:16

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!!!!!!!!!!!!!!!

signaler à un administrateur
Commentaire de cybil le 31/12/2004 10:04:23

Ca m'a bien servi moi

Merci de respecter un minimum le boulot des autres

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Ouverture d'un classeur Excel en VBA pour Excel 95 : URGENT [ par Jean-Luc ] J'aimerai ouvrir des fichiers Excel en forçant la mise à jour des liaisons, et ce dans un programme en VBA pourExcel 95 (VBA en français).J'ai essayé HELP vba: automation excel: question facile? [ par sugus ] Bonjour,Novice en VB, j'ai un petit problème sur vba Excel.Je dois réaliser un module VBA intégré à un classeur Excel (97) qui charge un autre classe Comment interdir la copie d'un classeur excel [ par xavis ] salutje veux savoir comment je peux empecher les pirates de copier ou déplacer mon classeur excel vers un autre ordinateurMerci piloter excel par VB en annihilant les macros et evenements du classeur [ par lossvb ] pffff..., salut...Je sèche sur un problème... Je veux à partir d'access ouvrir un objet ole excel et le modifier.Tout ça je sais faire..Mais problème Supprimer une feuille d'un classeur Excel [ par eltaris ] Mon prog ouvre Excel et tape des infos dans la première feuille. Comme j'ouvre un nouveau document, le classeur excel contient 3 feuilles vierges (et Fermeture automatique d'un classeur Excel [ par JYM ] Quel évennement utiliser pour fermer automatiquement un classeur Excel resté ouvert sur un PC par exemple au bout de 15 minutes. Un exemple de code me Mettre à TRUE une propriété d'un classeur Excel [ par Edgar ] Bonjour,Je souhaiterais mettre à TRUE systématiquement une propriété d'un classeur Excel.Update Remote References est toujours à false à l'ouverture d mettre à True une propriété Excel [ par Edgar ] Bonjour,Je souhaiterais mettre à TRUE systématiquement une propriété d'un classeur Excel.Update Remote References est toujours à false à l'ouverture d interaction entre classeurs excel [ par franck ] est_il possible d'activer une feuille de type userform située dans un classeur a partir d'un autre classeur.J'ai tout essayé impossible de m'en sortir


Nos sponsors

Sondage...

CalendriCode

Janvier 2009
LMMJVSD
   1234
567891011
12131415161718
19202122232425
262728293031 

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :



Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,390 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.