Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel VBA Supprimer les mêmes colonnes de toutes les feuilles d'un classeur

VBA Supprimer les mêmes colonnes de toutes les feuilles d'un classeur

16 réponses
Avatar
Céline Brien
Bonjour à tous,
Comment supprimer les mêmes colonnes de toutes les feuilles d'un
classeur ?
J'ai essayé ceci...
-----------------------------------
For cpt = 1 To Sheets.Count
Sheets(cpt).Columns("A:K", "M:N", "R:S",
"V:AD").Selection.Delete
Next
-----------------------------------
Que me suggérez-vous ?
Merci de votre aide,
Céline
Signaler un problème avec ce contenu

10 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
1 2
Avatar
Jean-Paul Viel
Bonjour,



Essayer ce code :

Sub DelCol()

Dim shMe As Worksheet

For Each shMe In Worksheets.Count

shMe.Range("V:AD").Delete

shMe.Range("R:S").Delete

shMe.Range("M:N").Delete

shMe.Range("A:K").Delete

Next shMe

End Sub


--
JP

http://www.solutionsvba.com


"Céline Brien" wrote in message
news:uZoN$
Bonjour à tous,
Comment supprimer les mêmes colonnes de toutes les feuilles d'un
classeur ?
J'ai essayé ceci...
-----------------------------------
For cpt = 1 To Sheets.Count
Sheets(cpt).Columns("A:K", "M:N", "R:S",
"V:AD").Selection.Delete
Next
-----------------------------------
Que me suggérez-vous ?
Merci de votre aide,
Céline






Avatar
Daniel.M
Bonjour Jean-Paul,

For Each shMe In Worksheets.Count


Plutôt:
For Each shMe In Worksheets

Salutations,

Daniel M.

Avatar
garnote
Salut Daniel,

As-tu eu des nouvelles d'Isabelle concernant
le souper MPFE montréalais ?

Serge

"Daniel.M" a écrit dans le message de
news:
Bonjour Jean-Paul,

For Each shMe In Worksheets.Count


Plutôt:
For Each shMe In Worksheets

Salutations,

Daniel M.





Avatar
Céline Brien
Bonjour à tous,
Bonjour Jean-Paul,
Merci beaucoup pour ta réponse.
Les codes fonctionnent très bien sans le .Count.
Merci à Daniel pour cette précision.
Merci à vous tous de votre aide précieuse,
Céline

Une macro de plus à ma collection !
"Jean-Paul Viel" a écrit dans le message de news:
19I9b.1760$
Bonjour,



Essayer ce code :

Sub DelCol()

Dim shMe As Worksheet

For Each shMe In Worksheets.Count

shMe.Range("V:AD").Delete

shMe.Range("R:S").Delete

shMe.Range("M:N").Delete

shMe.Range("A:K").Delete

Next shMe

End Sub


--
JP

http://www.solutionsvba.com


"Céline Brien" wrote in message
news:uZoN$
Bonjour à tous,
Comment supprimer les mêmes colonnes de toutes les feuilles d'un
classeur ?
J'ai essayé ceci...
-----------------------------------
For cpt = 1 To Sheets.Count
Sheets(cpt).Columns("A:K", "M:N", "R:S",
"V:AD").Selection.Delete
Next
-----------------------------------
Que me suggérez-vous ?
Merci de votre aide,
Céline










Avatar
Daniel.M
Non. Mon adresse sympatico.ca ne fonctionne plus.
Il vaut mieux passer par Bigfoot.com car j'ai changé de FSI (vidéotron).

Mais je ne pourrai pas y être de toute façon (fin septembre)... cette fois-ci.

Salutations,

Daniel M.

"garnote" wrote in message
news:avI9b.17578$
Salut Daniel,

As-tu eu des nouvelles d'Isabelle concernant
le souper MPFE montréalais ?

Serge


