Récupération afficher les cellules

Bonjour le forum

Que faut t'il modifier au code pour que toutes les cellules soient visibles.

J'ai essayé avec FORMAT ----->AFFICHER LES COLONNES mais cela s'en va après chaque donne.

Merci.

Bonjour,

Sélectionnez la feuille entière en cliquant sur la partie haute et à gauche de la feuille, au début des lignes et des colonnes, puis clic droit sur l'une des colonne (sur le A par exemple) et sur "Affiche".

Cdlt

Bonjour arturo83

oui j'ai essayé ca aussi mais au bout de la 2ème donne ca se rebloque

Merci

Bonjour

Ton code modifié

Sub MasquerLignesColonnesVides()

Dim derLi As Long

Application.ScreenUpdating = False

With ActiveSheet

derLi = .Range("A" & Rows.Count).End(xlUp).Row

Call GetRealLastCell

.Range(.Cells(derLi + 1, 1), .Cells(Rows.Count, 1)).EntireRow.Hidden = True a réctifier 'ICI TU PASSES EN FALSE

.Range(.Cells(1, derCol + 1), .Cells(1, Columns.Count)).EntireColumn.Hidden = True a réctifier 'ICI TU PASSES EN FALSE

End With

End Sub

Merci Jaco7915

Ca fonctionne

Merci

A+

Re bonjour

Si cela fonctionne tu peux passer le sujet en résolu.

Bonne journée