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
 
Dans un tableau, appliquer une couleur à une ligne

Dans un tableau, appliquer une couleur à une ligne lors de la sélection d'une cellule

tablo.jpg

code à coller dans un module de feuille :

Modules_feuille.jpg

Option Explicit

'"Tablo" est la plage à définir (menu/insertion/nom/définir) et dans laquelle l'événement se produira.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Macro par Dan - Belgique pour VERITI - le 07/02/06
'Correction d'un Beug de ligne le 12/11/06
'Macro couleur sur ligne sélectionnée
Dim Lig As Range
Dim Col As Variant
Application.ScreenUpdating = False
'On enlève les couleurs dans la plage "Tablo"
Range("Tablo").Interior.ColorIndex = -4142
'Définition de "Col" -> on cherche le nombre de colonnes dans la plage "Tablo"
Col = Range("Tablo").Columns.Count
'Définition de "Lig" -> ligne sélectionnée
Set Lig = Range(Cells(Target.Row, 1), Cells(Target.Row, Col))
'si clic sur une colonne empêcher la première ligne de prendre la couleur
If Application.Intersect(ActiveCell, Range("Tablo")) Is Nothing Then End
'on traite uniquement la zone "Tablo"
If Not Application.Intersect(Target, Range("Tablo")) Is Nothing Then
Lig.Interior.ColorIndex = 8
End If
Application.ScreenUpdating = True
End Sub
Retour menu TRUCS ET ASTUCES

Date de création : 18/02/2006 - 16:48
Dernière modification : 15/11/2006 - 16:02
Catégorie : Cel / Col / Lig
Page lue 2851 fois

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

 
Réactions à cet article

Réaction n°5 

par Duduleray le 27/05/2009 - 16:06

Salut a tous

bien, très bien ce code félicitations.

Question (1) Si je souhaite déplacer cette barre dans une plage avec la molette de la souris comment faire SVP

Question (2) J'ai vista et excel 2007 le programme VBScrool.exe est'il compatible vista svp

 Merci et encore bravo a vous

@+ Raymond

 

Réaction n°3 

par Brigitte le 21/02/2006 - 20:55

Trop fort, Dan, je garde soigneusement... En plus le rose est celui de Pinky... Ouarf Merci.

Réaction n°2 

par JPL62 le 20/02/2006 - 08:15

Bonjour,

Astuc(ieuse) et intéressante. Bravo. JPL

Réaction n°1 

par JPL62 le 20/02/2006 - 08:15

Bonjour,

Astuc(ieuse) et intéressante. Bravo. JPL
  afficher pagerank
 
Recherche sur VériTi
PROGRAMMES
Fichier


Recherche personnalisée
 
Aujourd'hui
Vendredi
10
Septembre 2010

Bonne fête à toutes les
Inès


C'était aussi un 10 Septembre
1915

Le premier numéro du Canard Enchaîné paraît en réaction au bourrage de crâne.

Né(e) un 10 Septembre 1524
Pierre de Ronsard
 
Connexion...
  Membres: 1661

Pseudo:

Mot de passe:

[ Mot de passe perdu ? ]

[ Devenir membre ]

  Membre en ligne: 0
  Anonymes en ligne: 37
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
2972 Abonnés
Dernière NEWS
 
Visites


1387355 

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