Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Comment puis-je enlever les colonnes et les lignes sur unepages ex

Comment puis-je enlever les colonnes et les lignes sur unepages ex

1 réponse
Avatar
Poivre
Ce document sera envoyé par courriel, Je ne veux pas de colonnes et des
ligne inutiles sur la page.
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
ChrisV
Bonjour Poivre,

Sub masQ()
Application.ScreenUpdating = False
ActiveSheet.Unprotect
With Cells
coL = .Find("*", [A1], , , xlByColumns, xlPrevious).Column
liG = .Find("*", [A1], , , xlByRows, xlPrevious).Row
End With
Cells(liG, coL).Select
On Error Resume Next
With ActiveCell
Range(.Offset(1, 1), .End(xlDown)) _
.EntireRow.Hidden = True
Range(.Offset(1, 1), .End(xlToRight)) _
.EntireColumn.Hidden = True
End With
ActiveSheet.Protect
End Sub


ChrisV


"Poivre" <Poivre @discussions.microsoft.com> a écrit dans le message de
news:
Ce document sera envoyé par courriel, Je ne veux pas de colonnes et des
ligne inutiles sur la page.