Discussion :

[gregbaron]

Bonjour à toutes et à tous,
Je débute tout juste en programmation VBA, j'ai déjà lu quelques ressources (notamment celles proposées sur ce site).

Vous vous en doutez, si j'ouvre cette discussion c'est parce que je bute sur une macro.

Comment puis-je retranscrire en VBA la formule suivante sur la page active (qui est la dernière du classeur)

D8 = 'Feuille précédente'!H18

Pour le moment j'ai tenté (sans succès) ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub test()
 
Worksheets(Worksheets.Count).Cells(8, 4) = Worksheets(Worksheets.Count - 1).Cells(18, 8)
 
End Sub

Je ne cherche pas à recopier la valeur, mais bien à obtenir en barre de formule de D8 " ='Feuille précédente'!H18"
Le but étant qu'à chaque création d'un nouveau doublon de feuille la formule renvoie vers la feuille qui précède et non vers la première feuille créée
(dites moi si ce n'est pas claire)


Je vous remercie d'avance pour votre aide,
Je vous souhaite une excellente journée.

Greg

[Jean-Philippe André]

Salut,

pour ecrire une formule on passe par la propriete Formula de l'objet Range().

Ce qui donnera dans ton cas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets(Worksheets.Count).Cells(8, 4).Formula = "='Feuille précédente'!H18"

[gregbaron]

Bonjour,
merci pour ce retour,

Ce qui me pose problème c'est qu'en recopiant texto votre code (il faut peut-être que je l'adapte) j’obtiens en barre de formule 'Feuille précédente'H18
Or je souhaite que cela pointe sur la feuille précédente ( de façon dynamique)

En faite ma macro me permet de générer 3 feuilles je veux que la formule de la troisième feuille soit liée a le 2nd
mais si je réutilise la macro (je fais a nouveau +3 feuilles) je veux que la 6e soit liée a la 5e (et ainsi de suite)

Comment faire ?

Merci encore

[Jean-Philippe André]

La logique de feuille "precedente" c'est un sujet quelque peu complexe, car si tu changes l'ordre de tes feuilles par la suite, ca signifierait qu'on doive mettre a jour ?

Tu peux recuperer le nom de la feuille "precedente" avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets(Worksheets.Count).Cells(8, 4).Formula = "='" & Worksheets(Worksheets.Count-1).Name & "'!H18"

[gregbaron]

OOH super c'est exactement ça !

Un grand merci c'est tout ce que je voulais.

Il me manquait l'astuce du "XXX" &...&"xxx"
A retenir

Bonne journée