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

un internaute

XLDnaute Impliqué
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
 

Pièces jointes

  • toto.xls
    161.5 KB · Affichages: 8

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+
 

Pièces jointes

  • toto(1).xls
    187.5 KB · Affichages: 5

un internaute

XLDnaute Impliqué
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
 

Discussions similaires

Réponses
7
Affichages
485

Statistiques des forums

Discussions
311 720
Messages
2 081 892
Membres
101 831
dernier inscrit
gillec