ERREUR 1004

[saradi]

J'ai essayé avec ce programme au début il marchait très bien ensuite il me fait apparaître cette erreur je ne sais pas pourquoi . s'il vous plait des propositions

 

[vgendron]

Bonjour à toi aussi....
pas d'erreur chez moi...
au hasard.. ca marchait bien sur un pc avec excel 2016, et ca ne marche plus avec un Excel 2007

==> diffrentes versions de Excel ===> aller voir du cote de .interior.color et .interior.colorindex

 

[saradi]

j'ai essayé avec toutes les versions excel mais ça marche pas
en tout cas merci infiniment

 

[Staple1600]

Bonsoir

Tiens ce code me dit quelque chose...
Mais moi dans l'autre fil, je l'avais posté avec cette syntaxe 😉

https://www.excel-downloads.com/threads/argument-procedure.20030770/#post-20227475

Private Sub plan1(ligne As Long, r_un As Long, delai As Long)

'reinitialiser la ligne
 'Worksheets("CHECKLIST").Activate
 Cells(ligne, 1).Resize(, 20).Interior.Color = xlNone
 
'tracer plan
 Cells(ligne, r_un).Offset(, -delai).Resize(, delai).Interior.Color = 192
 
End Sub

Sub tracer()
plan1 4, 7, 3
plan1 5, 8, 7
End Sub

PS: vgendron (salutations 😉 )