Masquer automatiquement ligne

Paritec

XLDnaute Barbatruc

• 14 Septembre 2010

• #2

Re : Masquer automatiquement ligne

Bonsoir Kernoz, le forum,
Est-ce que tu veux que l'on te fasse l'exemple ??
Ou préfères-tu joindre un bout de fichier !!!
a +
Papou 🙂

 

Vote positif 0 Vote négatif

K

Kernoz

XLDnaute Occasionnel

• 15 Septembre 2010

• #3

Re : Masquer automatiquement ligne

Bonjour,

Voila, j'ai pris le temps de faire un exemple en pièce jointe.

En D2 le choix du transporteur.

Dans le tableau, une liste de tarifs s'affiche en fonction du transporteur choisi et je voudrais masquer de maniere automatique les lignes du tableau innutiles.

Merci d'avance.

 

Pièces jointes

• Exemple.zip

  47 KB · Affichages: 129
• Exemple.zip

  47 KB · Affichages: 135
• Exemple.zip

  47 KB · Affichages: 135

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 15 Septembre 2010

• #4

Re : Masquer automatiquement ligne

bonjour Kernoz,
pas le temps là mais je regarde ce soir
a+
papou 🙂

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 15 Septembre 2010

• #5

Re : Masquer automatiquement ligne

Bonjour Kernoz, Paritec, le fil

Une solution avec une MEFC *
Tu retires les bordures et la couleur de fond sur la plage : C10:I103

• Tu sélectionnes la plage :C10:E103
• Tu appliques une MEFC
• la formule : =NBCAR(C10)>0

• Tu sélectionnes la plage :F10:I103
• Tu appliques une MEFC
• la formule : =NBCAR(F10)>0

Résultat obtenu:

*: MEFC = Mise en forme conditionnelle

 

Pièces jointes

• mefc.gif

  15.5 KB · Affichages: 226
• mefc.gif

  15.5 KB · Affichages: 227

Dernière édition: 15 Septembre 2010

Vote positif 0 Vote négatif

K

Kernoz

XLDnaute Occasionnel

• 15 Septembre 2010

• #6

Re : Masquer automatiquement ligne

Merci pour ta réponse.

Hélas, il faut vraiment que les lignes se masquent, car j'ai en dessous d'autres tableaux et le but de ce masque est de ne pas avoir à dérouler une centaine de lignes pour acceder au tableau du dessous.

😉

 

Vote positif 0 Vote négatif

K

Kernoz

XLDnaute Occasionnel

• 16 Septembre 2010

• #7

Re : Masquer automatiquement ligne

Up 🙂

Remonte petit topic 😀

 

Vote positif 0 Vote négatif

K

Kernoz

XLDnaute Occasionnel

• 17 Septembre 2010

• #8

Re : Masquer automatiquement ligne

Rebonjour,

J'ai trouver un code mais celui ci est TRES TRES long, les lignes se masquent une par une et ca prend un temps fou ( environ 5minutes ) ...

Puis-je le modifier pour le rendre plus efficace ?
Y'a t-il un autre code plus rapide pour le même resultat ?

Le code :

Sub Masquer_Tarif()
'
' Masquer_Tarif Macro
'
Range("C42:C202").Select
For Each o In Selection
If o.Value = "" Then
o.EntireRow.Hidden = True
End If
Next

End Sub

Merci d'avance.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 17 Septembre 2010

• #9

Re : Masquer automatiquement ligne

Bonsoir


Est-ce plus rapide ainsi ?

Code:

Sub demasque()
Range("C10:C103").SpecialCells(xlCellTypeFormulas).EntireRow.Hidden = False
End Sub

Code:

Sub masque()
Dim p As Range
Set p = Range("C10:C103").SpecialCells(xlCellTypeFormulas)
Application.ScreenUpdating = False
For Each c In p
If Len(c) = 0 Then c.EntireRow.Hidden = True
Next c
Application.ScreenUpdating = True
End Sub

 

Vote positif 0 Vote négatif

K

Kernoz

XLDnaute Occasionnel

• 20 Septembre 2010

• #10

Re : Masquer automatiquement ligne

Bonjour,

Oui, la macro marche mais elle n'est pas plus rapide 🙁

Je ne sais pas pourquoi ca mets autant de temps à masquer quelques lignes 🙁

Une petite question néanmoins, j'essaye d'adapter la formule à plusieurs tableaux sur cette même feuille.
De plus j'ai ajouter la macro pour demasquer les lignes en debut de code.

Helas elle ne fonctionne pas ( sans doute le fait de selectionner plusieurs groupes de lignes ).
Voici le code :

VB:

 Sub Masquer_Lignes_Vides()
'
' Masquer_Lignes_Vides
'
Range("C42:C202,C208:387,C411:C509").SpecialCells(xlCellTypeFormulas).EntireRow.Hidden = False
Dim p As Range
Set p = Range("C42:C202,C208:387,C411:C509").SpecialCells(xlCellTypeFormulas)
Application.ScreenUpdating = False
For Each c In p
If Len(c) = 0 Then c.EntireRow.Hidden = True
Next c
Application.ScreenUpdating = True
End Sub

Merci d'avance 😉

 

Dernière édition: 20 Septembre 2010

Vote positif 0 Vote négatif

GuillaumA

XLDnaute Occasionnel

• 20 Septembre 2010

• #11

Re : Masquer automatiquement ligne

Bonjour Kernoz, bonjour le forum, bonjour le fil

Le plus simple:

Sur la feuille de tes tableaux:

Public Sub Masquer()

Application.ScreenUpdating = False
For i = 1 To (autant que tu veux)
Rows(i).Hidden = Cells(i, 3).Value = ""
J'ai pris la colonne 3 soit C pour base que la macro va check
Next i
Application.ScreenUpdating = True
End Sub

Cliquez pour agrandir...

Sur la même feuille ou la feuille précédente (ou les actions de modification sont faitent):

rivate Sub Worksheet_Change(ByVal Target As Range) 'Chaque fois qu'une action est faite sur la page ou cette macro se trouve, alors la macro de la feuille de tes tableaux est lançée

Call Feuil2.Masquer 'J'ai pris en compte que ton tableau est en Feuil2

End Sub

Cliquez pour agrandir...

Ensuite, pour les lignes entre tes tableaux. Rajoute des espaces dans les cellules de la colonne qui est ciblé par la macro. Les lignes resteront.

Cordialement,
Guillaume A.

 

Dernière édition: 20 Septembre 2010

Vote positif 0 Vote négatif

abtony

XLDnaute Impliqué

• 20 Septembre 2010

• #12

Re : Masquer automatiquement ligne

Bonjour le fil, bonjour le forum,

je pense qu'il manque un C devant 387

Bonne journée

 

Vote positif 0 Vote négatif