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 Inerser contenu colonne ???

Inerser contenu colonne ???

18 réponses
Avatar
LE TROLL
Bonjour,

Un colonne :

5
3
10

Je voudrais l'inverser :
10
3
5

Comment faire ?

Merci beaucoup, au revoir et à bientôt :o)
------
Romans, logiciels, email, site personnel
http://irolog.free.fr/joe.htm
------------------------------------------------------------------------------------
Signaler un problème avec ce contenu

8 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
garnote
Avec une seule macro :

Sub INV()
Set s = Selection
Dim i As Long, j As Long
Dim m As Long, n As Long
Dim ns
i = s.Rows.Count
j = s.Columns.Count
ReDim ns(1 To i, 1 To j)
For m = 1 To i
For n = 1 To j
ns(m, n) = s(i - m + 1, j - n + 1)
Next n
Next m
s.Value = ns
End Sub

Si ta sélection contient plusieurs lignes et plusieurs
colonnes, la macro les inverse comme ceci.
Exemple :
La plage :
a11 a12 a13
a21 a22 a23
a31 a32 a33
devient
a33 a32 a31
a23 a22 a21
a13 a12 a11

Serge
Avatar
michdenis
Un exemple de code de la suggestion proposée !

'-------------------------
Sub test()
Dim Rg As Range
With Worksheets("Feuil1")
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
Rg.Offset(, 1).Formula = "=row()"
Rg.Offset(, 1).Value = Rg.Offset(, 1).Value
Rg.Resize(, 2).Sort Key1:=Rg.Resize(, 2)(1, 1), order1:=xlDescending,
Header:=xlNo
Rg.Offset(, 1).Clear
End With
End Sub
'-------------------------




"LE TROLL" <le a écrit dans le message de news:

Bonjour,

Un colonne :

5
3
10

Je voudrais l'inverser :
10
3
5

Comment faire ?

Merci beaucoup, au revoir et à bientôt :o)
------
Romans, logiciels, email, site personnel
http://irolog.free.fr/joe.htm
------------------------------------------------------------------------------------
Avatar
michdenis
Je préfère cette syntaxe :

'--------------------
Sub test2()
Application.ScreenUpdating = False
With Worksheets("Feuil1")
With .Range("A1:A" & .Range("A65536").End(xlUp).Row)
.Offset(, 1).Formula = "=row()"
.Offset(, 1).Value = .Offset(, 1).Value
.Resize(, 2).Sort Key1:=.Resize(, 2)(1, 1), order1:=xlDescending,
Header:=xlNo
.Offset(, 1).Clear
End With
End With
End Sub
'--------------------


"michdenis" a écrit dans le message de news:
%23l1$
Un exemple de code de la suggestion proposée !

'-------------------------
Sub test()
Dim Rg As Range
With Worksheets("Feuil1")
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
Rg.Offset(, 1).Formula = "=row()"
Rg.Offset(, 1).Value = Rg.Offset(, 1).Value
Rg.Resize(, 2).Sort Key1:=Rg.Resize(, 2)(1, 1), order1:=xlDescending,
Header:=xlNo
Rg.Offset(, 1).Clear
End With
End Sub
'-------------------------




"LE TROLL" <le a écrit dans le message de news:

Bonjour,

Un colonne :

5
3
10

Je voudrais l'inverser :
10
3
5

Comment faire ?

Merci beaucoup, au revoir et à bientôt :o)
------
Romans, logiciels, email, site personnel
http://irolog.free.fr/joe.htm
------------------------------------------------------------------------------------
Avatar
LE TROLL
T'es une femme ???




------
Romans, logiciels, email, site personnel
http://irolog.free.fr/joe.htm
------------------------------------------------------------------------------------
"Misange" a écrit dans le message de news:
%23sjlb$
| bonnes fêtes à toi aussi.
|
| Misange migrateuse
| XlWiki : Participez à un travail collaboratif sur excel !
| http://xlwiki.free.fr/wiki
| http://www.excelabo.net
|
| Jacquouille a écrit :
| > "Misange" a écrit dans le message de news:
| >> Misange qui parfois a envie de gratter tout court !
| >
| > Salut Flo
| >
| > Il y a moyen de rire sans ça. -)
| >
| > Je profite du présent pour t'envoyer tout plein des bons souhaits pour
les
| > réveillons et des tonnes de bises pour le Nouvel An. De ma part, mais
ausi
| > de la part de ceux qui ont "oublié-pas le temps" de te dire merci pour
| > l'énorme boulot que tu fais ici.
| > Sois-en remerciée par ces quelques mots maladroits.
| >
Avatar
Philippe.R
Bonsoir,
Voir ici :
http://jacxl.free.fr/mpfe/fiches/flo.html
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"LE TROLL" <le a écrit dans le message de
news:
T'es une femme ???




------
Romans, logiciels, email, site personnel
http://irolog.free.fr/joe.htm
------------------------------------------------------------------------------------
"Misange" a écrit dans le message de news:
%23sjlb$
| bonnes fêtes à toi aussi.
|
| Misange migrateuse
| XlWiki : Participez à un travail collaboratif sur excel !
| http://xlwiki.free.fr/wiki
| http://www.excelabo.net
|
| Jacquouille a écrit :
| > "Misange" a écrit dans le message de news:
| >> Misange qui parfois a envie de gratter tout court !
| >
| > Salut Flo
| >
| > Il y a moyen de rire sans ça. -)
| >
| > Je profite du présent pour t'envoyer tout plein des bons souhaits pour
les
| > réveillons et des tonnes de bises pour le Nouvel An. De ma part, mais
ausi
| > de la part de ceux qui ont "oublié-pas le temps" de te dire merci pour
| > l'énorme boulot que tu fais ici.
| > Sois-en remerciée par ces quelques mots maladroits.
| >




