Discussion :

[sony25]

Bonjour,

J'essaye de trouver comment répéter une liste de nom, avec la Forme, dans chaque onglet.
En fait le principe c'est que j'ai un calendrier, avec un onglet par mois, et X employés. Ca ne poserait pas de problème si j'avais pas du mouvement chez les employés. Mais quand j'ai des changements, des ajouts, des suppressions, je dois le faire pour chaque onglet!
Peut on pas mettre les employés dans un onglet unique, mes autres onglets serait mes mois dans lequel je ferais apparaitre dans mes chaque colonne A, la colonne de mon onglet employés ? (Avec la forme, car j'ai des bordures spécifiques, format et style de la police).

Es-ce possible??
Merci d'avance.

[Daniel.C]

Bonjour,

J'ai une feuille qui contient le nom des employés avec le formatage en colonne A.
Les feuille "mois" sont nommées 01, 02....
Dans le module de la feuille contenant le nom des employés, mets :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Sh As Worksheet, Plage As Range
    If Target.Column = 1 Then
        Set Plage = Range([A1], Cells(Rows.Count, 1).End(xlUp))
        For Each Sh In Worksheets
            If IsNumeric(Sh.Name) Then
                If CInt(Sh.Name) < 13 Then
                    Sh.[A:A].Clear
                    Plage.Copy Sh.[A1]
                End If
            End If
        Next Sh
    End If
End Sub