Comment dire la valeur d'une cellule de la feuille précédente

[CVL]

Bonjour,
Je voudrais savoir comment dire dans une macro : la valeur d'une cellule de la feuille précédente.

Je voudrais nommer une nouvelle feuille créée et située à la fin des feuilles comme la valeur d'une cellule "L1" qui se trouve dans la feuille précédente.
Merci ...

Cordialement,
CVL

 

[Paf]

Re : Comment dire la valeur d'une cellule de la feuille précédente

Bonjour,

si la feuille vient d'être créée en dernière position, à tester:

ActiveSheet.Name = Worksheets(Worksheets.Count - 1).Range("L1")


sinon pour trouver dans la feuille précédente:

MaVariable=Worksheets(ActiveSheet.Index - 1).Range("L1")

à noter que ça fonctionne moins bien si on est déjà positionné sur la première feuille

A+

 

[mapomme]

Re : Comment dire la valeur d'une cellule de la feuille précédente

Bonjour CVL, Paf ,

Un exemple de macro:

Sub AjouterFeuilAlafinNommer()
With ThisWorkbook.Worksheets
    .Add after:=.Item(.Count)
    .Item(.Count).Name = .Item(.Count - 1).Range("L1")
  End With
End Sub

 

[CVL]

Re : Comment dire la valeur d'une cellule de la feuille précédente

Re, une petite info ..
La fonction a bien fonctionné jusqu'à ce que je supprime certaines feuilles..
On dirait que la fonction ne fonctionne plus lorsque des feuilles ont été supprimées.
En passant dans la macro sur la ligne sur Worksheets.Count, je vois que le numéro indiqué n'est pas le dernier (indique 14 au lieu de 9).
Y aurait-t-il une fonction qui reprenne le compte exact sans tenir compte des feuilles supprimées ?

Cordialement,
CVL

 

[CVL]

Re : Comment dire la valeur d'une cellule de la feuille précédente

Re,
J'ai mis ci-dessous le lien url du fichier.
L'idée était de copier le fichier modèle à la fin du fichier et lui donner le nom suivant de la dernière feuille ...

Merci ...
CVL
Document Cjoint