VBA : Repérer ligne(s) et/ou colonne(s) masquée(s)

[DoubleZero]

Bonsoir à toutes et à tous,

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.

 

[Banzai64]

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

Bonne soirée

 

[DoubleZero]

Re : VBA : Repérer ligne(s) et/ou colonne(s) masquée(s)

Re-bonsoir,

Merci, Banzai64, et pardon si je ne parviens pas à me faire bien comprendre 😱…

Je souhaiterais « simplement » localiser les lignes et colonnes qui pourraient avoir été masquées par moi-même ou toute autre personne.

A titre d’exemple, j’utilise une macro pour déceler les cellules dans lesquelles se trouvent des formules.

J'espère que ma demande est plus explicite 🙂 (???).

 

[Banzai64]

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

 

[Staple1600]

Re : VBA : Repérer ligne(s) et/ou colonne(s) masquée(s)

Bonsoir à tous

00
essaies cette macro sur un classeur vierge

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

est-ce le résultat visuel que tu souhaites?

 

[Banzai64]

Re : VBA : Repérer ligne(s) et/ou colonne(s) masquée(s)

Bonsoir Staple1600

Bravo
En plus en partant de ta macro, on peut déterminer la première ligne/colonne masqué
Chapeau

 

[DoubleZero]

Re : VBA : Repérer ligne(s) et/ou colonne(s) masquée(s)

Bonjour Banzai64 🙂, Staple1600 🙂, le Forum,

Bravo et merci beaucoup, Staple1600, pour l’aide et la macro.

A présent, pour un meilleur confort visuel, serait-il possible, s’il te plaît, d’insérer une bordure de couleur comme dans l’image ci-dessous ?

Merci et bonne journée.

 

[Staple1600]

Re : VBA : Repérer ligne(s) et/ou colonne(s) masquée(s)

Bonjour à tous

00
Voici un début

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 😉

 

[DoubleZero]

Re : VBA : Repérer ligne(s) et/ou colonne(s) masquée(s)

Re-bonjour,

MAGNIFIQUE ! Merci 🙂, Staple1600.

Staple1600

Voici un début

Je te laisse compléter pour les colonnes;
Dois aller à la douche puis au taf

Je vais tenter... de compléter...

Bonne journée 😀 !

 

[DoubleZero]

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 :

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 :

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

 

[James007]

Re : VBA : Repérer ligne(s) et/ou colonne(s) masquée(s)

Bonjour DoubleZéro,

Par exemple ...

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

A +
🙂

 

[DoubleZero]

Re : VBA : Repérer ligne(s) et/ou colonne(s) masquée(s)

Re-bonjour,

De la part d'un double zero ... mais avec TVA ... 00 7

Je ne suis pas d'accord ! Ta TVA n'est pas en rapport avec tes compétences 🙂 ! Quand penses-tu relever son taux 😀 ?

James007, grâce à toi, mes cheveux vont repousser 🙂🙂🙂🙂 !

Aurais-tu, s'il te plaît, encore un peu de temps et de patience pour m'expliquer ce que signifient :

- With col.Offset(-1).Borders(xlEdgeBottom) ;

- With c.Offset(0, 1).Borders(xlEdgeLeft).

Pour votre aide, je vous remercie, Banzai64, Staple1600 et James007 😀 !

 

[James007]

Re : VBA : Repérer ligne(s) et/ou colonne(s) masquée(s)

Re,

Offset signifie décaler ... et s'utilise ainsi Offset(ligne,colonne)

Du coup pour une cellule donnée, si tu lui ajoutes .offset(1,1)

concrètement tu demandes une ligne de plus et une colonne de plus , par rapport à la position de la cellule ...

Borders signifie bordures, cadre ... et donc ce qui entoure ta cellule ...

Donc tu peux choisir le bord inférieur, supérieur, droit ou gauche ...

Voilou ...

J'espère que cela est assez clair ...

A +
🙂

 

[DoubleZero]

Re : VBA : Repérer ligne(s) et/ou colonne(s) masquée(s)

Re-bonjour,

Merci beaucoup, James007 !

A bientôt 🙂.

 

[James007]

Re : VBA : Repérer ligne(s) et/ou colonne(s) masquée(s)

Re,

Pour votre aide, je vous remercie, Banzai64, Staple1600 et James007 !

Merci pour tes remerciements ... c'est sympa ...!!!

A très vite sur le Forum ...
🙂