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

Paf

XLDnaute Barbatruc

• 22 Novembre 2015

• #2

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+

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 22 Novembre 2015

• #3

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

Bonjour CVL, Paf 🙂,

Un exemple de macro:

VB:

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

 

Pièces jointes

• CVL-Créer Feuille et nommer-v1.xlsm

  17 KB · Affichages: 31

Dernière édition: 22 Novembre 2015

Vote positif 0 Vote négatif

C

CVL

XLDnaute Nouveau

• 22 Novembre 2015

• #4

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

 

Vote positif 0 Vote négatif

C

CVL

XLDnaute Nouveau

• 22 Novembre 2015

• #5

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

 

Vote positif 0 Vote négatif