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

 

[fanfan38]

Bonjour
Un fichier est TOUJOURS le bienvenu...
Pourquoi ne pas copier plutôt la feuille modèle et la renommer en janvier, février, ect (par macro)...
Sinon par macro une boucle for i=1 to sheets.count...

A+ François

 

[PORCHER]

J'ai peutetre trouvé mais il n'ouvre pas mes onglets " ws "
Sheets("Modèle").Activate
With Sheets("Modèle")
.Select
.Range("A8:C65").Select
End With
Selection.Copy

On Error Resume Next
'Sélectiion des deux feuilles où les occurences seront collées
Dim ws As Worksheet
For Each ws In Sheets(Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Aout", "Septembre", "Octobre", "Novemmbre", "Décembre"))
ws.Activate

' Boucle sur le nombre de feuilles créé
For i = 2 To ActiveWorkbook.Sheets.Count
Sheets(i).Select
Range("A8:C65").Select
Selection.PasteSpecial
Next i

Next ws

Application.CutCopyMode = False

'Call Affiche_Sheets

 

[PORCHER]

Je joins mon Fichier excel sans mot de passe

 

[PORCHER]

Je viens de trouver pourquoi dans Array j'ai deux m dans Novembre : j'ai donc rectifier
dans (for i =) il fallait mettre : For i = 2 To ws et ensuite ajouter ws.Visible = True
Voila c'est terminé !

 

[fanfan38]

Bonjour,

Ci joint mes solutions

Sub copierAC()

Dim i As Integer

Dim nom As String

For i = 1 To 12

nom = CStr(Format(Sheets("Modèle").Range("O" & i + 1).Value, "mmmm"))

Sheets("Modèle").Select

Columns("A:C").Select

Selection.Copy

Sheets(nom).Select

Range("A1").Select

ActiveSheet.Paste

Next

End Sub

Dans ce cas il faut désactiver les : Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Je me suis permis de modifier ton modèle

en O2 et suivante tu as les mois de l'année =DATE(Année;1;1) en format "mmmm" pour alimenter la validation de données en G1

Le reste de la feuille se met à jour en fonction du mois choisi... A+ François

 

[job75]

Bonjour PORCHER, fanfan38,

De la part de PORCHER qui est novice ça se comprend.

Mais de la part de fanfan38 (inscrit depuis 2006) pas du tout : on sait tous que les Select sont à éviter en VBA.

A+

 

[fanfan38]

Bonjour,
Je n'ai pas, comme certain, la prétention de tout connaitre...
Critiquer, c'est facile, mais une solution serai préférable...
A+ François

 

[PORCHER]

Bonjour fanfan38,
Merci infiniment pour cette modification en profondeur.
Afin de m'éclairer davantage je n'ai plus besoin de 12 feuilles(Janvier à Décembre) le modèle me suffit puisque je peut en G1 me positionner vers un mois de mon choix.
Merci fanfan38

 

[fanfan38]

De rien...
A+ François

 

[job75]

Bonjour PORCHER, fanfan38, le forum,

Je n'ai pas, comme certain, la prétention de tout connaitre...

Qui parle de tout connaître ?

Eviter les Select est à la portée de tous, même des débutants :

Sub copierAC()
Dim i As Integer
Dim nom As String
For i = 1 To 12
    nom = Format(Sheets("Modèle").Range("O" & i + 1), "mmmm")
    Sheets("Modèle").Columns("A:C").Copy Sheets(nom).Range("A1")
Next
Sheets("Modèle").[A1].Copy Sheets("Modèle").[A1] 'allège la mémoire
End Sub

Le forum regorge d'exemples de ce genre.

Bon week-end.

 

[job75]

Afin de m'éclairer davantage je n'ai plus besoin de 12 feuilles(Janvier à Décembre) le modèle me suffit puisque je peut en G1 me positionner vers un mois de mon choix.

Dans ce cas vous ne conserverez que les pointages du mois en cours, ça ne paraît pas une bonne idée.

 

[job75]

Le copier-coller précédent copie à chaque fois l'objet qui se trouve en cellule B4.

Pour éviter une multiplication des objets en cellule B4 des feuilles il suffit de ne pas copier les objets avec les cellules :

Sub copierAC()
Dim i As Integer
Dim nom As String
Application.CopyObjectsWithCells = False 'pour ne pas copier les objets avec les cellules
For i = 1 To 12
    nom = Format(Sheets("Modèle").Range("O" & i + 1), "mmmm")
    Sheets("Modèle").Columns("A:C").Copy Sheets(nom).Range("A1")
Next
Application.CopyObjectsWithCells = True
End Sub

 

[PORCHER]

Bonjour,
Merci..Merci à tous d'avoir répondu à mon attente, j'ai résolu mon problème grâce à vous.
Serais t'il possible d'alterner les couleurs de ma page 1 sur 2 sans passer par le MFC et jusqu’à la dernière ligne vide.
Merci

 

[fanfan38]

Perso je mettrai dans thisworkbook
Private Sub Worksheet_Activate()
If ActiveSheet.Index Mod 2 = 0 Then
ActiveSheet.Range("A2:C24").Interior.ColorIndex = 23
Else
ActiveSheet.Range("A2:C24").Interior.ColorIndex = 14
End If
End Sub

A2:C24 étant les cellules à colorer...

A+ François