problème pour effacer

Version imprimable

voila j'ai cette fonction
Code:

1 2 3 4 5 6 7 If etape1 = non And etape6b = non Then Worksheets("Feuil1").Cells(36, 5).Interior.Color = vbYellow Worksheets("Feuil1").Cells(36, 5).Validation.Delete Worksheets("Feuil1").Cells(36, 5).Validation.Add xlValidateList, , , "=$L$23:$L$24" Else Worksheets("Feuil1").Cells(36, 5).Validation.Delete End If
Quand je veux effacer grace à au private Sub suivant
Code:

1 2 3 4 5 6 7 Private Sub Init_Click() For i = 9 To 47 For j = 2 To 6 Cells(i, j).Clear Next j Next i End Sub
IL y a marquer Error 1004 et me surligna ligne qui est ici sous-ligné dans le premier code.

Or le premier code se repète pour d'autre fonction et fonction normalement.
quelqu'un aurait une idée pour me dépanner?

Bonjour,

Une première question, à quoi sert cette boucle ?

Code:

1
2
3
4
5
6
7
Private Sub Init_Click()
For i = 9 To 47
For j = 2 To 6
Cells(i, j).Clear
Next j
Next i
End Sub

Ceci ne conviendrait pas ?

Code:

1
2
3
Private Sub Init_Click()
Range(cells(9, 2), cells(47, 6)).Clear
End Sub

Pour la liste de validation, tu peux essayer comme ceci

Code:

1
2
3
4
5
6
7
8
9
With Sheets("Feuil1").Cells(36, 5)
    If etape1 = non And etape6b = non Then
        .Interior.Color = vbYellow
        .Validation.Delete
        .Validation.Add Type:=xlValidateList, Formula1:="=$L$23:$L$24"
    Else
        .Validation.Delete
    End If
End With

10/06/2008, 14h30
Gorfael

Salut kristoch91 et le forum
va voir là http://www.technicland.com/malpolitus.swf

Explique mieux ton problème : où est la liaison entre les 2 codes ?
Pourquoi il te surligne une macro différente de celle que tu lances ?
Un peu d'explication nous permettrait de comprendre la cohérence du problème
A+