Erreur 1004 défini par l'objet ou l'application

Bonjour, j'ai un problème avec ma macro je comprends pas pourquoi, je dois faire en sorte que si la date du jour est égal a une cellule i dans une colonne 'date' C alors mais case à cocher prenne pour référence Di,Fi,Hi,Ji,Li ...

Si quelqu'un trouve ça m’arrangerai énormément.

Cordialement

Sub Macro1()

'

' Macro1 Macro

Dim i As Integer

For i = 3 To 199

If Worksheets("qrqc").Range("C1") = Worksheets("présence").Range("C, i") Then

ActiveSheet.Shapes.Range(Array("Check Box 2")).Select

With Selection

.Value = xlOff

.LinkedCell = "présence!$D$i"

.Display3DShading = False

End With

ActiveSheet.Shapes.Range(Array("Check Box 3")).Select

With Selection

.Value = xlOff

.LinkedCell = "présence!$F$i"

.Display3DShading = False

End With

ActiveSheet.Shapes.Range(Array("Check Box 4")).Select

With Selection

.Value = xlOff

.LinkedCell = "présence!$H$i"

.Display3DShading = False

End With

ActiveSheet.Shapes.Range(Array("Check Box 5")).Select

With Selection

.Value = xlOff

.LinkedCell = "présence!$J$i"

.Display3DShading = False

End With

ActiveSheet.Shapes.Range(Array("Check Box 6")).Select

With Selection

.Value = xlOff

.LinkedCell = "présence!$L$i"

.Display3DShading = False

End With

else

Next i

End If

End Sub

Bonjour

essayez en modifiant votre code comme suit :

 If Worksheets("qrqc").Range("C1") = Worksheets("présence").Range("C" & i) Then

Plus bas toutes les lignes comportant Linkedcell

.LinkedCell = "présence!$D$" & i

Si ok et terminé, merci de cloturer le fil en cliquant sur le petit v en haut à droite

Cordialement

niquel merci

dernier question si j'effectue la manip sur une plage de cellule ca ne fonctionne pas jdois mal l'écrire ?

Range("A"& i):("K"& i).Select

bonjour

peux etre comme ca

Range("A" & I & ":K" & I).Select

A+

Maurice

Re,

Il faudra probablement boucler sur la plage mais le plus simple c'est de mettre votre fichier en ligne

Cordialement