Discussion :

[kristoch91]

voila j'ai cette fonction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[fring]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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+