Accueil Plan du site Mini News Images Téléchargements Liens FAQ Livre d'or Stats Forums Calc VériTiThèque Excel
        
Programme à l'affiche

 
5 derniers Progs
 
Macros pour Excel
+ OOo
+ Cel / Col / Lig
+ Commentaires
+ Divers
+ Evènements
-  Feuille
+ Fichier
+ Images
+ Impression
+ Souris
+ Trucs et astuces
+ Userform
 
Programmes
+ Acyd (Label Ti)
+ ComTi (Label Ti)
+ Gadget VISTA
+ Label OOo
+ Label Veri
+ Label VeriTi
+ Label Excel
+ Label Excellois
+ Label Ti
 
Diaporama
 Chat
 Concours DESSIN
 Détente VériTi
 EXCEL Insolite
 Halloween
 Programmes
 Rencontre Excélien(ne)s
 VeriTi au sommet
 
Détente Flash
+ Beer monster
+ Carte
+ Chasse la dinde
+ Mah Jong
+ Methode de calcul
+ PacMan
+ Plateau
+ Pub Citroen
+ Tetris
+ Yeti Sport
 
Tag VeriTi
images multiples images multiples images multiples BDD base de données (prog) Faire coincider un objet dessin avec une cellule ou un groupe de cellules Configest Format téléphone par formule - format SS Tétris Acyd (version 1.9) Menu Outils Insérer image graphique Image en transparence PPS 13 Morpion Les commandes courantes DirListeTi DirListeTi Planning annuel Pendu Macro liste déroulante Macro liste déroulante Ajouter une liste personnalisée dans Excel Compter les couleurs Liste déroulante avec plusieurs colonnes Nombre de couleur somme des couleurs Passer à la ligne dans une cellule Ajuster au mieux la hauteur de ligne / largeur de colonne Appliquer un commentaire baladeur dans une cellule Dans un tableau, appliquer une couleur à une ligne Caractères de déclaration de variables Caractères spéciaux avec ALT+ chiffres Masquer / Afficher colonnes Copier coller une valeur en bloc Copier l'icône d'un bouton Dans un tableau, appliquer une couleur à une ligne Foot Ligue1 2006 Démo WebBrowser Faire une sélection de cellules par ligne ou colonne ZipTi 2.1 ZipTi 2.1 Calculatrice / convertisseur CalcTi Insérer un commentaire dans une formule Touche de raccourci ALT sélectionner rapidement la zone A5:A100 sans la souris. Déplacer un bouton Liste triée des feuilles Touche de raccourci Général Incrémenter nom de feuille Sudoku_Ti Afficher l'occurence Afficher selon clic Code d'ouverture Lister les feuilles Mettre un lien VeriTi Scrabble Liste déroulante Appliquer un lien Hypertexte qui n'en est pas un VeriTi Scrabble Codes Barre Commentaire conditionnel Stats VeriTi Stats VeriTi BDD base de données (didac) Retirer la protection d'un fichier Acyd (version 1.9) Afficher nom feuille Carnet de notes (SM) Acyd 97 (version 1.05) Acyd 97 (version 1.05) Format conditionnel Codes couleurs VBA Tétris Inventaire restaurant Inventaire restaurant Liste de choix Menu Fenêtres Sauvegarde incrémentée (Add-on) PPS 05 Combinaisons et Permutations PPS 18 PPS 17 Insérer la formule PPS 16 Guide de prise en main OOo v2 PPS 14 ComTi PPS 15 MFC_Publipostage Chiffres en lettre Registres Cryptage Menu Affichage Didacticiel OOo version 2 Menu Données Menu Edition Menu Fichier Menu Format Menu Insertion Lettre colonne Remplir un tableau Mise en forme Afficher les commentaires Appliquer un commentaire Commentaire personnalisé Image en transparence Lister les commentaires Répertorier les commentaires Masquer les commentaires Afficher macro Dessiner des cadres Supprimer les commentaires Raccourci Procédures évènementielles Compteur sur clic Déclencher un son Raccourci clavier Désactiver l'option Interrompre boucle Compagnon Saut de page Afficher nom classeur Chercher un mot Colorer l'onglet Masquer feuilles Copier/Coller valeurs Copier/Coller zone Dernière feuille Extraire tous les mots Détection doublon Fonction Majuscule / Minuscule Savoir si feuille existe Lister fichiers TXT Sélection d'images Insérer dans une shape Insérer image graphique Liste de choix perso Répertorier commentaire Convertir très simplement des chiffres en lettres En VBA, remplacer le code de direction Extraire la première lettre d'un Prénom et NOM Incrémenter un nombre Insérer des caractères spéciaux dans un format personnalisé Effectuer une recherche sur l'ensemble d'un classeur Tableau croisé dynamique Placer un logo sur une feuille Permettre le défilement de la souris dans VBA Se déplacer dans une feuille sur la dernière cellule non vide Remplacer la fonction CONCATENER par & Pour saisir plus rapidement les formats heures Touche de raccourci MAJ Touche de raccourci CTRL Signer un document Fermer automatiquement Recherche d'un mot Gestion Images Didacticiel OOo ComTi Equivalence couleurs Guide de prise en main OOo Nombre en lettre Horloge pour CALC V 2.0 Horloge pour CALC V 1.0 Planning annuel Compil de Ti Wiki Veriland Séquences Graphiques (pdf) Le jeu du pendu mDF_Calendrier Fréquence Formules Excel I Filigrane / Excel Molette souris V 2.05 Filigrane / Excel Combinaisons et Permutations Astuce Daily Tip Chiffres en lettre Barre perso (démo) Ouvrir fichier TXT Mes macros Progress Bar Ti Formules Excel I Remplacer les valeurs des cellules Biorythme Carnet de notes (AM) Calendrier sous main Transformer un graphique en image Supprimer doublons Supprimer lignes vides Foot Ligue1 2006 Liste NOMS Carnet de notes (SM) 4 Trim Puissance 4 Cryptage Mes macros Trier les noms MFC_Publipostage Allumettes Enregistre DLL Formules traduites (Add-on) Polices Temporaires - Multi-copie Lister SONS Bilan cooperative Multi conversions Texte défilant Lister les noms Progress Bar Ti Calendrier personnalisable Easter Egg Boites de dialogue Registres StatTi Feux d'artifices Fractals Ajouter contenu cellule Bilan coopérative Décale Ti Sauve XLB MyInsert XLS 2 PDF Empêcher l'af1004317 Empêcher l'af1004317 Rencontre au sommet VériTi 08 Trucs et astuces spécial "Saint VALENTIN" ACYD et durée pour trouver le mot de passe Gadget sidebar Vista VeriTi dans la capitale Rencontre VériTi au sommet ... Installer un logiciel complet GRATUITEMENT ! L'essentiel est dans Excel ACYD et durée pour trouver le mot de passe Fêtes de fin d'année Rencontre VériTi au sommet ... VériTiThèque DICTIONNAIRES VériTi archivé ! Chorale de Noël Fêtes de fin d'année Choix d'une icône 500, un cadeau !!! VeriTi Meuh ! Recherche de fichiers Clé dynamométrique Trucs et astuces Clavier+ risque d’en séduire plus d’un ! Signal Spam Procédures OOo Journée du patrimoine Bulles Catalogue en flash Texter : évite les saisies répétitives méfiance eXPERT PDF 4 PRO Convertisseur PDF en TXT ACYD et durée pour trouver le mot de passe Range-Notes ASAP eXPERT PDF 4 PRO Spécial CALENDRIER Avis de maintenance Affichage des messages Convertisseur PDF en TXT Affichage des messages Anti spam ! Arabesque Antémémoire 2007 déjà une grande année !! Gérer les absences par code couleur Programmes et jeux 300000 visites Vulnérabilités critiques dans Firefox S'abonner au fil RSS VériTi Reconnaissance site et forum Les citrouilles Halloween VériTi Menu "rétractable" pour les forums Nouveau site Fenêtre Popup vacances scolaires Google document Hommage Zone accessible aux seuls membres ! Programmes et jeux Trucs et astuces add-on format heures Spécial CALENDRIER Fini le flash nouvel an ! Merci Nouveauté Nouveau diaporama Détente VériTi Tour de magie !!! 500 200000! Fonctions Excel Musée VériTi et 'pi' alors !! Fichiers PPS Menu rétractable Reflet d'image SPAMS = grrr! Ensembles thématiques Jeu VeriTi CHAMROUSSE Recherche Changement d'heure Moteur de recherche Et le père Noël !! FLASH spécial VeriTible QCM-JCGL Enfin du Plein Ecran sous FireFox Bulles Habit de Noel Fini les flocons Stats VériTi et Foot Barre de menu images multiples Fin du VériTible-QCM-JCGL Joyeux Noel Bonne année 09 Stats VeriTiMap Trucs et astuces spécial "Saint VALENTIN" VériTi archivé ! Fini les flocons Copier / Coller une sélection en temps qu'image Etonnant non ? Acyd Insérer rapidement la date dans Excel Pour insérer rapidement l'heure dans une cellule essai Nouveau style pour le forum Optimiseur de compression pour Excel... Installer un logiciel complet GRATUITEMENT ! Spécial CALENDRIER ASAP Programmes et jeux 300000 visites Reconnaissance site et forum Changement d'heure Trucs et astuces spécial "Saint VALENTIN" Signal Spam Google document 200000! Musée VériTi Dix millième Arabesque Tour de magie !!! QUELLE VERSION EXCEL UTILISEZ-VOUS ? Anti spam ! Déposer des fichiers de plus de 50 Ko dans le forum Trucs et astuces Un million de visiteurs ACYD et durée pour trouver le mot de passe L'essentiel est dans Excel Bulles Google document Nouveauté Quoi de neuf su le site ? FLASH spécial QUELLE VERSION EXCEL UTILISEZ-VOUS ? Trouver rapidement les commandes Excel 2003 / 2007 Add-On pour retrouver ses petits en passant en XL 2007

 
Nouvelles
 
