Résolu - Masquer des lignes par rapport à une valeur - VBA - Forum Formule Excel
et vice versa (à méditer) Yvouille Fanatique d'Excel Messages 10'090 Votes 793 Excel 2016 Inscrit 6. 2007 Lieu CH - Valais de Cœur Salut Claude, Merci pour ta réponse. Il me semble que j'ai bien suivi tes explications, mais ça ne fonctionne toujours pas comme désiré. Peux-tu voir ce que j'ai fait de faux? Yvouille Valais de Cœur A Amadéus Fanatique d'Excel Messages 17'784 Votes 1'194 Excel Office Excel 2003 FR et 2013FR Inscrit 7. 2006 Lieu Ariège-Pyrénées France Bonjour Ton code, placé dans la feuille « Impression », ne fonctionne apparemment pas non plus. Est-ce que je l'ai mal utilisé? Un SelectionChange se déclenche lors de la sélection d'une cellule quelconque sur la Feuille. J'ai testé et cela fonctionne. Afficher ou Masquer Toutes les Lignes / Colonnes - Automate Excel. Cordialement Amadéus vous informe que, pour cause de saturation, il ne peut plus répondre aux messages privés non sollicités. Méthodes Lieu MEUDON région parisienne Bonsoir, Ton dernier fichier fonctionne chez moi, zéro ou effacer en B9, masque bien les lignes 28 à 30 sur feuille "Impression" peut-être supprimer dans le VBE de la Feuil7 Public Flag As Boolean qui ferait double emploi avec le Module1 vérifie que les macros sont bien activées Claude Faire simple, c'est ce qui est le plus compliqué!
#2 Re: Code VBA masquer des lignes en fonction de la valeur d'une cellule Bonjour, tamatave33, le Forum, Un essai, tout en espérant avoir compris le besoin... Code: Option Explicit Sub Ligne_masquer() Dim i As Long reenUpdating = False i = [y15] Range("a15")(i). = True reenUpdating = True End Sub Sub Ligne_afficher() = False A bientôt #3 Bonsoir DoubleZero, le forum, Merci pour ta réponse, mais je pense que ma demande n'était pas suffisamment claire. La valeur de la cellule Y15 peut varier de 0 à 11. Si elle est égale à 0 ou a 11, les lignes 15 à 25 sont affichées. si elle est égale à 1, seule la ligne 15 est affichée. Si elle est égale à 2, les lignes 15 et 16 sont affichées, si elle est égale à 3, les lignes 15, 16 et 17 sont affichées, et ainsi de suite. Masquer une ligne via le site. Voici le code que j'ai écris: Private Sub Worksheet_Change(ByVal Target As Range) Dim k As Integer If Not Intersect(Target, Range("Y15")) Is Nothing Then k = Range("Y15") Select Case k Case Is = 0 Range("A15:A25"). = False Case Is = 11 Case Is = 10 Range("A15:A24").
Visible = True A+ 20 août 2010 à 13:18 L'enregistreur de macros m'a donné la réponse: = True 20 août 2010 à 13:37 merci pour le masquage des lignes. mais sais tu commen desmasqué une cellule? et masquer ou démasquer un picture? a+ 20 août 2010 à 13:53 Ben tout simplement mettre à false.. Après une rapide recherche: Nb = (Nb). Masquer une ligne vba au. Visible = True 20 août 2010 à 14:02 merci vu que j'ai plusieurs pictures mais que je ne veux en masquer qu'un seul qui porte le nom Picture220. je ne vois pas au niveau de la syntaxe 20 août 2010 à 14:26 Il faut rajouter une condition: If (Nb) "Picture220" Then (Nb). Visible True 20 août 2010 à 14:28 merci de ton aide et bon weekend 20 août 2010 à 16:21 encore moi excusez j'ai crée aussi des cases à cocher; dans l'onglet nom j'ai écris par exemple case a cocher 220 mais avec tes explications il n'y a pas d'erreur de code mais il n'efface pas ma case à cocher dans ma feuille Sub essai() If (Nb) "case a cocher 220" Then (Nb) True End Sub 20 août 2010 à 16:31 Une case à cocher n'est pas une picture, c'est un autre contrôle.
Encore merci. Très bonne soirée. #13 Salut Et en passant à l'étape moyenne (dans la page de code de la feuille et avec les tests)? Private Sub Worksheet_Calculate() a = [Y15] If a > 11 Or a = 0 Or Not IsNumeric(a) Then a = 11 Application. EnableEvents = 0 ' <------------ [15:25] = 1 'masque les lignes Rows(15)(a) = 0 'affiche les a lignes à partir de la 15 Application. EnableEvents = 1 Reste à savoir que prendre avec une valeur non entière (a<0). Merci Job Dernière édition: 24 Novembre 2015 #14 Bonjour Si... Tu as fait une petite erreur: Application. Masquer ou afficher des lignes ou des colonnes. EnableEvents = 0 doit être placé avant le masquage des lignes. Qui comme l'affichage entraine le recalcul des fonctions volatiles. A+
skytimetravel.net, 2024