VBA - conserver couleur de fond
Metaux
Messages postés
49
Statut
Membre
-
Metaux Messages postés 49 Statut Membre -
Metaux Messages postés 49 Statut Membre -
Bonjour,
J'ai un fichier excel avec 2 feuilles.
Sur la feuille 1 on retrouve des données sur 4 colonnes : Sélection, Profilé, Qté, Longueur ; les données sont étalées sur plusieurs rangées (parmi ces rangées, certaines cellules sont remplies en jaune)
Lorsque dans ma colonne sélection il y a un X, une macro s'occupe de retourner sur la feuille 2 les colonnes Profilé, Qté, Longueur ;
2 objectifs:
Mon 1er objectif: je veux que toute les cellules remplies de jaune qui sont retournées sur ma feuille 2 et bien que le jaune apparaisse aussi.
Mon 2e objectif (PS oublions mtn le jaune), je voudrais que sur ma feuille 2, les rangées soient remplies en alternance gris pâle et gris
Merci !
J'ai un fichier excel avec 2 feuilles.
Sur la feuille 1 on retrouve des données sur 4 colonnes : Sélection, Profilé, Qté, Longueur ; les données sont étalées sur plusieurs rangées (parmi ces rangées, certaines cellules sont remplies en jaune)
Lorsque dans ma colonne sélection il y a un X, une macro s'occupe de retourner sur la feuille 2 les colonnes Profilé, Qté, Longueur ;
2 objectifs:
Mon 1er objectif: je veux que toute les cellules remplies de jaune qui sont retournées sur ma feuille 2 et bien que le jaune apparaisse aussi.
Mon 2e objectif (PS oublions mtn le jaune), je voudrais que sur ma feuille 2, les rangées soient remplies en alternance gris pâle et gris
Merci !
1 réponse
-
Bonsoir
Ce serait plus simple avec un exemple du fichier (et de la macro), à poster sur cjoint.com, faire créer le lien et revenir ici indiquer le lien fourni
Cdlmnt
Via
-
- Re,
1) pour avoir les cellules en jaune, rajouter cette ligne dans la boucle For de la macro :Cells(ligne, 1).Interior.ColorIndex = Sheets("Données").Cells(i, 2).Interior.ColorIndex
2) Pour colorer en gris une bande sur deux, selectionner la plage désirée (par ex A7:H100), Mise en forme conditionnelle - Nouvelle règle - Utiliser formule et entrer la formule :
=EST.PAIR(LIGNE()) avent de choisir le format de remplissage voulu
Si tu veux les lignes impaires d'une autre couleur il suffit de selectionner la plage et de lui appliquer cette couleur
Cdlmnt
Via
-
-
