Inverser 2 colonnes par VBA sans sélectionner la feuille

[did85]

Bonsoir,

J'aurais aimé voulu savoir si il était possible de couper le contenu d'une ou plusieurs colonne, puis de les insérer dans la même plage de recopie, mais à un autre endroit en passant par un module ?

Je me suis aidé de l'enregistrement par macro d'excel pour fabriquer la macro, mais ce n'est pas exactement ce que je recherche. La feuille est sélectionnée :

Sheets("Travail").Select

est t-il possible d'avoir un fonctionnement transparent sans activer la feuille ?

Au final cette feuille sera invisible et verrouillée par mot de passe. Si il n'y a pas de possibilité de faire ce couper/coller de colonne sans réactiver la feuille, est-ce que c'est gênant d'un point de vue sécurité ?

Merci

 

[CBernardT]

Re : Inverser 2 colonnes par VBA sans sélectionner la feuille

Bonsoir did85,

Deux macros qui réalisent le projet.

Cordialement

Bernard

 

[did85]

Re : Inverser 2 colonnes par VBA sans sélectionner la feuille

Bonsoir,
merci CBernardT pour ton code.

Je ne pensais pas que cela aurait été aussi complexe.

Je te remercie beaucoup, je déchiffre ce que tu as fait et je tente de l'adapter à mon projet.

Merci

 

[CBernardT]

Re : Inverser 2 colonnes par VBA sans sélectionner la feuille

Re,

A noter que j'ai du rajouter une ligne de code car certains Kansas de la base de données ont un espace à la fin :

If Right(Tablo(i, 2), 1) = " " Then Tablo(i, 2) = Left(Tablo(i, 2), Len(Tablo(i, 2)) - 1)


A+

Bernard

 

[did85]

Re : Inverser 2 colonnes par VBA sans sélectionner la feuille

Bonjour,
merci pour ta remarque.
Comme j'utilise une feuille de saisie pour entrer les valeurs, je vais supprimer tout espace par un "Trim" et voir ce que ça donne.

Merci