Intervertir le nom de deux feuilles

[Evelynetfrancois]

Bonjour a tous
Dans mon classeur j ai (entre autres) deux feuilles nommées
Self2 et Self
Pour INTERVERTIR le nom de ces deux feuilles j'utilise :

Sheets("Self2").Name = "x"
Sheets("Self").Name = "self2"
Sheets("x").Name = "self"

Self2 devient Self , et Self devient Self2


Je passe par "X" pour ne pas avoir, pendant l’exécution de la macro deux feuilles du même nom qui provoquent une erreur évidemment.....

N'y a t il pas plus simple, voir plus pro ???

Merci pour vos idées si précieuses

E et F

 

[phlaurent55]

Re : Intervertir le nom de deux feuilles

Bonjour Evelynetfrancois

il n'y a pas d'autre façon de procéder

je me souviens qu'en langage de programmation "Pascal" , il existait la fonction "swap" qui permettait de faire la même chose mais je ne pense pas qu'ellee existe en VB

 

[job75]

Re : Intervertir le nom de deux feuilles

Bonjour,

Simplement on peut tout écrire sur une seule ligne de code pour rappeler que les 3 opérations forment un même ensemble :

Sheets("Self2").Name = "x": Sheets("Self").Name = "self2": Sheets("x").Name = "self"

A+

 

[Evelynetfrancois]

Re : Intervertir le nom de deux feuilles

Merci pour vos reponses
j etais pas tres loin du "bien " lol
mais c est vrai qu'en une seule ligne , ca parait plus convenable
merci beaucoup
bonne soirée
E et F

 

[Pierrot93]

Re : Intervertir le nom de deux feuilles

Bonjour à tous

sauf erreur, même écrit sur la même ligne et séparées par des ":", il y aura bien 3 instructions d'exécutées consécutivement...

bonne soirée
@+