intervertir le contenu de deux cellules avec la souris

Je sais pas s'il est possible de d'intervertir deux cellules comme tu le
demandes (ce serait intéressant) mais comme autre solution tu as la
possibilité d'insérer une colonne entre les deux que tu veux intervertir
puis tu en déplaces une dans la nouvelle colonne et tu mets la deuxième dans
celle que tu viens de libérer. Enfin tu supprimes la dernière colonne vide.
Nico

"Christophe Cerbourg" <someone@some.where> a écrit dans le message de
news:%23FisfYsCFHA.3740@TK2MSFTNGP09.phx.gbl...

Bonjour,

Est-il possible d'intervertir le contenu de deux cellules en faisant
glisser

l'une vers l'autre à l'aide de la souris, quitte à utiliser en même temps
une combinaison de touches, même compliquée ?

Si oui, comment ?
Si non, quel moyen, le plus simple possible, voyez-vous pour déplacer des
cellules d'une colonne à l'autre ?


Merci pour votre aide

merci pour cette suggestion... mais c'est justement ce que je cherche à
éviter !

Il faut que ça soit simple à manipuler, sinon ça ne servira pas.

En fait, ça peut très bien ne pas être un vrai "glisser", par exemple : je
clique sur cellule A1, puis sur B2 et hop, elles sont interverties...

Il faut que ça soit très simple car c'est à utiliser plein de fois très
rapidement (c'est pour constituer des poules dans un championnat, puis
intervertirdes équipes)



"free" <barreau_nicolas@hotmail.com> a écrit dans le message de
news:42038a9f$0$501$626a14ce@news.free.fr...

Je sais pas s'il est possible de d'intervertir deux cellules comme tu le
demandes (ce serait intéressant) mais comme autre solution tu as la
possibilité d'insérer une colonne entre les deux que tu veux intervertir
puis tu en déplaces une dans la nouvelle colonne et tu mets la deuxième
dans

celle que tu viens de libérer. Enfin tu supprimes la dernière colonne
vide.

Nico

Bonjour Christophe,

Tu mets le code suivant dans un module standard. Tu séléctionnes les 2
cellules a inverser en clickant sur l'une pius CTrl+l'autre. Tu lances le
code.

sub echange()

dim celchoisies as string, cel1 as string, cel2 as string, cal1 as variant,
val2 as variant

celchoisies = Selection.Address
cel1 = Left(celchoisies, Evaluate("Find("","",""" & celchoisies & """)") - 1)
cel2 = Right(celchoisies, Len(celchoisies) - Evaluate("Find("","",""" &
celchoisies & """)"))

val1 = range(cel1)
val2 = range(cel2)
range(cel1)=val2
range(cel2)=val1

end sub

Cordialement
Benjamin

merci pour cette suggestion... mais c'est justement ce que je cherche à
éviter !

Il faut que ça soit simple à manipuler, sinon ça ne servira pas.

En fait, ça peut très bien ne pas être un vrai "glisser", par exemple : je
clique sur cellule A1, puis sur B2 et hop, elles sont interverties...

Il faut que ça soit très simple car c'est à utiliser plein de fois très
rapidement (c'est pour constituer des poules dans un championnat, puis
intervertirdes équipes)



"free" <barreau_nicolas@hotmail.com> a écrit dans le message de
news:42038a9f$0$501$626a14ce@news.free.fr...

Je sais pas s'il est possible de d'intervertir deux cellules comme tu le
demandes (ce serait intéressant) mais comme autre solution tu as la
possibilité d'insérer une colonne entre les deux que tu veux intervertir
puis tu en déplaces une dans la nouvelle colonne et tu mets la deuxième
dans

celle que tu viens de libérer. Enfin tu supprimes la dernière colonne
vide.

Nico

ça marche, merci !

j'étais parti dans des test du drag&drop mais sans arriver à rien.

Je vais me servir de ta fonction.