Macro et version excel

[DIDOU]

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

 

[DIDOU]

Re bonsoir,

après avoir épluché mon code j'ai trouvé le problème.
et mon appli marche aussi avec excel 2002

A+ Didou

 

[Mytå]

salut Didou

merci quand meme de l'avoir dit au aux autres....