Microsoft 365 Macro et lignes masquées

[ExcLnoob]

Bonjour Le forum,

Pourriez-vous m'aider svp ?
Je cherche le bout de code supplémentaire qui me permettrai d'appliquer la macro ci-dessous uniquement aux lignes visibles (masquées via un bouton) de ma feuille.

Private Sub Worksheet_Activate()
Dim c As Range
txt = ""
txt1 = ""
With Sheets("Feuil1")
For Each c In Range(.[M5], [M65536].End(xlUp))
If c <> "" Then
If c.Value < Date Then
If txt = "" Then txt = "Dates échues:" & vbCrLf & vbCrLf
txt = txt & c.Offset(, -11) & " - PO " & c.Offset(, -1) & " - Terminée le : " & c.Offset(, 0) & vbCrLf
ElseIf c.Value < Date + 30 Then
If txt1 = "" Then txtl = "Dates arrivent à échéance:" & vbCrLf & vbCrLf
txt1 = txt1 & c.Offset(, -11) & " - PO " & c.Offset(, -1) & " - Arrive à écheance le : " & c.Offset(, 0) & vbCrLf
End If
End If
Next c
If txt <> "" Then MsgBox txt, vbCritical, "ALERTE"
If txt1 <> "" Then MsgBox txt1, vbInformation, "INFORMATION"
End With
End Sub

Merci pour votre aide!

 

[jmfmarques]

bonjour
Intéresse-toi à la méthode Specialcells ( rubrique Lien supprimé de ton aide interne VBA)
Son paramètre xlCellTypeVisible te permet de ne spécifier que la plage des cellules visibles.

 

[Jacky67]

Bonjour,
Comme ceci peut-être

For Each c In Range(.[M5], [M65536].End(xlUp)).SpecialCells(xlCellTypeVisible)

 

[Staple1600]

Bonsoir le fil, ExclNoob, jmfmarques (re)

Personnellement, mon cortex bogue en lisant cette phrase

la macro ci-dessous uniquement aux lignes visibles (masquées via un bouton) de ma feuille.]

EDITION: Bonsoir jacky67

 

[jmfmarques]

Salut staple1600
je n'avais même pas remarqué cette bourde d'expression.

 

[ExcLnoob]

Bonsoir à tous,
Effectivement, merci pour la remarque.... A la relecture je m'aperçois que j'ai également des noeuds au cerveau avec mon explication....
Merci en tout cas pour vos réponses, je vois que j'ai quand même été compris....

J'avoue vraiment "enragé" quand je vois que cela est si simple pour vous... Mais je lâche rien, et espère devenir autonome un jour...
Merci infiniment!

Je suppoe que je peux adapter cela à des cellules vides. Je vais creuser...
@jmfmarques
Question bête sans doute.. Comment j'active l'aide interne VBA ?
Merci encore!