Discussion :

[tamtam64]

Bonjour,

J'aimerais pouvoir a partir d'un range de base pouvoir le modifier
J'utilise un tableau intermediaire , pouvez vous me proposer des alternatives a ce tableau ?
des methodes que je ne connaitrais peut etre pas .
Voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Set MyRange = ThisWorkbook.Worksheets("Feuil1").Range("A1:C10")
MyRange.Select
Set cell = MyRange
TabValeurs = MyRange.Columns(1).Value
MyRange.Columns(1).Value = MyRange.Columns(3).Value
MyRange.Columns(3).Value = TabValeurs
End Sub

Ici j'interverti la 1 et la 3 pazr exemple

[Marc-L]

Bonjour,

un bon code n'utilise pas de Select (example sans) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
    With Range("Feuil1!A1:C10")
                       VA = .Columns(1).Value
        .Columns(1).Value = .Columns(3).Value
        .Columns(3).Value = VA
    End With

Variante de la ligne n°1 avec le CodeName: With Feuil1.[A1:C10] …

_____________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

_____________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo

[tamtam64]

Oui sauf que le select que j'utilise est tout a fait inutile je l'avais mis pour le debugger .

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 With Range("Feuil1!A1:C10")
                       VA = .Columns(1).Value
        .Columns(1).Value = .Columns(3).Value
        .Columns(3).Value = VA
    End With

Des idees??

[joe.levrai]

Bonjour,

pour intervertir deux colonnes, tu n'as pas d'autre choix que de stocker une colonne dans un troisième contenant temporaire
le tableau étant la solution la plus rapide et la moins gourmande, pourquoi veux-tu procéder autrement ?

[tamtam64]

c'est pas que je veux fonctionner autrement mais des fois que l'on puisse le faire avec une methode de range que je ne connais pas , je demande a tout hasard, mais si tu dis que ca n'est pas possible je crois bien que ca l'est lol. merci

[eriiic]

Bonjour,

Tu peux aussi utiliser le couper-coller :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    Set pl = Range("A1:C10")
    pl.Cut
    pl.Offset(, -1).Insert Shift:=xlToRight

eric