A voir également:
- Colorer un groupement de ligne sur 2
- Comment créer un groupe whatsapp - Guide
- Site de vente en ligne particulier - Guide
- Partage de photos en ligne - Guide
- Aller à la ligne sur excel - Guide
- Apparaitre hors ligne instagram - Guide
5 réponses
eriiic
Messages postés
24570
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
23 avril 2024
7 213
Modifié le 12 août 2019 à 11:14
Modifié le 12 août 2019 à 11:14
Bonjour,
ça nous inspirerait plus si on savait ce qui détermine un groupement, quelles colonnes colorer, et qu'on avait un fichier en situation (sans données personnelles) pour tester..
cjoint.com et coller ici le lien fourni.
eric
ça nous inspirerait plus si on savait ce qui détermine un groupement, quelles colonnes colorer, et qu'on avait un fichier en situation (sans données personnelles) pour tester..
cjoint.com et coller ici le lien fourni.
eric
Merci pour le retour, j'ai édité et rajouté une image.
Le but est de colorer toute la ligne à chaque fois.
Le but est de colorer toute la ligne à chaque fois.
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
Modifié le 12 août 2019 à 13:06
Modifié le 12 août 2019 à 13:06
Bonjour;
Voir ceci pour déterminer les cellules fusionnées:
https://www.commentcamarche.net/faq/18089-vba-tester-une-plage-qui-contient-des-cellules-fusionnees
et cela pour les couleurs:
https://www.excel-pratique.com/fr/vba/couleurs.php
voici un exemple à adapter:
Voir ceci pour déterminer les cellules fusionnées:
https://www.commentcamarche.net/faq/18089-vba-tester-une-plage-qui-contient-des-cellules-fusionnees
et cela pour les couleurs:
https://www.excel-pratique.com/fr/vba/couleurs.php
voici un exemple à adapter:
Sub ligneAvecMerge() Dim Lig As Long Dim Col As Integer Dim Mot As String Dim Mg, TB Dim plage 'pour l'exemple, la colonne à tester = A a adapter Col = 1 ' Mot = "1" 'remplacer <bold>LeMot</bold> par celui que vous désirez chercher For Lig = Cells(65536, Col).End(xlUp).Row To 1 Step -1 Set Mg = Cells(Lig, Col).MergeArea TB = Split(Mg.Address, ":") ' If Cells(Lig, TB(0)).Value = Mot Then ' Rows(Lig).Delete ' End If Next Lig plage = Replace(Mg.Address, "$A$", "") 'supprime $A$ Rows(plage).Interior.ColorIndex = 3 ' rouge End Sub 'https://www.commentcamarche.net/faq/18089-vba-tester-une-plage-qui-contient-des-cellules-fusionnees 'https://www.excel-pratique.com/fr/vba/couleurs.php
goldi3131
Messages postés
13
Date d'inscription
lundi 12 août 2019
Statut
Membre
Dernière intervention
17 mars 2024
13 août 2019 à 10:37
13 août 2019 à 10:37
Merci mais je n'ai pas compris la façon d'identifier les cellules. En effet ton lien renvoie à un test qui "consiste à rechercher un mot dans la colonne E et à supprimer la ligne correspondante si le mot est trouvé dans une des cellules de la colonne E."
Je veux pour ma part faire une ligne sur 2.... !?
Je veux pour ma part faire une ligne sur 2.... !?
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
Modifié le 13 août 2019 à 11:10
Modifié le 13 août 2019 à 11:10
J'ai mis voici un exemple à adapter:
le code de suppression était en commentaire!
voici un exemple à télécharger:
https://www.cjoint.com/c/IHniRDnPN5Q
et voilà le code:
@+
le code de suppression était en commentaire!
voici un exemple à télécharger:
https://www.cjoint.com/c/IHniRDnPN5Q
et voilà le code:
Sub ligneAvecMerge() Dim Lig As Long Dim Col As Integer Dim Mg Dim plage 'pour l'exemple, la colonne à tester = A a adapter Col = 1 ' For Lig = Cells(65536, Col).End(xlUp).Row To 1 Step -1 Set Mg = Cells(Lig, Col).MergeArea If Cells(Lig, 1).Value Mod 2 = 0 Then 'nombre pair plage = Replace(Mg.Address, "$A$", "") 'supprime $A$ Rows(plage).Interior.ColorIndex = 23 ' bleu Else 'nombre impair plage = Replace(Mg.Address, "$A$", "") 'supprime $A$ Rows(plage).Interior.ColorIndex = 6 ' jaune End If Next Lig End Sub
@+
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Pas arrivé mais je vais essayer de trouver autre chose, merci quand même :)
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
5 sept. 2019 à 18:16
5 sept. 2019 à 18:16
Même avec cet exemple!
https://www.cjoint.com/c/IIfqpqAIkNQ
@+ Le Pivert
https://www.cjoint.com/c/IIfqpqAIkNQ
@+ Le Pivert