Discussion :

[Cabrinha]

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 :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
' 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 ?

Je vous joint également mon fichier pour mieux comprendre : 161206_2_Saturation de Grue.xlsm

Merci d'avance pour vos réponses

[goldstar]

Bonjour,

Si j'ai bien compris la demande, un code à tester

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
 
' Code pour mettre en relation les feuilles et colonnes d'une même ligne
 
Sub test()
 
 
    'Création des variables pour pouvoir étendre les liens à toutes les feuilles
 
 
    Dim F As Integer, Fx As Integer
    Dim ligneFormule As Integer, laFeuille As String
 
 
    ligneFormule = 6
 
    F = Worksheets.Count
 
    For Fx = 2 To F - 2
        ligneFormule = ligneFormule + 1
 
        laFeuille = Sheets(Fx).Name
 
        Sheets("Feuil1").Cells(ligneFormule, 6).FormulaLocal = "=" & laFeuille & "!D19"
 
        'Feuil2!D19
 
    '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

Cordialement,

[Cabrinha]

Merci Goldstar pour ta réponse,

Cependant, les valeurs que je rentre dans mes cellules sur la feuille 1 ne se retrouvent pas sur les autres feuilles. Les cellules D19 des différentes feuilles sont vides.

il ne faut pas utiliser la fonction Target ?

Merci