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
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
VB:
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 )
Créez un compte ou connectez vous pour répondre
Vous devez être membre afin de pouvoir répondre ici