A voir également:
- Masquer ligne contenant une cellule de couleur
- Aller à la ligne dans une cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
- Site de vente en ligne particulier - Guide
- Partage de photos en ligne - Guide
- Excel compter cellule couleur sans vba - Guide
1 réponse
via55
Messages postés
14494
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
26 octobre 2024
2 734
2 août 2016 à 01:12
2 août 2016 à 01:12
Bonsoir
1) si tu veux masquer les lignes il faut mettre la propriété Hidden à True et non à False
2) Il faut en fin de macro remettre le rafraichissement écran avec :
Application.ScreenUpdating = True
Cdlmnt
Via
1) si tu veux masquer les lignes il faut mettre la propriété Hidden à True et non à False
2) Il faut en fin de macro remettre le rafraichissement écran avec :
Application.ScreenUpdating = True
Cdlmnt
Via
2 août 2016 à 10:08
Merci pour ta réponse rapide via55.
J'ai réalisé les modifications, seulement toujours rien.
Cdlmt
Modifié par via55 le 2/08/2016 à 11:09
Chez moi le code marche parfaitement
Deux possibilités de disfonctionnement :
- la couleur jaune de coloration n'est pas celle de code 6, c'est un autre jaune plus pâle par exemple (tester par macro la code de la couleur d'une cellule jaune avec une ligne comme Msgbox sheets ("Feuil01").Range("E12").Interior.Colorindex
- la couleur provient d'une mise en forme conditionnelle (dans ce cas il faut bâtir la macro non pas sur la couleur mais sur la condition de la MFC mais tu peux aussi alors te passer de macro et rajouter une colonne dans laquelle une formule qui reprend la condition de la MFC met une X et tu appliques ensuite un filtre pour masquer les cellules)
Cdlmnt
Via
2 août 2016 à 14:13
Merci encore. Effectivement il s'agit d'une condition "recherche de doublon".
Je vais devoir créer une macro pour tester les cellules de la colonne "E" et placer un texte type "Doublon" dans une nouvelle colonne. Ensuite masquer la ligne devrait être facile.
Si tu as sous la main une idée du script merci.
Je regarde ce que je peux créer à mon niveau..
Modifié par via55 le 2/08/2016 à 14:24
Pas besoin de macro, dans une nouvelle colonne tu mets en ligne 1 la formule ;
=NB.SI("$E$1:E1";E1)
qui affichera 2 pour les doublons, 3 pour les triplons etc mais affichera 1 quand la valeur est unique où quand c'est la 1ere rencontrée
Etire ensuite la formule au bas du tableau
Il ne te restera qu'à filtrer le tableau sur cette colonne en ne gardant que les 1
Cdlmnt
Via
2 août 2016 à 15:18
=NB.SI(E:E;E929)>1
qui fonctionne, seulement je ne peux toujours pas masquer mes lignes.
la formule :
Application.ScreenUpdating = False
Dim i As Long
For i = 994 To 4 Step -1
If Worksheets("Feuil01").Range("M" & i) = 1 Then Rows(i).EntireRow.Hidden = True
Next i
Application.ScreenUpdating = True
est juste, puisque lorsque je place le chiffre "1" dans une de mes cellules à masquer, tout fonctionne. Le problème est toujours dû fait que le renseignement " provient d'une mise en forme conditionnelle "...
Merci de votre aide