Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Supprimer toutes les colonnes / lignes sauf...

Supprimer toutes les colonnes / lignes sauf...

4 réponses
Avatar
Greg
Rebonjour,

J'ai déjà vu la réponse cette question ici mais je ne trouve pas...

Je cherche à supprimer toutes les colonnes et lignes en dehors de A à I pour
les colonnes et 1 à 52 pour les lignes. Comment m'y prendre facilement?

Merci d'avance

Greg
Signaler un problème avec ce contenu

4 réponses

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
Tatanka
Bonsoir Greg,

Par macro (Excel 2007) ? :

Sub Supprimer()
Application.ScreenUpdating = False
Columns("J:XFD").Delete
Rows("53:1048576").Delete
Application.ScreenUpdating = True
End Sub

Sub Masquer()
Application.ScreenUpdating = False
Columns("J:XFD").Hidden = True
Rows("53:1048576").Hidden = True
Application.ScreenUpdating = True
End Sub

Serge

"Greg" a écrit dans le message de news: 4cfa743d$0$13963$
Rebonjour,

J'ai déjà vu la réponse cette question ici mais je ne trouve pas...

Je cherche à supprimer toutes les colonnes et lignes en dehors de A à I pour les colonnes et 1 à 52 pour les lignes. Comment m'y
prendre facilement?

Merci d'avance

Greg
Avatar
Maude Este
Bonsour®

"Greg" a écrit
Je cherche à supprimer toutes les colonnes et lignes en dehors de A à I pour
les colonnes et 1 à 52 pour les lignes. Comment m'y prendre facilement?



;o))) ce que donne l'enregistreur de macro :

Sub Macro1()
Application.Goto Reference:="R1C10"
Range(Selection, Selection.End(xlToRight)).Select
Selection.EntireColumn.Hidden = True
Application.Goto Reference:="R53C1"
Range(Selection, Selection.End(xlDown)).Select
Selection.EntireRow.Hidden = True
End Sub
Avatar
Greg
Bonjour et merci pour vos réponses.

La proposition de Serge ne semble pas fonctionner avec 2007. Par contre,
celle de Modeste fait le boulot. J'avais moi aussi tenter avec
l'enregistreur de macro mais je ne voyais pas comment m'en sortir. Voici ce
qu'il me proposait quand je sélectionnais quelques lignes et colonnes (je
pensais l'adapter ensuite) :

Sub Macro2()
'
' Macro2 Macro
'

'
Columns("J:AD").Select
Selection.Delete Shift:=xlToLeft
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 22
ActiveWindow.ScrollRow = 23
ActiveWindow.ScrollRow = 24
ActiveWindow.ScrollRow = 25
ActiveWindow.ScrollRow = 26
ActiveWindow.ScrollRow = 27
ActiveWindow.ScrollRow = 28
ActiveWindow.ScrollRow = 29
ActiveWindow.ScrollRow = 30
ActiveWindow.ScrollRow = 31
Rows("53:111").Select
Selection.Delete Shift:=xlUp
End Sub


J'ai donc fait appel à vous. Et comme d'habitude, vous me sortez du pétrin.
Encore merci!

Greg

"Tatanka" a écrit dans le message de groupe de
discussion : iddvgq$i3e$
Bonsoir Greg,

Par macro (Excel 2007) ? :

Sub Supprimer()
Application.ScreenUpdating = False
Columns("J:XFD").Delete
Rows("53:1048576").Delete
Application.ScreenUpdating = True
End Sub

Sub Masquer()
Application.ScreenUpdating = False
Columns("J:XFD").Hidden = True
Rows("53:1048576").Hidden = True
Application.ScreenUpdating = True
End Sub

Serge

"Greg" a écrit dans le message de news:
4cfa743d$0$13963$
Rebonjour,

J'ai déjà vu la réponse cette question ici mais je ne trouve pas...

Je cherche à supprimer toutes les colonnes et lignes en dehors de A à I
pour les colonnes et 1 à 52 pour les lignes. Comment m'y prendre
facilement?

Merci d'avance

Greg




Avatar
michdenis
Bonjour,

Ceci devrait être suffisant :

'------------------------------
Sub test()
With Worksheets("Feuil1") 'Nom feuille à adapter
.Range("J1", .Range("J1").End(xlToRight)).EntireColumn.Delete
.Range("A53", .Range("A53").End(xlDown)).EntireRow.Delete
End With
End Sub
'------------------------------

La macro de Serge ne fonctionne pas parce qu'il tient pour acquis
que le classeur ouvert avec la version Excel 2007 a les dimensions
(nombre de colonnes, nombres de lignes) d'un classeur 2007. Ce
n'est pas nécessairement le cas... il y a aussi les classeurs ouverts
en mode de compatibilité.


MichD
--------------------------------------------
"Greg" a écrit dans le message de groupe de discussion : 4cfb4570$0$10001$

Bonjour et merci pour vos réponses.

La proposition de Serge ne semble pas fonctionner avec 2007. Par contre,
celle de Modeste fait le boulot. J'avais moi aussi tenter avec
l'enregistreur de macro mais je ne voyais pas comment m'en sortir. Voici ce
qu'il me proposait quand je sélectionnais quelques lignes et colonnes (je
pensais l'adapter ensuite) :

Sub Macro2()
'
' Macro2 Macro
'

'
Columns("J:AD").Select
Selection.Delete Shift:=xlToLeft
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 22
ActiveWindow.ScrollRow = 23
ActiveWindow.ScrollRow = 24
ActiveWindow.ScrollRow = 25
ActiveWindow.ScrollRow = 26
ActiveWindow.ScrollRow = 27
ActiveWindow.ScrollRow = 28
ActiveWindow.ScrollRow = 29
ActiveWindow.ScrollRow = 30
ActiveWindow.ScrollRow = 31
Rows("53:111").Select
Selection.Delete Shift:=xlUp
End Sub


J'ai donc fait appel à vous. Et comme d'habitude, vous me sortez du pétrin.
Encore merci!

Greg

"Tatanka" a écrit dans le message de groupe de
discussion : iddvgq$i3e$
Bonsoir Greg,

Par macro (Excel 2007) ? :

Sub Supprimer()
Application.ScreenUpdating = False
Columns("J:XFD").Delete
Rows("53:1048576").Delete
Application.ScreenUpdating = True
End Sub

Sub Masquer()
Application.ScreenUpdating = False
Columns("J:XFD").Hidden = True
Rows("53:1048576").Hidden = True
Application.ScreenUpdating = True
End Sub

Serge

"Greg" a écrit dans le message de news:
4cfa743d$0$13963$
Rebonjour,

J'ai déjà vu la réponse cette question ici mais je ne trouve pas...

Je cherche à supprimer toutes les colonnes et lignes en dehors de A à I
pour les colonnes et 1 à 52 pour les lignes. Comment m'y prendre
facilement?

Merci d'avance

Greg