Discussion :

[petitgreg]

Bonjour,

je débute en VB, et je dois créer des macros sous excel.
J'ai bien créé ma fonction, mais j'aimerai réaliser un test (tout bête?) sur une valeur passée en paramètre à ma fonction.
Cette valeur est un entier. Je voudrais simplement retourné une erreur si cette valeur n'est pas initialisée (null, ou vide).

Code :

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

1
2
3
4
 
if mavariable = "" Then
MsgBox("Erreur...")
End If

Mais ceci ne fonctionne pas j'ai même essayé un empty même résultat... Or lorsque je teste avec une variable donnée là je passe bien dans ma condition

Code :

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

1
2
3
4
5
 
'mavariable=5
if mavariable = "5" Then
MsgBox("Erreur...")
End If

En résumé que dois je mettre après le signe égal lorsque la variable n'est pas initialisée???

Merci pour vos réponses.

[SfJ5Rpw8]

il faudrai surtout que tu nous montre comment tu déclare ta variable... si c'est vraiment un entier... ben par défaut en VB elle est initialisée à 0 ..!

[petitgreg]

En fait j'aimerai vérifié que les différents champs concernant ma fonction sont bien rempli et que l'utilisateur n'en a pas oublié .

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
 
'Cette fonction renvoit la moyenne du nombre de PC de l'UDP concernée
'sur la période donnée.
 
Function Moyenne_PC(Udp As String, Semaine_deb As Integer, Annee_deb As Integer, Semaine_fin As Integer, Annee_fin As Integer) As Single
 
'Contrôle du paramètre UDP au niveau d'excel
If Trim(Udp) = "" Then
    Moyenne_PC = -1
    MsgBox ("Udp manquante")
    Exit Function
ElseIf Semaine_deb = "" Then
     Moyenne_PC = -2
     MsgBox("Semaine_deb manquante")
     Exit Function
End If

Voilà, lorsque je teste le premier parametre (Udp as String) aucun problème si celui-là n'est pas renseigné il me retourne bien ma valeur -1.
Maintenant lorsque je fait ce test sur le 2nd paramètre (Semaine_deb as Integer) il me "banane".

Merci pour votre aide.

[SfJ5Rpw8]

ben pour éviter qu'il te banane .. compare un entier avec un entier..!

Code :

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

ElseIf Semaine_deb = 0 ...

[AlainTech]

Pour savoir si une variable a été initialisée:

Code :

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

1
2
3
4
Dim mavariable
If IsEmpty(mavariable) Then
  MsgBox "Non initialisée"
End If

[petitgreg]

Merci pour vos réponses rapide. Néanmoins si je mets 0, et que l'utilisateur ne met rien comme valeur (pas même 0), la condition n'est pas remplie.
Ex:
Moyenne_PC("MBAA";;2005;3;2006) -> ici semaine_deb n'est pas déclarée

Lorsque tu remplis les différentes valeurs de ta fonction sous excel, si l'utilisateur n'inscrit rien pour le paramètre Semaine_deb (par exemple) cela ne marche pas.

J'ai également essayé

Code :

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

If IsEmpty(mavariable) Then ...

Fonctionne pas non plus!

Avez-vous d'autres idées?

Merci pour vos réponses

[fast&furious]

Bonsoir,

Pourquoi n'utilises-tu pas une userform avec tous les champs dont tu as besoin en faisant des tests sur tout les champs avant d'utiliser ta fonction (cela obligera tes utilisateurs à mettre les données dont tu as besoin) ?

fast

[ouskel'n'or]

Envoie un string nul à ta fonction et convertis en integer dans la fonction.
Convertis en string avant et en integer après
A tout hasard

[SilkyRoad]

bonsoir

Voilà, lorsque je teste le premier parametre (Udp as String) aucun problème si celui-là n'est pas renseigné il me retourne bien ma valeur -1.

Qu'as tu testé?

=Moyenne_PC("";2;2005;3;2006)

ou

=Moyenne_PC(;2;2005;3;2006)

Dans le premier cas, il y a une chaine vide mais pas de chaine manquante.

Le deuxième exemple renvoie une erreur #VALEUR! si l'argument String (Udp) n'est pas renseigné.

Lorsque tu remplis les différentes valeurs de ta fonction sous excel, si l'utilisateur n'inscrit rien pour le paramètre Semaine_deb (par exemple) cela ne marche pas.

La fonction n'est pas déclenchée s'il manque un argument. Tu pourras mettre toutes les lignes que tu veux dans ta procédure, cela ne changera rien...


Pour que la fonction puisse eventuellement être déclenchée dans ce cas de figure, tu pourrais passer les arguments en Optional mais ce n'est pas vraiment prévu à cet effet (au contraire):

Code :

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

1
2
3
4
5
6
7
8
Function MaFonction(Optional x As Integer) As Integer
    If x = 0 Then
        MaFonction = -1
        Exit Function
    End If
 
    MaFonction = x * 5
End Function

Ensuite tu peux tester ces formules

Code :

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

=MaFonction(3)

Code :

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

=MaFonction()

bonne soirée
michel

[petitgreg]

Bonjour,

Merci à vous pour vos réponses, effectivement je me suis rendu compte lorsque pour le premier paramètre (qui est un string) j'envoie une chaine vide et c'est pour cela que j'avais bien mon code de retour. En revanche si la valeur de la chaine est manquante j'ai effectivement #VALEUR! et la fonction qui ne se lance pas . Merci à SilkyRoad pour ses précisions.
J'ai passé certains arguments en Optional pour "résoudre" ce problème. Je verrai par la suite si je peux trouver plus judicieux.

Merci encore à vous.