Cellules interactives entre feuilles

[sev]

Bonsoir le forum,

Comment rendre interactives des cellules entre feuilles ?

Si je remplace une valeur en B4 par exemple je voudrais qu'elle se remplace aussi dans les feuilles 2 et 3.
Et si je le fais à partir de la feuille 2 qu'elle se remplace dans les feuilles 1 et 3 .
Comment contourner les références circulaires ?"

je joint un petit fichier

 

[jeanpierre]

Re : Cellules interactives entre feuilles

Bonsoir sev,

Je ne pense pas, j'en suis sûr, qu'il s'agisse ici de référence circulaire.... cela n'a rien à voir....

Ce que tu demande est simplement impossible en excel..... par macro, oui....

Tu ne peux, en même temps, avoir une formule ici ou là... et la possibilité de taper en dur dans la cellule.....

Voir l'intérêt de la chose maintenant..................

Sev, tu peux zipper tes fichiers, plus sympa....

 

[pierrejean]

Re : Cellules interactives entre feuilles

bonjour sev

une solution par macro evenementielle

pour B4 uniquement

si tu souhaites etendre au tableau reviens

edit : désolé de la collision jeanpierre

 

[jeanpierre]

Re : Cellules interactives entre feuilles

Re, Salut PierreJean,

Ne sois pas désolé, tu apportes la seule solution possible... par macro.....comme dit.

Bonne soirée

 

[KEUDJ]

Re : Cellules interactives entre feuilles

Bonjour le Forum, hello JP & PJ ...

je suis a la recherche d`une astuce de ce genre depuis plusieurs semaines,
de rendre interactives des cellules entre une ligne d`un sommaire et celles d`une feuille generee a partir d`un model.

a votre avis, est-il possible d`inserer ces script dans la macro existante sachant que le non de la feuille n`est pas fixe, comme la ligne du sommaire.

j`ai mis mon fichier a dispo pour plus de clarte.

merci d`avance pour votre aide.

 

[pierrejean]

Re : Cellules interactives entre feuilles

bonjour KEUDJ

A premiere vue il faut mettre en feuille model et Parts Summary quelque chose du genre:

Private Sub Worksheet_Change(ByVal Target As Range)
If flag Then Exit Sub
flag = True
If Target.Address = "$B$4" Then
 for each sh in sheets
   if sh.Name <> ActiveSheet.name Then
     sh.Range("B4") = Target.Value
   end if
 next sh
End If
flag = False
End Sub

Teste et dis-nous

 

[sev]

Re : Cellules interactives entre feuilles

Merci PierreJean je vais essayer de l'appliquer à mon fichier.

 

[KEUDJ]

Re : Cellules interactives entre feuilles

Bonjour Pierre Jean ,le forum.

j`ai essaye d`inclure tes lignes mais ca me dit runtime error 1004 et bloque sur la ligne sh.Range("C3") = Target.Value de la feuille generee.

j`ai peur que ce soit un peut complique, mais j`essaie d`expliquer comment mon fichier fonctionne:
-des feuilles sont generees en auto portant le nom des cellules de la colonne designation (part summary) a partir d`un model.(lors du click sur le bouton "Item")
-des valeurs de la ligne de la cellule active sont copies vers la nouvelles feuille (ex F5 de part summary vers C3 de V8012-03,H5 --> E2; pour V2220 c`est la ligne 6...etc)

le but est lors de la generation de rendre ces differentes cellules interactive..
le seul truc que j`ai trouve a ce moment est d`updater le part summary lors du retour au menu (necessite de clicker le bouton "go back").

merci pour votre aide.

 

[Quincy]

Re : Cellules interactives entre feuilles

Bonjour à tous

sev, si tu groupes tes trois feuilles (avec le la touche Ctrl), est-ce que cette solution ne pourrait pas te convenir ? Attention, tes trois feuilles doivent impérativement avoir la même structure !

Par ailleurs, si tu dois faire une opération sur l'une des trois feuilles, penses à les dissocier (Clic droit, dissocier les feuilles)

Cordialement.
Quincy