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

argument procédure

vous trouverez ci apres le programme que j'essaie de faire le probleme c'est comment utiliser l'argument range lors de l'appel de la procédure Private Sub plan(ligne As Integer, run As Range) 'condition If Cells(ligne, 4) = True And Cells(ligne, 5) = False Then 'reinitialiser la...

www.excel-downloads.com

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 )