Avatar
Misange
Et en quoi est-ce surprenant ?

Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net

LE TROLL a écrit :
T'es une femme ???




------
Romans, logiciels, email, site personnel
http://irolog.free.fr/joe.htm
------------------------------------------------------------------------------------
"Misange" a écrit dans le message de news:
%23sjlb$
| bonnes fêtes à toi aussi.
|
| Misange migrateuse
| XlWiki : Participez à un travail collaboratif sur excel !
| http://xlwiki.free.fr/wiki
| http://www.excelabo.net
|
| Jacquouille a écrit :
| > "Misange" a écrit dans le message de news:
| >> Misange qui parfois a envie de gratter tout court !
| >
| > Salut Flo
| >
| > Il y a moyen de rire sans ça. -)
| >
| > Je profite du présent pour t'envoyer tout plein des bons souhaits pour
les
| > réveillons et des tonnes de bises pour le Nouvel An. De ma part, mais
ausi
| > de la part de ceux qui ont "oublié-pas le temps" de te dire merci pour
| > l'énorme boulot que tu fais ici.
| > Sois-en remerciée par ces quelques mots maladroits.
| >




Avatar
LE TROLL
Ah oui, et tu vis avec une chatte ?
Ben je ne savais pas, c'est rare, généralement ce sont des hommes, c'est
pour ça.


------
Romans, logiciels, email, site personnel
http://irolog.free.fr/joe.htm
------------------------------------------------------------------------------------
"Misange" a écrit dans le message de news:
%
| Et en quoi est-ce surprenant ?
|
| Misange migrateuse
| XlWiki : Participez à un travail collaboratif sur excel !
| http://xlwiki.free.fr/wiki
| http://www.excelabo.net
|
| LE TROLL a écrit :
| > T'es une femme ???
| >
| >
| >
| >
| > ------
| > Romans, logiciels, email, site personnel
| > http://irolog.free.fr/joe.htm
|
> ------------------------------------------------------------------------------------
| > "Misange" a écrit dans le message de news:
| > %23sjlb$
| > | bonnes fêtes à toi aussi.
| > |
| > | Misange migrateuse
| > | XlWiki : Participez à un travail collaboratif sur excel !
| > | http://xlwiki.free.fr/wiki
| > | http://www.excelabo.net
| > |
| > | Jacquouille a écrit :
| > | > "Misange" a écrit dans le message de news:
| > | >> Misange qui parfois a envie de gratter tout court !
| > | >
| > | > Salut Flo
| > | >
| > | > Il y a moyen de rire sans ça. -)
| > | >
| > | > Je profite du présent pour t'envoyer tout plein des bons souhaits
pour
| > les
| > | > réveillons et des tonnes de bises pour le Nouvel An. De ma part,
mais
| > ausi
| > | > de la part de ceux qui ont "oublié-pas le temps" de te dire merci
pour
| > | > l'énorme boulot que tu fais ici.
| > | > Sois-en remerciée par ces quelques mots maladroits.
| > | >
| >
| >
Avatar
Jacquouille
Bonsoir
Je te propose d'en rester là, eut égard à cette veillée de Noël.
Sache que Flo est MVP Excel et qu'elle boulotte énormément pour garder son
site à jour afin de nous (toi aussi) permettre d'y puiser le petit quelque
chose qui nous manque.
A cet égard, elle mérite des mercis et des applaudissements.
Nous laisserons aux vieux de ce forum le soin de la taquiner un peu, s'il
échet.
Je te suggère de transformer tes deux dernières remarques en mercis pour les
réponses qu'elle t'a offertes.
Joyeux Noël
Jacques.

--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."

Jacquouille.

"LE TROLL" <le a écrit dans le message de news:

Ah oui, et tu vis avec une chatte ?
Ben je ne savais pas, c'est rare, généralement ce sont des hommes, c'est
pour ça.


------
Romans, logiciels, email, site personnel
http://irolog.free.fr/joe.htm
------------------------------------------------------------------------------------
"Misange" a écrit dans le message de news:
%
| Et en quoi est-ce surprenant ?
|
| Misange migrateuse
| XlWiki : Participez à un travail collaboratif sur excel !
| http://xlwiki.free.fr/wiki
| http://www.excelabo.net
|
| LE TROLL a écrit :
| > T'es une femme ???
| >
| >
| >
| >
| > ------
| > Romans, logiciels, email, site personnel
| > http://irolog.free.fr/joe.htm
|
> ------------------------------------------------------------------------------------
| > "Misange" a écrit dans le message de news:
| > %23sjlb$
| > | bonnes fêtes à toi aussi.
| > |
| > | Misange migrateuse
| > | XlWiki : Participez à un travail collaboratif sur excel !
| > | http://xlwiki.free.fr/wiki
| > | http://www.excelabo.net
| > |
| > | Jacquouille a écrit :
| > | > "Misange" a écrit dans le message de news:
| > | >> Misange qui parfois a envie de gratter tout court !
| > | >
| > | > Salut Flo
| > | >
| > | > Il y a moyen de rire sans ça. -)
| > | >
| > | > Je profite du présent pour t'envoyer tout plein des bons souhaits
pour
| > les
| > | > réveillons et des tonnes de bises pour le Nouvel An. De ma part,
mais
| > ausi
| > | > de la part de ceux qui ont "oublié-pas le temps" de te dire merci
pour
| > | > l'énorme boulot que tu fais ici.
| > | > Sois-en remerciée par ces quelques mots maladroits.
| > | >
| >
| >




1 2