inversion données cellule

S

SubEndSub

XLDnaute Occasionnel

• 24 Août 2009

• #2

Re : inversion données cellule

Bonjour chez vous


Une solution par macro

Code:

Sub Macro()
Columns("A:A").Insert Shift:=xlToRight
[C1].Cut [A1]
End Sub

Une solution qui inverse et vice et versa
(fonctionne avec chiffres et lettres (pour les lettres un seul caractère) )

Code:

Sub Macro2()
Range("A1:B1").Sort _
    Key1:=Range("A1"), _
    Order1:=Switch([A1] > [B1], xlAscending, [A1] < [B1], xlDescending), _
    Header:=xlGuess, _
    OrderCustom:=1, _
    MatchCase:=False, _
    Orientation:=xlLeftToRight
End Sub

 

Dernière édition: 24 Août 2009

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 24 Août 2009

• #3

Re : inversion données cellule

Bonjour pieralain, SubEndSub,

Si l'on veut seulement inverser 2 cellules, on peut utiliser aussi :

Code:

Sub Inverser()
Dim F$
F = [A1].Formula
[A1].Formula = [B1].Formula
[B1].Formula = F
End Sub

Mais si l'on veut inverser des plages de cellules ou utiliser une macro évènementielle Worksheet_Change, c'est plus compliqué, et il faudrait préciser.

A+

 

Vote positif 0 Vote négatif

P

pieralain

Guest

• 24 Août 2009

• #4

Re : inversion données cellule

ou la la
il n'y a pas plus simple ? je n'ai jamais fait de macro et pour moi c'est du charabia
merci pour votre aide

 

Vote positif 0 Vote négatif

S

SubEndSub

XLDnaute Occasionnel

• 24 Août 2009

• #5

Re : inversion données cellule

Bonjour chez vous


Tu peux faire cela avec le menu Données/Trier

Tu sélectionnes A1 : B1

Données/Trier

Options : cocher De la gauche vers la droite

Puis choisir selon le cas : Croissant ou Décroissant

C'est ce fait que la macro : Macro2

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 24 Août 2009

• #6

Re : inversion données cellule

Re,

pieralain, sans macro les cellules A1 et B1 ne s'inversent pas toutes seules, vous devez le savoir.

Mais on peut toujours faire manuellement ce que SubEndSub propose (à peu près) dans sa 1ère macro, à savoir :

- sélectionner B1, clic droit => Couper

- sélectionner A1, clic droit => Insérer les cellules coupées.

A+

 

Vote positif 0 Vote négatif

P

pieralain

Guest

• 24 Août 2009

• #7

Re : inversion données cellule

merci JOB75 çà marche super

peux-tu m'expliquer comment le faire en macro, je n'en ai jamais fait, je ne comprends pas le 1er message !

 

Vote positif 0 Vote négatif

S

SubEndSub

XLDnaute Occasionnel

• 24 Août 2009

• #8

Re : inversion données cellule

Bonjour job75

Merci d'avoir expliqué la procédure manuelle pour la Macro1.

Personnellement je préfère la méthode manuelle (Données/Trier) de la Macro2

(que je venais de détailler précédemment)

 

Vote positif 0 Vote négatif

P

pieralain

Guest

• 24 Août 2009

• #9

Re : inversion données cellule

bonjour SUBENDSUB
merci pour tes réponses, mais je n'ai pas réussi, je réessayerai malgré tout car je suis tenace
merci encore

 

Vote positif 0 Vote négatif