XL 2010 PLANNING avec macro copier/coller RESOLU

  • Initiateur de la discussion Initiateur de la discussion probi
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

probi

XLDnaute Nouveau
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
 

Pièces jointes

Bonjour Probi,

Je te propose ce script :

VB:
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.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
1
Affichages
358
Réponses
2
Affichages
554
Réponses
0
Affichages
557
Réponses
4
Affichages
243
Retour