Masquer automatiquement ligne

[Kernoz]

Bonjour,

Voici mon problème,

J'ai un tableau de 50 lignes avec dans chaque cellules une rechercheV se referant à un client et une base de tarifs.

Lorsque je sélectionne un client, la liste de ces tarifs s'affiche dans le tableau, or lorsque celui ci a par exemple 30 tarifs, j'ai 20 lignes vides sur mon tableau.

Je voudrais que ces 20 lignes se masquent automatiquement lorsque je sélectionne ce client. Est-ce possible ?


Petite précision, mon tableau va de C42 à AM92 🙂

Merci d'avance 😉

 

[Paritec]

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 🙂

 

[Kernoz]

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.

 

[Paritec]

Re : Masquer automatiquement ligne

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

 

[Staple1600]

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

 

[Kernoz]

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.

😉

 

[Kernoz]

Re : Masquer automatiquement ligne

Up 🙂

Remonte petit topic 😀

 

[Kernoz]

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.

 

[Staple1600]

Re : Masquer automatiquement ligne

Bonsoir


Est-ce plus rapide ainsi ?

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

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

 

[Kernoz]

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 :

 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 😉

 

[GuillaumA]

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

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

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.

 

[abtony]

Re : Masquer automatiquement ligne

Bonjour le fil, bonjour le forum,

je pense qu'il manque un C devant 387

Bonne journée