Discussion :

[jphcrutzen]

Bonjour,

Je pensais connaître VBA, mais pas assez, visiblement :-)

Dans la procédure
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
j'appelle une fonction de validation de la valeur de Target en fonction de sa position.

L'argument de cette fonction est le range Target

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
...
...
    If Not ValidationPremiereLigne(Target) Then
        Exit Sub
    End If

Ma fonction ValidationPremiereLigne se trouve dans un module "normal" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Function ValidationPremiereLigne(MaCellule As Range) As Boolean
...
...

Je m'attends à ce que ce soit un objet range (Target) qui soit passé à la fonction. Or c'est la valeur de Target qui est passée, et pas l'objet.
Il y a donc quelque chose qui m'échappe.

J'ai cherché sur le web, sur le forum : cela a l'air très simple pour tout le monde...sauf pour moi.

Merci a la bonne âme qui pourra m'aider.

[Invité]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Function ValidationPremiereLigne(ByRef MaCellule As Range) As Boolean 'Contrairement à ByVal par défaut !
End Function

[unparia]

Bonjour Robert
Attention -->> sous VBA, c'est l'argument ByRef, qui est en vigueur par défaut.

[eriiic]

Bonjour,

si tu mets un espion tu vois autre chose que Range/Range dans son type ?
Ca parait étonnant. Que lis-tu comme type ?
eric

[patricktoulon]

re

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Function ValidationPremiereLigne(MaCellule As Range) As Boolean
 ...
 ...

en fait ton target est bien transmis en tant que range

maintenant tout depend du code que tu a dans cette fonction et de la facon dont tu utilise le target(Macellule)

je pense que ca doit venir de la

[NVCfrm]

Bonjour à tous.

Bonjour,
...
Je m'attends à ce que ce soit un objet range (Target) qui soit passé à la fonction. Or c'est la valeur de Target qui est passée, et pas l'objet.
Il y a donc quelque chose qui m'échappe.

Il y a quelque chose qui nous échappe dans ce que tu veux exprimer comme problème.
Ce qui aurait épargné une perte de temps à tous, c'était de montrer le code de manipulation de ta variable maCellule dans la fonction. Et nous indiquer là ou ça coince.

Un petit rappel des fondamentaux s'impose :
- La variable passée par réference consiste à affecter à l'argument de la fonction la reference de ladite variable. Un peu semblabe aux pointeurs dans les langages de bas niveau. La fonction ayant cette variable definie par reference, manipule directement la variable d'origine via sa reference.

- Le passage par valeur va "cloner" la variable dans une autre. Toute les manipulations sont effectuées sur une copie de variable qui dispose de sa propre référence.

On revient à cette notion de reference qui veut que pour affecter une valeur, VBA a besoin d'une reference.
Toutes les variables pointent sur une reference et une seule. Une reference peut avoir pour valeur une donnée intrinsèque, voir une autre réference.
Une reference peut être désignée par plusieurs variables.
La reference serait la zone mémoire réservée pour un type de donnée.
Et VBA se contente en interne de changer la reference d'une variable par la reference de celle qui lui a été affectée. Pour illustrer :
Soit A = 1, B = 0, C = A.
B dispose d'une réference dont la valeur est 0.
C de la meme reference que A valant 1.
Ceci pour dire que nous avons 2 references definies pour 3 variables, et que l'affectation C = A n'affecte pas la valeur 1 à ce dernier, mais fait pointer C sur la reference de A. La lecture de sa valeur renverra 1.
Si nous avons une fonction attendant un argument du même type que A, que nous voudrions lui transmettre la valeur de A, mais nous ne voulons pas que cette valeur soit changée au retour de la fonction appelée, il suffit de forcer par le mot clé ByVal le passage d'argument, pour retrouver la valeur 1, meme si la fonction appelée y a effectué des changements.

Ce mécanisme adopté par VBA peut avoir l'air troublant, mais compréhensible quand on sait qu'une variable objet par exemple peut avoir un grand nombre de sous variables de données plus ou moins importantes.

Tu auras remarqué , il se trouve que la variable Target elle même est définie ByVal dans la procédure évènementielle Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range). Une protection de VBA pour qu'elle ne soit pas déferencée dans la routine invisible qui a déclenché cet appel par un code du genre Set Target = UnAutreRange . Quand la routine invisible reprendra la main, elle trouvera que Target reference en son sein le même Range.

Tu pouuras donc changer la (les) valeur(s) de Target ou même la redefinir (c'est une variable comme toute autre) dans ta sous routine. Mais dans la suite quand Workbook_SheetChange rendra l'âme, pardon la main; la réference de Target à l'origine reste le même.

Ton problème se situe t-il quelque part là bas ... dans une boucle évènementielle ???

Je penses que ces quelques lignes t'auront permis de comprendre.

[jphcrutzen]

Bonjour et merci à tous les contributeurs.

J'ai simplifié au maximum mon code, et ça fonctionne maintenant comme attendu.

Le problème provenait de ce que, dans ma fonction ValidationPremiereLigne(MaCellule as Range), je faisais un appel à une seconde fonction EstPremiereLigneCommande(MaCellule)
C'est là que je perdais le fil.

Merci Ousmane pour les explications précises. Je vais les garder sous le coude.
Merci aux autres pour les pistes de recherche, et notamment à Patrick.

[Pierre Fauconnier]

[...]
Et VBA se contente en interne de changer la reference d'une variable par la reference de celle qui lui a été affectée. Pour illustrer :
Soit A = 1, B = 0, C = A.
B dispose d'une réference dont la valeur est 0.
C de la meme reference que A valant 1.
Ceci pour dire que nous avons 2 references definies pour 3 variables, et que l'affectation C = A n'affecte pas la valeur 1 à ce dernier, mais fait pointer C sur la reference de A. La lecture de sa valeur renverra 1.[...]

Dans le cas que tu cites, C ne pointe pas vers A et il y a bien trois références et non deux comme tu l'affirmes et C n'a pas la même référence que A. On affecte à une nouvelle variable C la valeur de A, mais après, chacune vit sa vie... Si ce que tu disais était exact, le code suivant afficherait 4, alors qu'il affiche 1... En affectation directe et pour les variables simples, c'est toujours la valeur qui est passée, pas la référence.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Test()
  Dim A, B, C
 
  A = 1
  B = 2
  C = A
  A = 4
  MsgBox C
End Sub

Ce que tu dis est vrai si A et C étaient des objets, car dans ce cas, Set C = A transmet à C la référence à A, de sorte que si tu modifies C, tu modifies A puisque c'est le même objet.

[NVCfrm]

Ce que tu dis est vrai si A et C étaient des objets, car dans ce cas, Set C = A transmet à C la référence à A, de sorte que si tu modifies C, tu modifies A puisque c'est le même objet.

Merci d'avoir précisé ce détail qui est ce auquel je me réfère dans cette discussion qui est attachée de fait à un objet.

Quand on lit la discussion au début, on a un demandeur qui a un problème dans le passage en argument ByVal d'un objet Range.

Ma réponse est restée mentalement accrochée à la notion des variables objet.
L'explication démonstrative ne voulant pas être lourd en écriture, vu que je ne pensais pas qu'on pouvait croire en lisant, penser que je parles d'autre chose.
Je comprends la remarque, qui relève cette insuffisance si on venait juste lire la partie incriminée.
Pour ceux qui me connaissent un peu mieux et qui maîtrisent le sujet, il n'y a pas matière à équivoque.