Supprimer toutes les colonnes / lignes sauf...

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Tatanka
Le #22882391
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
Maude Este
Le #22883631
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
Greg
Le #22884191
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" 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




michdenis
Le #22885041
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" 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




Publicité
Poster une réponse
Anonyme