Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Excel
Excel Forum d'entraide sur Excel. Vos questions sur les fonctions, formules, manipulations, et tout sujet qui ne trouve pas sa place dans un sous-forum.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 04/12/2011, 10h43   #1
Invité de passage
 
Inscription : mars 2009
Messages : 16
Détails du profil
Informations forums :
Inscription : mars 2009
Messages : 16
Points : 4
Points : 4
Par défaut Répéter une liste de nom dans chaque Onglet

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.
sony25 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 04/12/2011, 15h07   #2
Expert Confirmé Sénior
 
Homme Daniel
aucune
Inscription : septembre 2011
Messages : 2 004
Détails du profil
Informations personnelles :
Nom : Homme Daniel
Localisation : France, Seine et Marne (Île de France)

Informations professionnelles :
Activité : aucune

Informations forums :
Inscription : septembre 2011
Messages : 2 004
Points : 4 037
Points : 4 037
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 :
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
__________________
Cordialement.

Daniel

Citation:
La plus perdue de toutes les journées est celle où l'on n'a pas ri.
Chamfort
Daniel.C est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 18h11.


 
 
 
 
Partenaires

Hébergement Web