Fonction

Utiliser la fonction "ScrollArea" sur plusieurs plages afin de délimiter chacune d'entre elles... L'exemple suivant permet de délimiter une ou plusieurs zones, et ce de manière très simple pour chacune des feuilles présentes dans le fichier...

Les plages accessibles sont définies dans les constantes Plage1 et Plage2 de la macro, qui fonctionne correctement même après l'ajout d'une nouvelle feuille. En cas de sélection d'une plage de plusieurs cellules dont certaines se trouvent en zone "non autorisée", la sélection est réduite aux seules cellules valides.
'*******************************
'code à coller dans ThisWorkbook
'*******************************
'
Option Explicit
'Ti xlti@wanadoo.fr
'mai 04

Const Plage1 = "$­A$­1:$­H$­100"
Const Plage2 = "$­P$­1:$­R$­100"

Dim ShCol As Collection

Private Sub Workbook_NewSheet(ByVal Sh As Object)
  Initialise
End Sub

Private Sub Initialise()
Dim Sh As Worksheet
  Set ShCol = New Collection
  For Each Sh In ThisWorkbook.Worksheets
    ShCol.Add "$­A$­1", Sh.Name
  Next Sh
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim Plage As Range
  On Error Resume Next
  With Sh
    If ShCol Is Nothing Then Initialise
    Set Plage = Intersect(Target, Union(.Range(Plage1), .Range(Plage2)))
    If Plage.Count <> Target.Count Then
      If Plage Is Nothing Then Application.Goto .Range(ShCol(.Name)) _
        Else Plage.Select
    Else
      ShCol.Remove .Name
      ShCol.Add Target.Address, .Name
    End If
  End With
