Re..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
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
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
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