probleme de comppatibilité excel 2010 2003

[mix770]

bonjour le forum,

j'ai plusieurs utilisateurs avec 2 versions excel

j'ai le VBA ci dessous qui fonctionne très bien sous excel 2010 mais sous excel 2003 j'ai une erreur 438 et message suivant "Objet ne gère pas cette propriété ou cette méthode"

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Range("A9:AG69")) Is Nothing Then

If Target.CountLarge <> 1 Then Exit Sub

If Target Like "*152" Then Sheets("suivi code").Activate

End If

End Sub

avez vous une soluce ? SVP
merci à vous

 

[13GIBE59]

Re : probleme de comppatibilité excel 2010 2003

bonjour Mix770,

Peut-être faut-il écrire :

If Target.Count <> 1 Then Exit Sub.

JB

 

[Dranreb]

Re : probleme de comppatibilité excel 2010 2003

Bonjour.

Oui mais ça risquerait de planter en Excel 2010 (par dépassement de capacité) sur une suppression de toutes les lignes de la feuille.
Si ça doit tourner sur les deux versions, préférez alors :

If Target.Rows.Count <> 1 Or Target.Columns.Count <> 1 Then Exit Sub