j'ai cette macro qui fonctionne tres bien sous XL 2000 et qui ne focntionne
pas du tout sous XL 97 !!
Qq'un pour m'aider svp ?
la macro :
Private Sub Worksheet_Change(ByVal zz As Range)
Application.EnableEvents = False
If Not Intersect(zz, [n72:n79]) Is Nothing Then
If zz.Value = "" Then
Range(zz(, -5)) = ""
Else: zz(, -5) = Date
End If
End If
If Not Intersect(zz, [ac47:ac60]) Is Nothing Then
Application.EnableEvents = False
If zz.Value = "" Then
Range(zz(, 7)) = ""
Else: zz(, 7) = Date
End If
End If
Application.EnableEvents = True
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Patrick
Bonjour,
A priori, je dirais que c'est un problème de références. Va voir dans l'interface VBE le menu "Outils", "Références". Il y a sans doute une référence qui est fait à une DLL spécifique à XL2000. Il te suffit de sélectionner celle pour XL 97.
Si ce n,est pas la solution, j'en suis désolé, mais hésite pas à le dire. On cherchera autre part.
-- Patrick
"zrd" wrote in message news:evwl6L$
bonjour,
j'ai cette macro qui fonctionne tres bien sous XL 2000 et qui ne focntionne
pas du tout sous XL 97 !!
Qq'un pour m'aider svp ?
la macro :
Private Sub Worksheet_Change(ByVal zz As Range) Application.EnableEvents = False If Not Intersect(zz, [n72:n79]) Is Nothing Then If zz.Value = "" Then Range(zz(, -5)) = "" Else: zz(, -5) = Date End If End If If Not Intersect(zz, [ac47:ac60]) Is Nothing Then Application.EnableEvents = False If zz.Value = "" Then Range(zz(, 7)) = "" Else: zz(, 7) = Date End If End If Application.EnableEvents = True End Sub
Merci @+
Bonjour,
A priori, je dirais que c'est un problème de références. Va voir dans
l'interface VBE le menu "Outils", "Références". Il y a sans doute une
référence qui est fait à une DLL spécifique à XL2000. Il te suffit de
sélectionner celle pour XL 97.
Si ce n,est pas la solution, j'en suis désolé, mais hésite pas à le dire. On
cherchera autre part.
--
Patrick
"zrd" <NOzorrSPAMoider@libertysurf.fr> wrote in message
news:evwl6L$REHA.3988@tk2msftngp13.phx.gbl...
bonjour,
j'ai cette macro qui fonctionne tres bien sous XL 2000 et qui ne
focntionne
pas du tout sous XL 97 !!
Qq'un pour m'aider svp ?
la macro :
Private Sub Worksheet_Change(ByVal zz As Range)
Application.EnableEvents = False
If Not Intersect(zz, [n72:n79]) Is Nothing Then
If zz.Value = "" Then
Range(zz(, -5)) = ""
Else: zz(, -5) = Date
End If
End If
If Not Intersect(zz, [ac47:ac60]) Is Nothing Then
Application.EnableEvents = False
If zz.Value = "" Then
Range(zz(, 7)) = ""
Else: zz(, 7) = Date
End If
End If
Application.EnableEvents = True
End Sub
A priori, je dirais que c'est un problème de références. Va voir dans l'interface VBE le menu "Outils", "Références". Il y a sans doute une référence qui est fait à une DLL spécifique à XL2000. Il te suffit de sélectionner celle pour XL 97.
Si ce n,est pas la solution, j'en suis désolé, mais hésite pas à le dire. On cherchera autre part.
-- Patrick
"zrd" wrote in message news:evwl6L$
bonjour,
j'ai cette macro qui fonctionne tres bien sous XL 2000 et qui ne focntionne
pas du tout sous XL 97 !!
Qq'un pour m'aider svp ?
la macro :
Private Sub Worksheet_Change(ByVal zz As Range) Application.EnableEvents = False If Not Intersect(zz, [n72:n79]) Is Nothing Then If zz.Value = "" Then Range(zz(, -5)) = "" Else: zz(, -5) = Date End If End If If Not Intersect(zz, [ac47:ac60]) Is Nothing Then Application.EnableEvents = False If zz.Value = "" Then Range(zz(, 7)) = "" Else: zz(, 7) = Date End If End If Application.EnableEvents = True End Sub