[RÉSOLU] Rendre lignes visibles que si cellules colonne E sont occupées

un internaute

XLDnaute Occasionnel
Bonjour le forum
Comme dit dans le titre est-ce possible avec Double Clic cellule A2?
Macro => Sub AfficherMasquerLignes() mais moi je veux l'inverse

Macro double clic dans nom de la feuille

Fichier joint
 

Fichiers joints

Jacky67

XLDnaute Accro
Bonjour,
Une proposition en PJ
Suppression des fusions sur deux lignes en lignes 10-40-70-100
 

Fichiers joints

Dernière édition:

un internaute

XLDnaute Occasionnel
Re U]Jacky67
Serat-il possible de faire afficher les lignes 17 47 77 107 pour distinguer les paiements des régularisations?
Si pas possible ne t'escrime pas
Encore un GRAND merci
Cordialement
 

Jacky67

XLDnaute Accro
Re U]Jacky67
Serat-il possible de faire afficher les lignes 17 47 77 107 pour distinguer les paiements des régularisations?
Si pas possible ne t'escrime pas
Encore un GRAND merci
Cordialement
Re..
Les modifications sur la feuille doivent se faire toutes lignes affichées.
 

Fichiers joints

job75

XLDnaute Barbatruc
Bonjour un internaute, Jacky67,

Les cellules fusionnées ne sont pas gênantes, voyez le fichier joint et cette macro :
VB:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [A2]) Is Nothing Then Exit Sub
Protect UserInterfaceOnly:=True 'protection sans mot de passe
Cancel = True
Application.ScreenUpdating = False
Dim r As Range
For Each r In UsedRange.Rows
    If Not r.Cells(5).MergeCells Then If r.Cells(5).Interior.Color = 16777215 And r.Cells(5) = "" Then r.Hidden = Not r.Hidden Else r.Hidden = False
Next
End Sub
Double-clic en A2.

A+
 

Fichiers joints

un internaute

XLDnaute Occasionnel
Bonjour le forum
Bonjour Job75 ou un autre
Tu m'as fait une macro avec Double clic A2 mais je voudrais aussi ajouter un Double clic dans cellule F2 comme macro ci-dessous
Merci pour vos éventuels retours
Cordialement

Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)       'Macro pour afficher les COLONNES de G à I, les LIGNES VIDES et déplacer les COMMENTAIRES
    If Target.Count > 1 Then Exit Sub
      If Not Target.Comment Is Nothing Then
        If Not Intersect(Target, [A2:A8]) Is Nothing Then                               'Jouer sur [A2:A8] pour la plage des commentaires à déplacer
            Call AfficherMasquerLignes                                                  'AfficherMasquerLignes = Nom Macro
        ElseIf Not Intersect(Target, [F2:F8]) Is Nothing Then                           'Jouer sur [F2:F8] pour la plage des commentaires à déplacer
            Call LignesRegularisationColonnesExplications                               'LignesRegularisationColonnesExplications = Nom Macro
          End If
        End If
        Cancel = True
End Sub
Macro faite par Job75 Pour cellule a2

VB:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)   'Pour éviter de défusionner cellules
If Intersect(Target, [A2]) Is Nothing Then Exit Sub
Protect UserInterfaceOnly:=True 'protection sans mot de passe
Cancel = True
Application.ScreenUpdating = False
Dim r As Range
For Each r In UsedRange.Rows
    If Not r.Cells(5).MergeCells Then If r.Cells(5).Interior.Color = 16777215 And r.Cells(5) = "" Then r.Hidden = Not r.Hidden Else r.Hidden = False
Next
End Sub
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas