Bonjour,

J'aimerai transférer des information d'une feuille archive présente dans le même classeur en fonction de la cellule L3 (qui elle même modifie automatique les cellule M8 et J8 afin d'afficher le mois et l'année de la semaine) vers ma feuille principale ou je rentre les information de pointage.

Voici mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Worksheet_Change(ByVal Target As Range)
 
    Dim cell As Object
 
    For Each cell In Range("L3")
 
        If cell = "" Then
 
            cell = "Veuillez entrer le numéro de semaine à saisir."
            Else
On Error Resume Next
            Worksheets("Pointage").Range("D13:R32").Value = Worksheets("S" & Workbooks("Feuille de pointage.xlsm").Worksheets("Pointage").Range("M8").Value & " - " & Workbooks("Feuille de pointage.xlsm").Worksheets("Pointage").Range("J8")).Range("D13:R32").Value
        End If
 
    Next cell
 
End Sub
Quand je rentre une semaine (cellule L3) qui n'existe pas dans le classeur j'aimerai que les cellules D13:R32 soient effacées j'ai donc rajouter :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Worksheets("Pointage").Range("D13:R32").ClearContents
mais cela fait planter la macro, surement à cause d'un conflit avec le worksheet change qui tente de coller la feuille archive dans la range.

Avez-vous une idée pour éviter cela ?

Merci de votre aide