XL 2016 Copier & Coller

[PORCHER]

Bonjour,
J'explique mon projet ;
J'ai 12 onglets de Janvier à Décembre.
J'ai un onglet qui ce nomme "Modèle"
Dans la feuille Modèle j'ajoute, je modifie, je supprime
la première ligne commence à A8: Le Numéro puis le Nom en (B8) et le Prénom en (C8)
Dans cette feuille j'ai >=200 noms
je souhaiterais faire une mise à jour, copier la feuille Modèle de (A8:C250) vers toutes les feuilles des mois de janvier à Décembre
Merci de votre aide

 

[Staple1600]

Bonjour le fil

fanfan38
Un chouia plus court 😉
(mais est-ce qu'on a bien compris le mot page comme le demandeur ?)

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Sh.Range("A2:C24").Interior.ColorIndex = IIf(Sh.Index Mod 2 = 0, 23, 14)
End Sub

 

[PORCHER]

Bonjour,
Ma page est mon modèle de A8 à N
Je souhaiterais une couleur alternée, une ligne sur deux, de A8 jusqu’à la dernière ligne vide
Comme ceci :
Sub AlternerCouleur()
Dim i As Long
i = 2
Do Until IsEmpty(Range("A" & i))
Range("A" & i & ":N" & i).Interior.ColorIndex = 15
i = i + 2
Loop
End Sub
SEULEMENT je souhaite que cela s’arrête a la dernière ligne vide

 

[Staple1600]

Re

Suggestion
Tu peux aussi utiliser la mise en forme conditionnelle.
(de nombreux exemples sur le forum)

 

[fanfan38]

Private Sub Worksheet_Activate()
Dim derlig As Integer, i As Integer
derlig = Range("A" & Rows.Count).End(xlUp).Row
For i = 8 To derlig
Range(Cells(i, 1), Cells(i, 14)).Interior.ColorIndex = IIf(i Mod 2 = 0, 8, 20)
Next
End Sub

A+ François

 

[Staple1600]

Re

fanfan38
Je vois que ma syntaxe t'a tapé dans l’œil 😉
(cf message#16)

 

[PORCHER]

Merci fanfan38
ça fonctionne très bien !

 

[fanfan38]

Grace à toi Staple 1600 ce soir je me coucherai un peu moins con....🙂
On en apprend tous les jours...
Content pour toi Porcher....
Bonne journée à vous....
A+ François

 

[Staple1600]

Re

PORCHER
Merci d'avoir superbement ignoré mon passage dans ton fil.
C'est très motivant et gratifiant...

fanfan38
Merci d'avoir vu mon passage dans le fil de PORCHER
C'est gratifiant de voir un XLDnaute reprendre un bout de code qu'on a proposé en passant.
Et cela me rends visible dans le fil. 😉
😉

 

[PORCHER]

Toute mes excuses Staple1600
J'ai effectivement pris des données dans chacun de vos réponses qui ma permis de construire l'essentiel
c'est à dire mon projet de Fiche de pointage.
Encore une fois Staple1600, veuille accepter mes excuses et BRAVO vous êtes des champion...

 

[Staple1600]

Re

PORCHER
Ouf, justement à temps
J'étais en train de composer le numéro de SOS GMALAMONEGO 😉
Bon bah, comme le disait fanfan38, tant mieux si tu as pu finir ton projet: Fiche de pointage

EDITION:
Bonjour job75
(NB: J'ai répondu à ton MP)

 

[job75]

A la réflexion utiliser la feuille "Modèle" et copier les colonnes A:C n'est pas une bonne solution.

En effet si l'ordre des noms est modifié les données en colonnes D:N ne correspondront plus aux noms.

Il vaut mieux partir de la feuille "Janvier" et créer le mois suivant au fur et à mesure.

Voyez ce fichier (3) et cette macro :

Sub Mois_Suivant()
Dim w As Worksheet, dat As Variant, datmax As Date, f As Worksheet
For Each w In Worksheets
    dat = "1/" & w.Name
    If IsDate(dat) Then
        dat = CDate(dat)
        If dat > datmax Then datmax = dat: Set f = w
    End If
Next
If Month(datmax) = 12 Then MsgBox "Le mois de décembre existe déjà...": Exit Sub
f.Copy After:=f 'copie la feuille du dernier mois
With ActiveSheet
    .[G1] = DateSerial([Année], Month(datmax) + 1, 1)
    .Name = Application.Proper(Format(.[G1], "mmmm"))
    .Range("D8:N" & .Rows.Count).ClearContents 'RAZ
    On Error Resume Next
    ThisWorkbook.Names(.Name & "!Année").Delete 'si le nom est créé dans la feuille
    ThisWorkbook.Names(.Name & "!Fériés").Delete 'si le nom est créé dans la feuille
End With
End Sub

L'alternance des couleurs des lignes est créée par une MFC à 2 conditions sur les colonnes A:N entières.

Bonne nuit.

EDITION:
Bonjour JM