OVH Cloud OVH Cloud

VBA, excel97 et excel2000

11 réponses
Avatar
zrd
bonjour,
j'ai une macro qui fonctionne sous excel2000 mais pas sous excel97, et
pourtant il faudrait que cela soit.

la voici :
Private Sub Worksheet_Change(ByVal zz As Range)
If Intersect(zz, [N21:N28]) Is Nothing Then Exit Sub
Application.EnableEvents = False
If zz = "" Then
Range(zz(, -5)) = ""
Else: zz(, -5) = Date
End If
Application.EnableEvents = True
End Sub

Ou puis je trouver la correspondance des "fonctions" entre les deux version
?
Si la macro est "traduite" en version 97, marchera t elle sous version 2000
?
Si non, comment faire ?
Quelqu'un saurait "downgrader" cette macro en version compatible excel 97 ?

Et deja un grand merci a ceux qui apporteront leurs lumieres
@+

1 réponse

1 2
Avatar
mousnynao
Bonjour,

Vous testé un type RANGE (zz) avec un type STRING ("")

->> If zz Is Nothing Then

mousnynao!

-----Message d'origine-----
Merci de te soucier de mes mesaventures,

J'ai une erreur d'execution 13,
type incompatible
et si je lance le debugueur,
il me surligne la ligne 4 : If zz = "" Then

@+




"isabelle" a écrit dans le
message news:


bonjour zrd,

je ne voie aucune raison pour que cette macro ne
fonctionne pas sous


xl97, peut tu nous dire sur quel ligne il y a un
erreur ? et quel est le


message d'erreur ?

isabelle


bonjour,
j'ai une macro qui fonctionne sous excel2000 mais
pas sous excel97, et



pourtant il faudrait que cela soit.

la voici :
Private Sub Worksheet_Change(ByVal zz As Range)
If Intersect(zz, [N21:N28]) Is Nothing Then Exit Sub
Application.EnableEvents = False
If zz = "" Then
Range(zz(, -5)) = ""
Else: zz(, -5) = Date
End If
Application.EnableEvents = True
End Sub

Ou puis je trouver la correspondance des "fonctions"
entre les deux



version
?
Si la macro est "traduite" en version 97, marchera t
elle sous version



2000
?
Si non, comment faire ?
Quelqu'un saurait "downgrader" cette macro en version
compatible excel



97 ?

Et deja un grand merci a ceux qui apporteront leurs
lumieres



@+




.





1 2