Avatar
Céline Brien
Bonjour à tous,
Encore moi !
Je m'ambitionne.
En plus de supprimer les colonnes, j'ai renommé les titres des colonnes.
Pas de problème !
Toutefois, je souhaiterais supprimer une ligne de totaux qui est située
sous les données.
J'ai voulu utiliser les codes suivants ...
shMe.Range("A65530").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.EntireRow.Delete
mais je ne sais pas comment les insérer dans une boucle For Each shMe In
Worksheets.
Je demande votre aide une fois de plus. Voir les codes ci-dessous.
Merci,
Céline
-----------------------------------------------------------------
Sub SAMDetailedPriceListDonneesBrutes()
Dim shMe As Worksheet
For Each shMe In Worksheets
shMe.Range("V:AD").Delete
shMe.Range("R:T").Delete
shMe.Range("M:N").Delete
shMe.Range("A:K").Delete
shMe.Range("A1").Value = "Number"
shMe.Range("B1").Value = "Size"
shMe.Range("C1").Value = "Unit + Furniture"
shMe.Range("D1").Value = "Unit amount"
shMe.Range("E1").Value = "Furniture amount"
shMe.Range("A65530").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.EntireRow.Delete
Next shMe
End Sub
-----------------------------------------------------------------
"Jean-Paul Viel" a écrit dans le message de news:
19I9b.1760$
Bonjour,



Essayer ce code :

Sub DelCol()

Dim shMe As Worksheet

For Each shMe In Worksheets.Count

shMe.Range("V:AD").Delete

shMe.Range("R:S").Delete

shMe.Range("M:N").Delete

shMe.Range("A:K").Delete

Next shMe

End Sub


--
JP

http://www.solutionsvba.com


"Céline Brien" wrote in message
news:uZoN$
Bonjour à tous,
Comment supprimer les mêmes colonnes de toutes les feuilles d'un
classeur ?
J'ai essayé ceci...
-----------------------------------
For cpt = 1 To Sheets.Count
Sheets(cpt).Columns("A:K", "M:N", "R:S",
"V:AD").Selection.Delete
Next
-----------------------------------
Que me suggérez-vous ?
Merci de votre aide,
Céline










Avatar
Daniel.M
Salut Céline,

À la condition que ta ligne des totaux soit située exactement une ligne plus bas que la
dernière donnée en colonne A.

shMe.Range("A65530").End(xlUp)(2).EntireRow.Delete

Salutations,

Daniel M.

"Céline Brien" wrote in message
news:
Bonjour à tous,
Encore moi !
Je m'ambitionne.
En plus de supprimer les colonnes, j'ai renommé les titres des colonnes.
Pas de problème !
Toutefois, je souhaiterais supprimer une ligne de totaux qui est située
sous les données.
J'ai voulu utiliser les codes suivants ...
shMe.Range("A65530").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.EntireRow.Delete
mais je ne sais pas comment les insérer dans une boucle For Each shMe In
Worksheets.
Je demande votre aide une fois de plus. Voir les codes ci-dessous.
Merci,
Céline
-----------------------------------------------------------------
Sub SAMDetailedPriceListDonneesBrutes()
Dim shMe As Worksheet
For Each shMe In Worksheets
shMe.Range("V:AD").Delete
shMe.Range("R:T").Delete
shMe.Range("M:N").Delete
shMe.Range("A:K").Delete
shMe.Range("A1").Value = "Number"
shMe.Range("B1").Value = "Size"
shMe.Range("C1").Value = "Unit + Furniture"
shMe.Range("D1").Value = "Unit amount"
shMe.Range("E1").Value = "Furniture amount"
shMe.Range("A65530").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.EntireRow.Delete
Next shMe
End Sub
-----------------------------------------------------------------
"Jean-Paul Viel" a écrit dans le message de news:
19I9b.1760$
Bonjour,



Essayer ce code :

Sub DelCol()

Dim shMe As Worksheet

For Each shMe In Worksheets.Count

shMe.Range("V:AD").Delete

shMe.Range("R:S").Delete

shMe.Range("M:N").Delete

shMe.Range("A:K").Delete

Next shMe

End Sub


--
JP

http://www.solutionsvba.com


