XL 2021 VBA Alternative à SpecialCells(xlCellTypeVisible)

[Dudu2]

Bonjour

SpecialCells ne fonctionne pas sur une feuille protégée (erreur 1004).
J'ai besoin de connaître le Range des cellules visibles d'une feuille protégée.
Auriez-vous une fonction performante qui fait ça ?

Sub a()
    Dim R As Range
 
    On Error Resume Next
    Set R = ActiveSheet.Cells.SpecialCells(xlCellTypeVisible)
    MsgBox "Err.Number = " & Err.Number & IIf(Err.Number = 0, ", Range = " & R.Address(0, 0), "")
End Sub

 

[mapomme]

Re,

Je ne comprends pas la fonction LAMBDA, je n'ai rien de tel.

LAMDA est une fonction apparue avec O365.

 

[Dudu2]

@mapomme, merci bon à savoir pour quoi je ne sais pas.
Sinon on peut encore gratter un chouilla quand le ThisWorkbook.IsAddin (classeur en général non protégé en Structure) en ne créant la feuille pour copier dans l'AddIn qu'à la première exécution de l'AddIn lorsqu'il est chargé par l'ouverture d'un fichier Excel.

 

[dysorthographie]

Bonjour,
grâce à usine a gaz je suis passé a xls 2024. tu as 2021 j'ai don supposé que ça fonctionnait mais effectivement il semble que ce ne soit pas disponible sur 2021

correction du code lambda pour ceux que ça intéresse!

=LAMBDA(tableau;
    FILTRE(tableau; SOUS.TOTAL(103; DECALER(INDEX(tableau;1;1); SEQUENCE(LIGNES(tableau))-1; 0; 1; 1)))
)

ceci dit il semblerait que lambda soit pris en compte à partir de 2021

 

[Dudu2]

Pour info les 3 fonctions (GetVisibleRange + GetVisibleRangeCopy + GetVisibleRangescan) du fichier en Post #62 (récemment mis à jour) donnent de bons résultats dans une application où chaque SelectionChange() sur un feuille protégée donne lieu à une détermination des Ranges visibles.