Rapport de message :*
 

Re: Valeur Onglet suivant valeur cellule

Titre du sujet : Re: Valeur Onglet suivant valeur cellule
par myDearFriend! le 15/09/2007 01:18:39

Bonsoir Spitnolan08,
Re oxor, JCGL,

Eh bien, on ne peut plus s'absenter une soirée sans que ça devienne le salon des causeries ici...

Citation :

Spitnolan08 a écrit:

Sub AjouteRenommeFeuille()
With Sheets.Add
.Name = Sheets("Feuil1").Range("B1").Value
End With
End Sub

en supposant que c'est la cellule B1 de la feuille1 qui contient l'info...

Cordialement

Cela dit, messieurs, j'aimerais bien que l'un de vous m'explique en quoi l'ajout d'un With / End With (pas vraiment justifié ici) rend le code que je présentais plus haut plus efficace qu'à l'origine ?

Cordialement,