"Céline Brien" wrote in message
news:uZoN$
Bonjour à tous,
Comment supprimer les mêmes colonnes de toutes les feuilles d'un
classeur ?
J'ai essayé ceci...
-----------------------------------
For cpt = 1 To Sheets.Count
Sheets(cpt).Columns("A:K", "M:N", "R:S",
"V:AD").Selection.Delete
Next
-----------------------------------
Que me suggérez-vous ?
Merci de votre aide,
Céline













Avatar
Céline Brien
Bonjour à tous,
Salut Damiel,
La condition est bien respectée et ta ligne de codes a fait le travail.
SUPER !
Peux-tu m'expliquer le 2 à la suite de End(xlUp)(2).
Merci beaucoup de ton aide,
Céline

"Daniel.M" a écrit dans le message de
news:
Salut Céline,

À la condition que ta ligne des totaux soit située exactement une
ligne plus bas que la

dernière donnée en colonne A.

shMe.Range("A65530").End(xlUp)(2).EntireRow.Delete

Salutations,

Daniel M.

"Céline Brien" wrote in message
news:
Bonjour à tous,
Encore moi !
Je m'ambitionne.
En plus de supprimer les colonnes, j'ai renommé les titres des
colonnes.


Pas de problème !
Toutefois, je souhaiterais supprimer une ligne de totaux qui est
située


sous les données.
J'ai voulu utiliser les codes suivants ...
shMe.Range("A65530").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.EntireRow.Delete
mais je ne sais pas comment les insérer dans une boucle For Each
shMe In


Worksheets.
Je demande votre aide une fois de plus. Voir les codes ci-dessous.
Merci,
Céline
-----------------------------------------------------------------
Sub SAMDetailedPriceListDonneesBrutes()
Dim shMe As Worksheet
For Each shMe In Worksheets
shMe.Range("V:AD").Delete
shMe.Range("R:T").Delete
shMe.Range("M:N").Delete
shMe.Range("A:K").Delete
shMe.Range("A1").Value = "Number"
shMe.Range("B1").Value = "Size"
shMe.Range("C1").Value = "Unit + Furniture"
shMe.Range("D1").Value = "Unit amount"
shMe.Range("E1").Value = "Furniture amount"
shMe.Range("A65530").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.EntireRow.Delete
Next shMe
End Sub
-----------------------------------------------------------------
"Jean-Paul Viel" a écrit dans le message de
news:


19I9b.1760$
Bonjour,



Essayer ce code :

Sub DelCol()

Dim shMe As Worksheet

For Each shMe In Worksheets.Count

shMe.Range("V:AD").Delete

shMe.Range("R:S").Delete

shMe.Range("M:N").Delete

shMe.Range("A:K").Delete

Next shMe

End Sub


--
JP

http://www.solutionsvba.com


"Céline Brien" wrote in message
news:uZoN$
Bonjour à tous,
Comment supprimer les mêmes colonnes de toutes les feuilles d'un
classeur ?
J'ai essayé ceci...
-----------------------------------
For cpt = 1 To Sheets.Count
Sheets(cpt).Columns("A:K", "M:N", "R:S",
"V:AD").Selection.Delete
Next
-----------------------------------
Que me suggérez-vous ?
Merci de votre aide,
Céline

















Avatar
Daniel.M
Bienvenue Céline,

Peux-tu m'expliquer le 2 à la suite de End(xlUp)(2).


Un raccourci pour la méthode Item.
La syntaxe 2 avec une plage de 1 cellule retourne la cellule en-dessous.

Salutations,

Daniel M.

Avatar
Céline Brien
Bonjour à tous,
Bonjour Daniel,
Merci pour ta réponse.
Donc, si j'ai bien compris, si les totaux en colonnes B et C et D
avaient été deux lignes sous les données, les codes
shMe.Range("A65530").End(xlUp)(3).EntireRow.Delete
aurait supprimé cette ligne deux lignes sous les données ????
Merci encore,
Céline

"Daniel.M" a écrit dans le message de
news:
Bienvenue Céline,

Peux-tu m'expliquer le 2 à la suite de End(xlUp)(2).


Un raccourci pour la méthode Item.
La syntaxe 2 avec une plage de 1 cellule retourne la cellule
en-dessous.


Salutations,

Daniel M.





1 2