begin process at 2012 02 16 05:26:49
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

VBA

 > PRÉCÉDENT SUIVANT

PRÉCÉDENT SUIVANT


 Information sur la source

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

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
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 :3 224
Auteur : Zackarry

Ecrire un message privé
Site perso
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.


 Sources du même auteur

Source avec Zip CHANGER L'ICONE EXCEL
Source avec Zip CRÉATEURS DE MENUS
COMPTE A REBOURS
Source avec Zip EXCEL LISTBOX
Toutes les sources de Zackarry

 Sources de la même categorie

Source avec Zip GESTION PERSONNEL par oudlarbi
Source avec Zip Source avec une capture CALENDRIER EN VBA POUR EXCEL 2010 par nounou94
Source avec Zip Source avec une capture MANIPULER LES FENETRES ENFANT D'EXCEL par bigfish_le vrai
Source avec Zip Source avec une capture COLLECTION ID par Le Pivert
Source avec Zip Source avec une capture VBA MASQUE DE SAISIE NUMÉRIQUE par acive
Toutes les sources de la catégorie VBA

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture ÔTER PROTECTION FEUILLE D'UN CLASSEUR EXCEL & TROUVER MOT D... par stef68600
Source .NET (Dotnet) CODE PERMETTANT DE MANIPULER LES OBJETS EXCEL EN .NET par Drikce06
Source avec Zip Source .NET (Dotnet) TRIEUSE EXCEL AVEC VB.NET par Baguauda
MACRO POUR TRIER LES FEUILLES D'UN CLASSEUR EXCEL par ZTPdiffusion
TRIER LES FEUILLES D'UN CLASSEUR EXCEL par ZTPdiffusion

Commentaires et avis

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

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

Comparez les prix


Apple iPhone 4 Noir (16 Go)
Entre 0€ et 0€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), 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

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,030 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)