Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Masquage de lignes sur autre feuille...

  • Initiateur de la discussion Initiateur de la discussion Absinth
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

A

Absinth

Guest
Bonjour bonjour,

Voila, j'ai une macro qui s'active en cliquant sur un bouton.

Dans cette macro, j'ai, entre autre, un filtre qui masque les lignes selon:

une case de ma feuille PRINCIPALE me donne une valeur (O2)
la macro sélectionne la feuille correspondant à une valeur (C10) et sur cette feuille dont le nom est la valeur C10, elle masque les lignes si la valeur de la colonne I n'est pas O2... Mais ca ne marche pas, j'arrive pas à identifier l'erreur... Voici la macro:

Code:
 Sheets(Sheets("PRINCIPAL").Range("C10").Value).Select
    Dim c As Range
    For Each c In Range("I1:I" & Range("I500").End(3).Row)
    c.Rows.Hidden = c.Offset(, 1) = Sheets("PRINCIPAL").Range("O2").Value
    Next c

    
    Sheets("PRINCIPAL").Activate

Si quelqu'un sait me touver l'erreur...
 
Re : Masquage de lignes sur autre feuille...

😕

Euh attends la, parce qu'en virant un tas de truc pour alléger le fichier, la macro a soudainement fait son boulot correctement...

Je cherche ce que j'ai viré qui faisait que...
 
Re : Masquage de lignes sur autre feuille...

Bon, je pense que j'ai trouvé mon problème,

La valeur de référence en O2 est donnée par une formule... et ca marche pas, tandis que si je mets manuellement le chiffre à la place de la formule, ca marche... (la formule est une RECHERCHEV, au cas ou)

Une idée du pourquoi du comment?
 
Re : Masquage de lignes sur autre feuille...

RE

Perso je viens de faire un test avec un recherchev et ça marche

sinon essaies en ajoutant des .value

Code:
If Sheets(mafeuille).Range("I" & x).Value > Sheets("PRINCIPAL").Range("O2").value Then Sheets(mafeuille).Rows(x).Hidden = True
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
3
Affichages
258
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…