Est-il possible de retourner la valeur provenant de la=20
variable Target de Worksheet_Change (ByVal Target As=20
Range) =E0 une fonction?
J'aimerais pouvoir travailler plus efficacement mon=20
code. Il dois bien y avoir quelques centaines de lignes=20
de codes dans une seule page (Feuil1) =E0 l'int=E9rieur de=20
Worksheet_Change...
Si oui, est-ce que je pourrais avoir un exemple de=20
fonction avec la variable Target?
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
michdenis
Bonjour Éric,
Comme ta demande est vague, voici un exemple qui ne sert absolument à rien si ce n'est de démontrer comment passer l'objet Range "Target" à une fonction personnalisée !
'--------------------- Private Sub Worksheet_Change(ByVal Target As Range)
MsgBox Rien(Target)
End Sub '---------------------
Function Rien(Rg As Range) Dim A as Long For Each c In Rg A = A + 1 Next Rien = A
End Function '---------------------
Salutations!
"Eric Tremblay" a écrit dans le message de news: 009001c4d73e$0e9c1230$ Bonjour les amis!
Est-il possible de retourner la valeur provenant de la variable Target de Worksheet_Change (ByVal Target As Range) à une fonction?
J'aimerais pouvoir travailler plus efficacement mon code. Il dois bien y avoir quelques centaines de lignes de codes dans une seule page (Feuil1) à l'intérieur de Worksheet_Change...
Si oui, est-ce que je pourrais avoir un exemple de fonction avec la variable Target?
Merci BEAUCOUP!
Eric
Bonjour Éric,
Comme ta demande est vague, voici un exemple qui ne sert absolument à rien si ce n'est de démontrer comment passer
l'objet Range "Target" à une fonction personnalisée !
'---------------------
Private Sub Worksheet_Change(ByVal Target As Range)
MsgBox Rien(Target)
End Sub
'---------------------
Function Rien(Rg As Range)
Dim A as Long
For Each c In Rg
A = A + 1
Next
Rien = A
End Function
'---------------------
Salutations!
"Eric Tremblay" <anonymous@discussions.microsoft.com> a écrit dans le message de news:
009001c4d73e$0e9c1230$a401280a@phx.gbl...
Bonjour les amis!
Est-il possible de retourner la valeur provenant de la
variable Target de Worksheet_Change (ByVal Target As
Range) à une fonction?
J'aimerais pouvoir travailler plus efficacement mon
code. Il dois bien y avoir quelques centaines de lignes
de codes dans une seule page (Feuil1) à l'intérieur de
Worksheet_Change...
Si oui, est-ce que je pourrais avoir un exemple de
fonction avec la variable Target?
Comme ta demande est vague, voici un exemple qui ne sert absolument à rien si ce n'est de démontrer comment passer l'objet Range "Target" à une fonction personnalisée !
'--------------------- Private Sub Worksheet_Change(ByVal Target As Range)
MsgBox Rien(Target)
End Sub '---------------------
Function Rien(Rg As Range) Dim A as Long For Each c In Rg A = A + 1 Next Rien = A
End Function '---------------------
Salutations!
"Eric Tremblay" a écrit dans le message de news: 009001c4d73e$0e9c1230$ Bonjour les amis!
Est-il possible de retourner la valeur provenant de la variable Target de Worksheet_Change (ByVal Target As Range) à une fonction?
J'aimerais pouvoir travailler plus efficacement mon code. Il dois bien y avoir quelques centaines de lignes de codes dans une seule page (Feuil1) à l'intérieur de Worksheet_Change...
Si oui, est-ce que je pourrais avoir un exemple de fonction avec la variable Target?
Merci BEAUCOUP!
Eric
Eric Tremblay
Ca m'aide beaucoup plus que tu peux le penser.
Merci de ton aide!
Eric
-----Message d'origine----- Bonjour Éric,
Comme ta demande est vague, voici un exemple qui ne sert absolument à rien si ce n'est de démontrer comment passer
l'objet Range "Target" à une fonction personnalisée !
'--------------------- Private Sub Worksheet_Change(ByVal Target As Range)
MsgBox Rien(Target)
End Sub '---------------------
Function Rien(Rg As Range) Dim A as Long For Each c In Rg A = A + 1 Next Rien = A
End Function '---------------------
Salutations!
"Eric Tremblay" a écrit dans le message de news:
009001c4d73e$0e9c1230$ Bonjour les amis!
Est-il possible de retourner la valeur provenant de la variable Target de Worksheet_Change (ByVal Target As Range) à une fonction?
J'aimerais pouvoir travailler plus efficacement mon code. Il dois bien y avoir quelques centaines de lignes de codes dans une seule page (Feuil1) à l'intérieur de Worksheet_Change...
Si oui, est-ce que je pourrais avoir un exemple de fonction avec la variable Target?
Merci BEAUCOUP!
Eric
.
Ca m'aide beaucoup plus que tu peux le penser.
Merci de ton aide!
Eric
-----Message d'origine-----
Bonjour Éric,
Comme ta demande est vague, voici un exemple qui ne sert
absolument à rien si ce n'est de démontrer comment passer
l'objet Range "Target" à une fonction personnalisée !
'---------------------
Private Sub Worksheet_Change(ByVal Target As Range)
MsgBox Rien(Target)
End Sub
'---------------------
Function Rien(Rg As Range)
Dim A as Long
For Each c In Rg
A = A + 1
Next
Rien = A
End Function
'---------------------
Salutations!
"Eric Tremblay" <anonymous@discussions.microsoft.com> a
écrit dans le message de news:
009001c4d73e$0e9c1230$a401280a@phx.gbl...
Bonjour les amis!
Est-il possible de retourner la valeur provenant de la
variable Target de Worksheet_Change (ByVal Target As
Range) à une fonction?
J'aimerais pouvoir travailler plus efficacement mon
code. Il dois bien y avoir quelques centaines de lignes
de codes dans une seule page (Feuil1) à l'intérieur de
Worksheet_Change...
Si oui, est-ce que je pourrais avoir un exemple de
fonction avec la variable Target?
Comme ta demande est vague, voici un exemple qui ne sert absolument à rien si ce n'est de démontrer comment passer
l'objet Range "Target" à une fonction personnalisée !
'--------------------- Private Sub Worksheet_Change(ByVal Target As Range)
MsgBox Rien(Target)
End Sub '---------------------
Function Rien(Rg As Range) Dim A as Long For Each c In Rg A = A + 1 Next Rien = A
End Function '---------------------
Salutations!
"Eric Tremblay" a écrit dans le message de news:
009001c4d73e$0e9c1230$ Bonjour les amis!
Est-il possible de retourner la valeur provenant de la variable Target de Worksheet_Change (ByVal Target As Range) à une fonction?
J'aimerais pouvoir travailler plus efficacement mon code. Il dois bien y avoir quelques centaines de lignes de codes dans une seule page (Feuil1) à l'intérieur de Worksheet_Change...
Si oui, est-ce que je pourrais avoir un exemple de fonction avec la variable Target?
