Formules croisées entre feuilles excel

[ting-ting]

Bonjour à tous,

Mon classeur Excel me permet de gerer des congés.
Avec un formulaire, je saisie une personne (Nom, date d'entrée...)
Ces infos ont deux parcours :
1- elles s'insèrent à la suite dans une feuille "LISTE"
2- elles créent une nouvelle feuille avec le nom de la personne (ex: feuille "NOM") en fonction de la feuille "MODELE" (copie)

Voici mes problèmes :

1- Je n'arrive pas à créer une formule lors de la création de la feuille "NOM" qui irai chercher une infos sur la derniere ligne créé dans la feuille "LISTE"

Voici ma formule, qui ne marche pas bien sur :

Range("B16").Formula = "=LISTE!"&"Range("F65536").End(xlUp).Offset(1, 0)"

Objectif : avoir dans la cellule B16 de la feuille "NOM" la formule "=LISTE!Dernière ligne de la colonne F"

2- Je souherai aussi faire le contraire, c'est à dire envoyé dans la feuille "LISTE", sur la drenière ligne de la colenne G la formule "=NOM!B30".

Du style :

Sheets("LISTE").Range("G65536").End(xlUp).Offset(1, 0).Formula = "=NOM!B30"

Objectif : avoir dans la cellule de la dernière ligne de la colonne G de la feuille "LISTE" la formule "=NOM!B30"

Si quelqu'un pouvait me sortie de ce tir croisé...

 

[matthieu33]

Re : Formules croisées entre feuilles excel

Bonjour ting-ting,

1er cas :

Range("B16").Formula = "=LISTE!" & "F" & Range("F" & Cells.Rows.Count).End(xlUp).Row

2me cas :

Worksheets("LISTE").Range("G" & Range("G" & Cells.Rows.Count).End(xlUp).Row + 1).Formula = "=NOM!B30"

 

[Bebere]

Re : Formules croisées entre feuilles excel

bonjour Tingting,Matthieu

Sheets("nom").Range("B16").Formula = "=liste!F" & Sheets("liste").Range("F65536").End(xlUp).Row + 1

Sheets("LISTE").Range("G65536").End(xlUp).row+1.Formula = "=NOM!B30"

à bientôt

 

[ting-ting]

Re : Formules croisées entre feuilles excel

Merci pour les infos.

Mais j'ai encore des ajustements à faire :

1er cas :
Pour Range("K2").Formula = "=LISTE!D" & Sheets("LISTE").Range("D65536").End(xlUp).Row + 1, je souhaite avoir le résultat au format texte.

2eme cas :
Sheets("LISTE").Range("h65536").End(xlUp).Offset(1, 0).Formula = "=" & TextBox2.Text & "!h39" me donne #REF! comme résultat (il me demande en plus d'ouvrie d'autres fichier excel!!), pourtant la formule obtenue est bonne.

Pour infos, les données saisie dans la textbox2 sont des noms et servent à nommer chaque nouvelle feuille.
Ex : si je saisie TUTU, la feuille crée s'appelera TUTU et la formule recherchée dans la dernière ligne de la colonne H de la feuille LISTE sera "=TUTU!H39", si je saisie TATA, la formule sera "=TATA!H39"...

Je suis désolé de vous embêter pour ça, mais je suis en phase d'apprentissage 😱