Vba Créer une liaison entre 2 feuilles nommées par variables

[Togaf]

Bonsoir,
Je bloque sur la syntaxe de la macro pour faire une liaison entre 2 cellules situées sur 2 feuilles nommées à partir de variables. Voir fichier-joint.
Merci d'avance pour réponse.

 

[kjin]

Re : Vba Créer une liaison entre 2 feuilles nommées par variables

Bonsoir,
J'ai beau regardé le fichier joint je ne trouve aucune explication
Est-ce un oubli...!?🙄
A+
kjin

 

[bérylion]

Re : Vba Créer une liaison entre 2 feuilles nommées par variables

# erreur #

 

[bérylion]

Re : Vba Créer une liaison entre 2 feuilles nommées par variables

Bonsoir,
Je bloque sur la syntaxe de la macro pour faire une liaison entre 2 cellules situées sur 2 feuilles nommées à partir de variables. Voir fichier-joint.
Merci d'avance pour réponse.

Salut

corrige la ligne notée ' correction ici

Option Explicit
Sub Macro1()
'
' Macro1 Macro
'
'pour figer l'ecran
'Application.ScreenUpdating = False
Sheets("Main").Select

Dim n                                                 'initialisation de la variable n (n° de ligne) et debuter le test
n = 5
Dim y
y = 5
Dim m
m = 4

While Sheets("Main").Range("C" & n) <> 0           ' test: feuille Main, colonne c ,ligne n, différend de 0

  If Sheets("Main").Range("C" & n) <> "" Then     ' teste non vide

 Sheets("Modèle").Copy after:=Sheets(n - 3)            'création de la nouvelle feuille par copie de Modèle 'création de la nouvelle feuille par copie de Modèle

ActiveSheet.Name = Left(Sheets("Main").Range("C" & n), 31)       'Nouvelle feuille renommée

      Range("E4").Formula = Sheets("Main").Range("A" & y)          'Inscription Mois en cours
     
    Range("K8").Select
ActiveCell.FormulaR1C1 = "='" & CStr(Sheets("Main").Range("C" & m)) & "'!R[-6]C" ' correction ici
    Range("K9").Select
      Sheets("Main").Select
       
  End If  'Fin de la condition
 m = m + 1
 y = y + 1
 n = n + 1       ' increment pour test de la colonne C

Wend             'Fin de la boucle
' libération de l'ecran
'Application.ScreenUpdating = True
'
End Sub

 

[Togaf]

Re : Vba Créer une liaison entre 2 feuilles nommées par variables

Merci à tous, en particulier à bérylion pour la solution que je cherchais, c'est le top.... Merci encore.