Inerser contenu colonne ???

garnote

23/12/2008 à 18:02

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

michdenis

23/12/2008 à 18:20

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
------------------------------------------------------------------------------------

michdenis

23/12/2008 à 18:24

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
------------------------------------------------------------------------------------

LE TROLL

23/12/2008 à 19:50

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.
| >

Philippe.R

23/12/2008 à 20:27

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.
| >

Misange

23/12/2008 à 22:26

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.
| >

LE TROLL

24/12/2008 à 03:55

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.
| > | >
| >
| >

Jacquouille

24/12/2008 à 15:32

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.
| > | >
| >
| >

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 troll@enfer.fr> a écrit dans le message de news:
OIMvjMXZJHA.3844@TK2MSFTNGP02.phx.gbl...

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" <misange@monsite.net> a écrit dans le message de news:
%23c1siUUZJHA.1336@TK2MSFTNGP02.phx.gbl...
| 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" <misange@monsite.net> a écrit dans le message de news:
| > %23sjlb$RZJHA.1964@TK2MSFTNGP02.phx.gbl...
| > | 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" <misange@monsite.net> 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.
| > | >
| >
| >

Vous avez filtré cet utilisateur ! Consultez son message

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.
| > | >
| >
| >

Inerser contenu colonne ???

8 réponses

Veuillez sélectionner un problème