Bonsoir tout le monde,
J'ai à priori un problème de compatibilité de version:
Entre midi et deux je bosse avec Excel 97 et le soir avec excel 2002.
Jusqu'à ce soir sans problème et là : erreur 400 ....
A l'ouverture de mon usf :
Private Sub UserForm_Initialize()
If ActiveSheet.Index = 2 Then
UserForm1.BoutonAjouter.Visible = False
UserForm1.Frame1.Visible = False
End If
'Effacement des totaux de la feuille
Dercell = Range("D1").End(xlDown).Offset(2, 0).Address
Range(Dercell).Select
Selection.ClearContents
' Dercell2 = Range("E1").End(xlDown).Offset(2, 0).Address
' Range(Dercell2).Select
' Selection.ClearContents
'Dercell3 = Range("F1").End(xlDown).Offset(2, 0).Address
' Range(Dercell3).Select
' Selection.ClearContents
End Sub
C'est à l'exécution de l'effacement des données que le problème se présente avec Excel 2002.
Si quelqu'un a une idée, je suis preneur.
A+
Didou