[Excel 2003] Synchroniser des tableaux

Fermé
Hellowa Messages postés 11 Date d'inscription mardi 21 avril 2009 Statut Membre Dernière intervention 28 avril 2009 - 23 avril 2009 à 13:13
Hellowa Messages postés 11 Date d'inscription mardi 21 avril 2009 Statut Membre Dernière intervention 28 avril 2009 - 28 avril 2009 à 07:53
Bonjour a tout le monde, bonjour le forum!
C'est encore moi!!
Alors, j'ai un petit soucis! (normal me direz vous)
Voilà j'ai avancé sur mon planning et je me suis rendu compte d'une chose:
(Il faut avoir la PJ sous les yeux pour comprendre ce que je dis... )

Sur la feuille Salarié, vous pouvez voir les noms des personnes, ici par souci d'originalité, elle s'appellent A,B,C,D etc. Leur nombre peut varier de 5 a 10
Sur la Temps, vous pourrez voir le planning.
Ce que je souhaite c'est que ce planning soit "mobile" et que le nombre de ligne par semaine soit le meme que celui de la feuille "Salarie".
De plus, est il possible que les noms des semaines (semaine 17,18 etc) couvrent a chaque fois le nombre de lignes du tableaux ( cellules fusionnées ici)
Voici une macro que j'ai trouvée sur http://jacxl.free.fr/cours_xl/cours_xl_jac.html#vocabulaire_bis qui permet de synchroniser les cellules.
Code:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, Range("zaza")) Is Nothing Then Exit Sub
[zaza].Value = Target
End Sub

Voilà voilà...
Merci d'avance de votre aide, toujours aussi précieuse!!

PJ=http://www.cijoint.fr/cjlink.php?file=cj200904/cijJlrVyuP.xls

PS: Voilà le code de ma macro! (Provisoire, je travaille encore dessus)
<code>Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Intersect("Employe" & i, Range()) Is Nothing Then Exit Sub
Cells("Employe" & i).Value = Target
End Sub

Sub Synchro_Salaries()
Dim i As Integer
'Chaque cellule de la feuille salarie contenant
'eventuellement un nom de salarie est renommee "salarie i"
'Je n'ai pas encore trouve comment ne pas la prendre en compte si elle est vide!

For i = 1 To Sheets("SALARIES").Cells(100, 1).End(xlUp).Row Step 1
Worksheet_Change ("Employe" & i)
Next i

End Sub


Configuration: Windows Vista
Firefox 3.0.5</code>
A voir également:

1 réponse

Hellowa Messages postés 11 Date d'inscription mardi 21 avril 2009 Statut Membre Dernière intervention 28 avril 2009
28 avril 2009 à 07:53
Up...
0