End Sub



Date de création : 24/05/2005 - 19:00
Dernière modification : 25/05/2005 - 22:53
Catégorie : Feuille
Page lue 3335 fois

Prévisualiser la page Prévisualiser la page     Imprimer la page Imprimer la page

 
Réactions à cet article

Personne n'a encore laissé de commentaire.
Soyez donc le premier !
  afficher pagerank
 
Recherche sur VériTi
PROGRAMMES
Fichier


Recherche personnalisée
 
Aujourd'hui
Mercredi
08
Septembre 2010

Aujourd'hui :
Nativité


C'était aussi un 08 Septembre
1994

Les Soviétiques et les Alliés quittent Berlin après 49 ans d'occupation.

Né(e) un 08 Septembre 1910
Jean-Louis Barrault
 
Connexion...
  Membres: 1660

Pseudo:

Mot de passe:

[ Mot de passe perdu ? ]

[ Devenir membre ]

  Membre en ligne: 0
  Anonymes en ligne: 38
Webmaster - Infos
 
Newsletter VériTi
Pour avoir des nouvelles de ce site, inscrivez-vous à notre Newsletter.
S'abonner
Se désabonner
Merci de recopier le code numérique ci-dessus
captcha
2956 Abonnés
Dernière NEWS
 
Visites


1384426 

visiteurs
 
d'où venez-vous ?
 
^ Haut ^

- ©VériTi V.3 - 2004 / 2010 - V.LOHR (Vériland) T.POURTIER (Ti) -
Nuxit
  Site créé avec GuppY v4.5.5 © 2004-2005 - Licence Libre CeCILL