lier des cellules vers celles d'un onglet

KEUDJ · 27 Janvier 2008

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 · 28 Janvier 2008

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.

Code:

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 · 28 Janvier 2008

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 · 28 Janvier 2008

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 · 28 Janvier 2008

Re : lier des cellules vers celles d'un onglet

Re

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

KEUDJ · 29 Janvier 2008

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 · 30 Janvier 2008

Re : lier des cellules vers celles d'un onglet

Bonjour le forum ..

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

Code:

Sheets(refe).Activate

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

please help me ...

@+

KEUDJ · 31 Janvier 2008

Re : lier des cellules vers celles d'un onglet

Bonjour le Forum,

bon j`ai un peut avance.

Code:

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

Code:

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

lier des cellules vers celles d'un onglet

KEUDJ

XLDnaute Junior

KEUDJ

XLDnaute Junior

Staple1600

XLDnaute Barbatruc

KEUDJ

XLDnaute Junior

Staple1600

XLDnaute Barbatruc

KEUDJ

XLDnaute Junior

Pièces jointes

KEUDJ

XLDnaute Junior

KEUDJ

XLDnaute Junior

Discussions similaires

lier des cellules vers celles d'un onglet

XLDnaute Junior

XLDnaute Junior

XLDnaute Barbatruc

XLDnaute Junior

XLDnaute Barbatruc

XLDnaute Junior

Pièces jointes

XLDnaute Junior

XLDnaute Junior

Discussions similaires

Privacy & Transparency

Privacy & Transparency