Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Pb de cellules masquées

Pb de cellules masquées

1 réponse
Avatar
Ben
Bonjour !!

J'aimerais savoir comment r=E9cup=E9rer la ou les valeurs de
cellules d'une ou plusieurs colonnes masqu=E9es (en code
uniquement)

Merci d'avance.
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
papou
Bonjour
A adapter avec notamment nom de feuille :
Sub cparti()
Dim c As Range, ValeursCachees(), Nb&
Nb = 0
For Each c In Worksheets("Feuil1").UsedRange
If Columns(Range(c.Address).Column).Hidden = True Or
Rows(Range(c.Address).Row).Hidden = True Then
Nb = Nb + 1
ReDim Preserve ValeursCachees(Nb)
ValeursCachees(Nb) = c.Value
End If
Next c
Worksheets.Add
For i = LBound(ValeursCachees) To UBound(ValeursCachees)
ActiveSheet.Cells(i + 1, 1).Value = ValeursCachees(i)
Next i
End Sub

Cordialement
Pascal

"Ben" a écrit dans le message de
news:08e101c47aea$4f33d770$
Bonjour !!

J'aimerais savoir comment récupérer la ou les valeurs de
cellules d'une ou plusieurs colonnes masquées (en code
uniquement)

Merci d'avance.