XL 2010 PLANNING avec macro copier/coller RESOLU

[probi]

Bonjour,



Je viens vous afin de voir si c'est possible et comment créer une macro sur un fichier planning.



Je vous explique , je viens de faire un fichier planning pour 2018 avec une feuille "EMARGEMENT" (pour la présence du personnel) et d'autres feuilles "1/2/3/…" ( pour le planning des semaines de l'année).



Dans la feuille "EMARGEMENT", j'ai 2 cellules, l'une "semaine" et l'autre "date". Mon but est lorsque je lance la macro il va me copier les cellules de la semaine indiqué et de la date indiqué (ex : semaine 4 date du 24/01/2018) et me coller avec la mise en page (car nous fonctionnons avec des codes couleur)dans ma feuille "EMARGEMENT".



Merci par avance

 

[dieu08]

Bonjour Probi,

Je te propose ce script :

Sub repart()

Dim VarSem As String
Dim VarDate As String
Dim NbOng As Integer
Dim planning As Range

NbOng = Sheets.Count

Worksheets("EMARGEMENT").Activate

VarSem = Cells(2, 3).Value
VarDate = Cells(3, 3).Value

    For i = 1 To NbOng
       
        If Sheets(i).Name = VarSem Then
       
            Worksheets(i).Activate
           
                For j = 7 To 13
               
                    If Cells(2, j) = VarDate Then
                   
                    Set planning = Range(Cells(3, j), Cells(36, j))
                   
                    planning.Select
                    Selection.Copy
                   
                    Worksheets("EMARGEMENT").Activate
                   
                    Cells(5, 6).Activate
                    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
                    xlNone, SkipBlanks:=False, Transpose:=False
                   
                    Cells(5, 6).Activate
                    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
                    SkipBlanks:=False, Transpose:=False
                   
                    Else
                   
                    End If
               
                Next j
       
        Else
       
        End If
   
    Next i

End Sub

Dieu08.

 

[probi]

Merci Dieu08,

Ta macro fonctionne sans problème, tu viens de me facilité la vie

 

[dieu08]

Merci Dieu08,

Ta macro fonctionne sans problème, tu viens de me facilité la vie

Parfait ! Un petit "j'aime"...?