Masquer une ligne si valeur est 0 Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
m
msprs
Jeune membre
Jeune membre
Messages : 33
Inscrit le : 20 octobre 2016
Version d'Excel : 2016

Message par msprs » 18 septembre 2017, 15:39

Bonjour,

Sur un tableur je souhaiterais masquer automatiquement les lignes si la valeur de la colonne O=0
Si O21 = 0 => masquer automatiquement la ligne 21 etc

J'ai 250 lignes concernées, j'ai une macro qui marche bien mais il il faut retaper ligne par ligne, si vous avez quelque chose de simple à utiliser je suis preneur :)
Nouveau Feuille de calcul Microsoft Excel.xlsx
(11.53 Kio) Téléchargé 104 fois
C
Caspi
Membre habitué
Membre habitué
Messages : 61
Appréciations reçues : 5
Inscrit le : 13 juillet 2017
Version d'Excel : 2013 FR

Message par Caspi » 18 septembre 2017, 15:54

Je te propose la petite macro suivante:
Sub mymacro()

'Sélectionner la première cellule contenant des valeurs
Range("O6").Select

'Boucle qui tourne jusqu'à ce qu'elle rencontre une cellule vide
While IsEmpty(ActiveCell.Value) = False

    ' Si la valeur est 0, la ligne est masquée
    If ActiveCell.Value = 0 Then
    Selection.EntireRow.Hidden = True

    'Sinon, la ligne est affichée. Ces deux lignes peuvent être enlevées si tu n'as pas besoin de réafficher des lignes préalablement masquées
    Else
    Selection.EntireRow.Hidden = False

End If
 
ActiveCell.Offset(1, 0).Select
 
Wend

End Sub
m
msprs
Jeune membre
Jeune membre
Messages : 33
Inscrit le : 20 octobre 2016
Version d'Excel : 2016

Message par msprs » 18 septembre 2017, 16:04

Merci pour ton aide, j'ai testé sur mon fichier et je n'ai aucun résultat, les lignes sont toujours affichées
A
Andre13
Membre impliqué
Membre impliqué
Messages : 1'679
Appréciations reçues : 109
Inscrit le : 13 juillet 2017
Version d'Excel : 2007-2013

Message par Andre13 » 18 septembre 2017, 16:10

Bonjour,

enregistre ton classeur ,en prenant en charge les macros

voici ci dessous afficher et masquer
remerciement à Caspi qu'a fait tout le job :wink:

Sorry : oupss supprimer prend 2 p oupss :oops:
crdlt,
André
Nouveau Feuille de calcul Microsoft Excel.xlsm
(22.27 Kio) Téléchargé 429 fois
m
msprs
Jeune membre
Jeune membre
Messages : 33
Inscrit le : 20 octobre 2016
Version d'Excel : 2016

Message par msprs » 18 septembre 2017, 16:13

Nickel, merci à vous 2 :)
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message