lier des cellules vers celles d'un onglet

[KEUDJ]

Bonjour le Forum,

hier j'ai creer un post.

https://www.excel-downloads.com/threads/lier-des-cellules-vers-un-onglets.89250/

mais l'intitule de celui ci n'etait pas tres clair / a ma demande
du coup, Staple a repondu avec une macro qui corespondait a la demande, mais pas a mon besoin.

donc je re-post en clarifiant:

apres generation d'une feuille en automatique (ca c'est ok), je souhaite lier en automatique les cellules du sommaire a celles de la feuille generee. de facon a pouvoir modifier soit du sommaire ou soit de la feuille, avec maj auto de l'un vers l'autre.

le fichier est deja dans le post precedent ..

si vous pouvez me donner un exemple sur une cellule pour comprendre comment ca marche.

merci d'avance

@+

 

[KEUDJ]

Re : lier des cellules vers celles d'un onglet

Bonjour le Forum,

dans la macro j`essaie d`ajouter (en rouge) pour extraire et lier.

Private Sub CmdCreerFeuilles_Click()
Sheets("Model").Visible = xlSheetVisible
Dim cell As Range, Nom As Range, Sht As String
For Each Nom In Range([E5], [E65536].End(xlUp))
    If Nom.Value <> "" Then
      On Error Resume Next
      Sht = Sheets(Nom.Value).Name
      If Err.Number <> 0 Then Sht = ""
      On Error GoTo 0
      If Sht = "" Then
         Sheets("model").Copy After:=Sheets(Sheets.Count)
         ActiveSheet.Name = Nom.Value
         Sheets("PARTS SUMMARY").Activate
        [COLOR="red"] refe = ActiveCell.Value
         process = ActiveCell.Offset(0, -3).Value
         offi = ActiveCell.Offset(0, -2).Value
         gamme = ActiveCell.Offset(0, -1).Value[/COLOR]
         Nom.Select
         ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
            "'" & Nom.Value & "'!A1"
         [COLOR="red"]Sheets(refe).Activate
         Range("C2").Value = refe
         Range("H3").Value = process
         Range("J2").Value = offi
         Range("H2").Value = gamme[/COLOR]      
      End If
    End If
Next
Sheets("Model").Visible = xlSheetVeryHidden
End Sub

deja, ca ne plante pas, mais rien n`est cree dans la nouvelle feuille
quizz: RANGE va t il me creer un lien bidirectionel ou uniquement me copier la valeur?

merci d`avance pour vos aide ...

 

[Staple1600]

Re : lier des cellules vers celles d'un onglet

Bonjour


C'est normal que ca ne plante pas

Grâce à cela:
On Error Resume Next

Met cette ligne en commentaire pour voir ce qui se passe


Et je rajouterai ceci également avant de tester: Dim refe as String

 

[KEUDJ]

Re : lier des cellules vers celles d'un onglet

Bonjour Staple1600,

meme effet, bizarrement des fois ca passe des fois ca me plante sur le "Sheets(refe).Activate"

de toutes manieres il n`y a tjs rien dans la feuille cible.
je tatonne .. et je ne sait meme pas si le resultat sera bon avec `range`

Private Sub CmdCreerFeuilles_Click()
Sheets("Model").Visible = xlSheetVisible
Dim cell As Range, Nom As Range, Sht As String, refe As String
For Each Nom In Range([E5], [E65536].End(xlUp))
If Nom.Value <> "" Then
'On Error Resume Next
'Sht = Sheets(Nom.Value).Name
If Err.Number <> 0 Then Sht = ""
On Error GoTo 0
If Sht = "" Then
Sheets("model").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Nom.Value
Sheets("PARTS SUMMARY").Activate
refe = ActiveCell.Value
proce = ActiveCell.Offset(0, -3).Value
offi = ActiveCell.Offset(0, -2).Value
gamme = ActiveCell.Offset(0, -1).Value
Nom.Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"'" & Nom.Value & "'!A1"
Sheets(refe).Activate
Range("C2").Value = refe
Range("H3").Value = proce
Range("J2").Value = offi
Range("H2").Value = gamme
End If
End If
Next
Sheets("Model").Visible = xlSheetVeryHidden
End Sub

merci & @+

 

[Staple1600]

Re : lier des cellules vers celles d'un onglet

Re


Ce serait plus simple avec un fichier joint(zippé) qu'on puisse tester.

 

[KEUDJ]

Re : lier des cellules vers celles d'un onglet

bonjour Staple, hello le forum.

voici le fichier, j`y ai ajoute des commentaires, car a premiere vue les cellules sont copiees mais pas sur la bonne feuille, et sans liens.

merci d`avance pour ton aide

Salutations

 

[KEUDJ]

Re : lier des cellules vers celles d'un onglet

Bonjour le forum ..

ca m'agace !! je ne comprends pas pourquoi ce foutu:

Sheets(refe).Activate

ne fonctionne pas,
le cellules sont copiees dans la page sommaire et non dans les feuilles..

please help me ...

@+

 

[KEUDJ]

Re : lier des cellules vers celles d'un onglet

Bonjour le Forum,

bon j`ai un peut avance.

Private Sub CmdCreerFeuilles_Click()
Sheets("Model").Visible = xlSheetVisible
Dim cell As Range, Nom As Range, Sht As String
Dim i As Integer
i = 4
For Each Nom In Range([E5], [E65536].End(xlUp))
    i = i + 1
    If Nom.Value <> "" Then
      On Error Resume Next
      Sht = Sheets(Nom.Value).Name
      If Err.Number <> 0 Then Sht = ""
      On Error GoTo 0
      If Sht = "" Then
         Sheets("model").Copy After:=Sheets(Sheets.Count)
         ActiveSheet.Name = Nom.Value
         ActiveSheet.Cells(3, 8) = Sheets("PARTS SUMMARY").Cells(i, 2)
         ActiveSheet.Cells(2, 10) = Sheets("PARTS SUMMARY").Cells(i, 3)
         ActiveSheet.Cells(2, 8) = Sheets("PARTS SUMMARY").Cells(i, 4)
         ActiveSheet.Cells(3, 3) = Sheets("PARTS SUMMARY").Cells(i, 6)
         ActiveSheet.Cells(3, 5) = Sheets("PARTS SUMMARY").Cells(i, 7)
         ActiveSheet.Cells(2, 5) = Sheets("PARTS SUMMARY").Cells(i, 8)
         ActiveSheet.Cells(5, 3) = Sheets("PARTS SUMMARY").Cells(i, 12)
         ActiveSheet.Cells(5, 5) = Sheets("PARTS SUMMARY").Cells(i, 13)
         ActiveSheet.Cells(5, 8) = Sheets("PARTS SUMMARY").Cells(i, 14)
                  Sheets("PARTS SUMMARY").Activate
         Nom.Select
         ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
            "'" & Nom.Value & "'!A1"
      End If
    End If
Next
Sheets("Model").Visible = xlSheetVeryHidden
End Sub

j`arrive a copier la cellule souhaitee du sommaire vers la cellule cible de la nouvelle feuille. le probleme les cellules ne sont pas liees, je ne recupere qu`une valeur.
qu`est ce que je peut utiliser a la place de

ActiveSheet.Cells(5, 13) = Sheets("PARTS SUMMARY").Cells(i, 15)

pour que les modif du sommaire soient repercutees sur la feuille, si c`est reciproque ca serait le top.

merci pour votre aide

Keudj