Afin de repérer aisément la (les) ligne(s) et/ou colonne(s) potentiellement masquée(s), serait-il possible, s'il vous plaît, d'insérer à la fois un quadrillage et une couleur particuliers ?
Je vous remercie pour l'aide qu'il vous sera permis de m'apporter.
Re : VBA : Repérer ligne(s) et/ou colonne(s) masquée(s)
Bonsoir
Mal compris
Tu veux signaler si des lignes/colonnes sont masquées
Pourquoi les masquer alors ?
Si c'est toi qui masques, les lignes/colonnes autour des lignes/colonnes masquées peuvent être d'un style particulier
Re : VBA : Repérer ligne(s) et/ou colonne(s) masquée(s)
Bonsoir
Plus clair pour moi
Je ne sais pas (je n'y crois pas) s'il existe une propriété dans la feuille pour indiquer si des lignes/colonnes sont masquées
Alors il ne reste que la solution de parcourir toutes les lignes/colonnes et de vérifier le Hidden
S'il y a une solution autre, je suis preneur
Bonne soirée
Re : VBA : Repérer ligne(s) et/ou colonne(s) masquée(s)
Bonsoir à tous
00
essaies cette macro sur un classeur vierge
Code:
Sub Macro1()
' Macro enregistrée le 06/02/2011
Columns("C:C").EntireColumn.Hidden = True
Rows("3:3").EntireRow.Hidden = True
Range("A1").SpecialCells(xlCellTypeVisible).Select
End Sub
Re : VBA : Repérer ligne(s) et/ou colonne(s) masquée(s)
Bonjour à tous
00
Voici un début
Code:
Sub a()
Dim c As Range
For Each c In ActiveSheet.UsedRange
If c.EntireRow.Hidden = True Then
With c.Offset(-1).Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = 3
End With
End If
Next c
End Sub
Je te laisse compléter pour les colonnes;
Dois aller à la douche puis au taf
Re : VBA : Repérer ligne(s) et/ou colonne(s) masquée(s)
Re-bonjour,
Le code ci-après, créé par Staple1600, s'applique aux lignes :
Code:
Sub a()
Dim c As Range
For Each c In ActiveSheet.UsedRange
If c.EntireRow.Hidden = True Then
With c.Offset(-1).Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = 3
End With
End If
Next c
End Sub
Mon charabia, ci-dessous, tente d'être applicable aux colonnes :
Code:
Sub b()
Dim col As Range
For Each col In ActiveSheet.UsedRange
If col.EntireColumns.Hidden = True Then
With col.Offset(-1).Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = 3
End With
End If
Next c
End Sub
Je n'ose pas infliger à vos yeux mes multiples tentatives et vous remercie pour votre aide dans la correction des erreurs .
Re : VBA : Repérer ligne(s) et/ou colonne(s) masquée(s)
Bonjour DoubleZéro,
Par exemple ...
VB:
Sub b()
Dim c As Range
For Each c In ActiveSheet.UsedRange
If c.EntireColumn.Hidden = True Then
With c.Offset(0, 1).Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = 3
End With
End If
Next c
End Sub
De la part d'un double zero ... mais avec TVA ... 00 7