Discussion :

[jbellavance]

Bonjour,

J'ai beaucoup programmé en VBA sous Access, mais je débute en Excel.

J'écris une fonction (Test(...) As Volatile) qui retourne une valeur selon ce qui est trouvé dans un champ d'une autre feuille. Les valeurs contenues dans ce champ sont composées d'un seul caractère (A..Z).

À l'aide de WorksheetFunction.Vlookup, je réussis à déterminer le numéro de la ligne.
(Test = NoLigne retourne le bonne information)

À l'aide de Range.Offset(l,c), je retrouve l'information voulue dans le champ de départ.
Je place cette valeur dans la variable V1, DIMmentionnée comme Variant (String fait tout échouer).
(Test = V1 retourne la bonne valeur)

Mais, la ligne suivante me retourne #VALEUR :

Code :

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

IF V1 = "J" Then Test = "Hello"

J'ai même tenté la chose suivante avec V2 (DIMmentionnée également comme Variant) :
V2 = V1,
IF V1 = V2 Then Test = "Hello" ...qui me retourne encore #VALEUR

J'ai ensuite testé : If 4=4 Then Test = "Hello" ... J'ai obtenu mon "Hello"

Je ne sais plus quoi tenter pour obtenir mon "Hello" avec une condition qui est moins triviale.
Je soupçonne qu'il y a incompatibilité de type. J'ai tenté de multiples fonctions de changement de type sans succès.

J'apprécie que vous me preniez par la main pour celle-là.

Merci pour votre aide.

[gnain]

Bonjour,
essaie avec

Code :

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

IF V1 = CVar("J") Then Test = "Hello"

[Invité]

Le problème est que vba à peur du vide, le vertige sans doute!

Code :

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

if trim("" & v1) =  trim("" & v2) then

[jbellavance]

Merci à gnain et à rdurupt.

J'ai tenté vos solutions, mais Excel ne veut rien savoir.

Je vous envoie le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Public Function CalendrierProf(LeProf As Variant, LaDate As Variant, AMPM As Integer) As Variant
  Application.Volatile
  Dim NoLigne As Variant
  Dim H As Range
  Dim PProf, Prof As Variant
  Set H = Range("Affectations!H1:K253")
 
  NoLigne = WorksheetFunction.VLookup(LaDate, Range("Affectations!D15:E253"), 2) - 1
 
'  CalendrierProf = H.Offset(NoLigne, 0)                 ' Retourne la bonne valeur
 
   Prof = H.Offset(NoLigne, 0)
'  CalendrierProf = Prof                                 ' Retourne la bonne valeur
 
   PProf = Prof
'  If PProf = Prof Then CalendrierProf = "Secrétariat"   ' Retourne #VALEUR
   If Trim("" & Prof) = CVar(Trim("" & "J")) Then CalendrierProf = "Secrétariat"           ' Retourne Secrétariat
 
End Function

En voyant le commentaire de rdurupt, j'ai aussi essayé NZ() qui fonctionne avec Access (empêche le passage de NULL), mais qu'Excel ne semble pas connaître.

Merci encore de tenter de m'aider.

[SfJ5Rpw8]

Bonsoir,

tu renvois une tableau dans ton "Prof" ... :

Code :

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

1
2
   Prof = h.Offset(NoLigne, 1).Cells(1, 1)
   If Prof = "J" Then CalendrierProf = "Secrétariat"            ' Retourne Secrétariat

faudrait prévoir le cas ou <> de J aussi ?


Cdt.

[jbellavance]

Merci de vous être penchés sur mon problème.