VBA - Liens entre feuilles depuis des cellules créées

Bonjour à tous,

Je travaille actuellement sur le développement d'une Macro. Je suis débutant et je suis bloqué dans mon codage.

Je m'explique : j'ai déjà réalisé une macro qui créée un nombre de colonnes que j'ai déterminé à l'aide d'une inputbox (dans ma feuille 1 qui s'appelle Fiche Données). Ce nombre de colonnes génère automatiquement un nombre de feuille. Je souhaite ensuite réalisé des liens entre les cellules des colonnes créées avec une cellules des feuilles créées, et c'est la que ça bloque !!

Par exemple :

Valeur de la cellule F7 (Feuille 1) = Valeur cellule D19 (Feuille 3)

Valeur de la cellule F8 (Feuille 1) = Valeur cellule D19 (Feuille 4)

Valeur de la cellule F9 (Feuille 1) = Valeur cellule D19 (Feuille 5)

J'arrive a faire le lien pour une cellule mais pas à généraliser pour la ligne F de la feuille 1.

Voici le code que j'ai développé :

Code : ' Code pour mettre en relation les feuilles et colonnes d'une même ligne

Private Sub Worksheet_Change(ByVal Target As Range)

'Création des variables pour pouvoir étendre les liens à toutes les feuilles

Dim F As Integer, Fx As Integer

F = Worksheets.Count

For Fx = 1 To F - 2

'F-2 car les feuilles 1 et 2 sont déjà créées et ne rentre pas dans cette boucle

'Liens entre la feuille Fiche Données et les feuilles de Saturation de Grue

Application.EnableEvents = False 'gèle les évènements

Set F7 = Target.Offset(0, 1)

If Target.Address = "$F$7" Then

Worksheets(Fx + 2).Cells(19, 4) = Target

Application.EnableEvents = True 'les rétablis

End If

Next Fx

End Sub

Comment est-il possible de réaliser ces liens ?

Ci joint mon fichier test sur lequel je fais mes Macro

Merci d'avance pour vos réponses

Rechercher des sujets similaires à "vba liens entre feuilles creees"