Dans une extraction j'ai cinq feuilles, dans chaque feuilles j'ai 7
colonnes, je veux réorganiser les colonnes ?
dans chaque feuille je veux inversé la Colonnes 6 et 7, I.E. la colonnes 6
devient la 7 et inversement, sans perdre les données contenues dans les
colonnes.
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
Azo3
hum! 1 - tu colles la 6 sur la 8, la 7 sur la 6, la 8 sur la 7 2 - tu inséres une colonne avant la 6 , tu colles....
-- Serge CENCI
MVP Microsoft WORKS
NB - adresse : enlever NOSPAM "Nistan" a écrit dans le message de news:
Bonjour,
Dans une extraction j'ai cinq feuilles, dans chaque feuilles j'ai 7 colonnes, je veux réorganiser les colonnes ?
dans chaque feuille je veux inversé la Colonnes 6 et 7, I.E. la colonnes 6 devient la 7 et inversement, sans perdre les données contenues dans les colonnes.
MErci
hum!
1 - tu colles la 6 sur la 8, la 7 sur la 6, la 8 sur la 7
2 - tu inséres une colonne avant la 6 , tu colles....
--
Serge CENCI
sergiofranceENLEVER@wanadoo.fr
MVP Microsoft WORKS
NB - adresse : enlever NOSPAM
"Nistan" <Nistan@discussions.microsoft.com> a écrit dans le message de news:
053A08A1-EF8F-4874-B022-79F0521181C2@microsoft.com...
Bonjour,
Dans une extraction j'ai cinq feuilles, dans chaque feuilles j'ai 7
colonnes, je veux réorganiser les colonnes ?
dans chaque feuille je veux inversé la Colonnes 6 et 7, I.E. la colonnes 6
devient la 7 et inversement, sans perdre les données contenues dans les
colonnes.
hum! 1 - tu colles la 6 sur la 8, la 7 sur la 6, la 8 sur la 7 2 - tu inséres une colonne avant la 6 , tu colles....
-- Serge CENCI
MVP Microsoft WORKS
NB - adresse : enlever NOSPAM "Nistan" a écrit dans le message de news:
Bonjour,
Dans une extraction j'ai cinq feuilles, dans chaque feuilles j'ai 7 colonnes, je veux réorganiser les colonnes ?
dans chaque feuille je veux inversé la Colonnes 6 et 7, I.E. la colonnes 6 devient la 7 et inversement, sans perdre les données contenues dans les colonnes.
MErci
Nistan
Bonjour,
Oui ca je sais faire, mais j'ai cinq feuilles, donc je chercher une macro qui pourrai le faire, comme je fais une extraction 2 fois par semaines cela me permetterai de gagner du temps.
hum! 1 - tu colles la 6 sur la 8, la 7 sur la 6, la 8 sur la 7 2 - tu inséres une colonne avant la 6 , tu colles....
-- Serge CENCI
MVP Microsoft WORKS
NB - adresse : enlever NOSPAM "Nistan" a écrit dans le message de news:
Bonjour,
Dans une extraction j'ai cinq feuilles, dans chaque feuilles j'ai 7 colonnes, je veux réorganiser les colonnes ?
dans chaque feuille je veux inversé la Colonnes 6 et 7, I.E. la colonnes 6 devient la 7 et inversement, sans perdre les données contenues dans les colonnes.
MErci
Bonjour,
Oui ca je sais faire, mais j'ai cinq feuilles, donc je chercher une macro
qui pourrai le faire, comme je fais une extraction 2 fois par semaines cela
me permetterai de gagner du temps.
hum!
1 - tu colles la 6 sur la 8, la 7 sur la 6, la 8 sur la 7
2 - tu inséres une colonne avant la 6 , tu colles....
--
Serge CENCI
sergiofranceENLEVER@wanadoo.fr
MVP Microsoft WORKS
NB - adresse : enlever NOSPAM
"Nistan" <Nistan@discussions.microsoft.com> a écrit dans le message de news:
053A08A1-EF8F-4874-B022-79F0521181C2@microsoft.com...
Bonjour,
Dans une extraction j'ai cinq feuilles, dans chaque feuilles j'ai 7
colonnes, je veux réorganiser les colonnes ?
dans chaque feuille je veux inversé la Colonnes 6 et 7, I.E. la colonnes 6
devient la 7 et inversement, sans perdre les données contenues dans les
colonnes.
Oui ca je sais faire, mais j'ai cinq feuilles, donc je chercher une macro qui pourrai le faire, comme je fais une extraction 2 fois par semaines cela me permetterai de gagner du temps.
hum! 1 - tu colles la 6 sur la 8, la 7 sur la 6, la 8 sur la 7 2 - tu inséres une colonne avant la 6 , tu colles....
-- Serge CENCI
MVP Microsoft WORKS
NB - adresse : enlever NOSPAM "Nistan" a écrit dans le message de news:
Bonjour,
Dans une extraction j'ai cinq feuilles, dans chaque feuilles j'ai 7 colonnes, je veux réorganiser les colonnes ?
dans chaque feuille je veux inversé la Colonnes 6 et 7, I.E. la colonnes 6 devient la 7 et inversement, sans perdre les données contenues dans les colonnes.
MErci
michdenis
Bonjour Nistan,
Ce que tu décris va s'appliquer à toutes les feuilles du classeur.
'--------------------------- Sub ReplacerOrdreColonnes()
Dim Nom As String Nom = ActiveSheet.Name Application.ScreenUpdating = False With ThisWorkbook For Each sh In Worksheets sh.Columns(6).Copy sh.Columns(8) sh.Columns(7).Copy sh.Columns(6) sh.Columns(8).Copy sh.Columns(7) sh.Columns(8).Clear Next End With Sheets(Nom).Select End Sub '---------------------------
Salutations!
"Nistan" a écrit dans le message de news: Bonjour,
Dans une extraction j'ai cinq feuilles, dans chaque feuilles j'ai 7 colonnes, je veux réorganiser les colonnes ?
dans chaque feuille je veux inversé la Colonnes 6 et 7, I.E. la colonnes 6 devient la 7 et inversement, sans perdre les données contenues dans les colonnes.
MErci
Bonjour Nistan,
Ce que tu décris va s'appliquer à toutes les feuilles du classeur.
'---------------------------
Sub ReplacerOrdreColonnes()
Dim Nom As String
Nom = ActiveSheet.Name
Application.ScreenUpdating = False
With ThisWorkbook
For Each sh In Worksheets
sh.Columns(6).Copy sh.Columns(8)
sh.Columns(7).Copy sh.Columns(6)
sh.Columns(8).Copy sh.Columns(7)
sh.Columns(8).Clear
Next
End With
Sheets(Nom).Select
End Sub
'---------------------------
Salutations!
"Nistan" <Nistan@discussions.microsoft.com> a écrit dans le message de news: 053A08A1-EF8F-4874-B022-79F0521181C2@microsoft.com...
Bonjour,
Dans une extraction j'ai cinq feuilles, dans chaque feuilles j'ai 7
colonnes, je veux réorganiser les colonnes ?
dans chaque feuille je veux inversé la Colonnes 6 et 7, I.E. la colonnes 6
devient la 7 et inversement, sans perdre les données contenues dans les
colonnes.
Ce que tu décris va s'appliquer à toutes les feuilles du classeur.
'--------------------------- Sub ReplacerOrdreColonnes()
Dim Nom As String Nom = ActiveSheet.Name Application.ScreenUpdating = False With ThisWorkbook For Each sh In Worksheets sh.Columns(6).Copy sh.Columns(8) sh.Columns(7).Copy sh.Columns(6) sh.Columns(8).Copy sh.Columns(7) sh.Columns(8).Clear Next End With Sheets(Nom).Select End Sub '---------------------------
Salutations!
"Nistan" a écrit dans le message de news: Bonjour,
Dans une extraction j'ai cinq feuilles, dans chaque feuilles j'ai 7 colonnes, je veux réorganiser les colonnes ?
dans chaque feuille je veux inversé la Colonnes 6 et 7, I.E. la colonnes 6 devient la 7 et inversement, sans perdre les données contenues dans les colonnes.
