Bjr à tous,
pouvez vous me dire se qui cloche dans ma macro...
j'ai un bug en ligne ws.Range("... ??
merci de votre aide
bye
pouvez vous me dire se qui cloche dans ma macro...
Code:
Sub Effacer_Données()
Dim ws As Worksheet
For Each ws In Worksheets
If Not ws.Name = "Tables" And Not ws.Name = "Base" And Not ws.Name = "Individuel" And Not ws.Name = "Tableau" _
And Not ws.Name = "Perf et Contre" And Not ws.Name = "Brulage" And Not ws.Name = "Eq1" And Not ws.Name = "Eq2" _
And Not ws.Name = "Eq3" And Not ws.Name = "Eq4" And Not ws.Name = "Eq5" And Not ws.Name = "Eq6" And Not ws.Name = "Eq7" _
And Not ws.Name = "Eq8" And Not ws.Name = "Feuil6 Eq1" And Not ws.Name = "Feuil6 Eq2" And Not ws.Name = "Feuil6 Eq3" _
And Not ws.Name = "Feuil6 Eq4" And Not ws.Name = "Feuil4 Eq5" And Not ws.Name = "Feuil3 Eq6" And Not ws.Name = "Feuil4 Eq6" _
And Not ws.Name = "Feuil6 Eq5" And Not ws.Name = "Feuil3 Eq7" And Not ws.Name = "Feuil3 Eq8" And Not ws.Name = "Feuil4 Eq7" And Not ws.Name = "Exemple" Then
ws.Range("A100:H100").AutoFill Destination:=ws.Range("A4:H100"), Type:=xlFillDefault
ws.Range("J100:M100").AutoFill Destination:=ws.Range("J6:M100"), Type:=xlFillDefault
End If
Next ws
End Sub
j'ai un bug en ligne ws.Range("... ??
merci de votre aide
bye