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
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) :
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
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) :
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) :
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
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) :
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
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$426a34cc@news.free.fr...
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 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) :
