[Résolu][Calc] Paramètre optionnel et fonction IsMissing

[Elicul15]

Bonjour à tous,

Je cherche à créer une procédure (Sub) avec un paramètre optionnel et j'ai un comportement bizarre de la fonction IsMissing
Si j'ai bien compris, cette fonction devrait tester l'existence du paramètre sLeNomDuBop dans l'appel à ma procédure, mais que je l'appelle avec ou sans paramètre, le résultat de IsMissing est systématiquement égal à False, et je tombe sur une erreur sur la suite du programme si j'appelle ma procédure sans paramètre.

Merci des pistes que vous pourrez m'apporter.

Code : Tout sélectionner

Sub ColorPicker(Optional sLeNomDuBOP)

	if IsMissing(sLeNomDuBOP) Then
		sLeNomDuBOP = ""
		msgbox ("sLeNomDuBOP est manquant")
	else
		msgbox ("sLeNomDuBOP n'est pas manquant")
	EndIf
	msgbox("|" & sLeNomDuBOP & "|")
End Sub

'_____ColorPicker("Une chaine") se déroule bien et m'affiche |Une chaine|
'_____ColorPicker() donne une erreur à la sortie du If

[Bidouille]

Inscrit depuis plus de 10 ans sur ce forum, on vous rappelle que "problème" est inutile dans un titre.
Toutes les questions sont forcément des problèmes et demandent de l'aide.
Pour la qualité de la base de connaissances, veillez à ne pas employer de terme implicite.

[Dude]

Salut,

cette fonction devrait tester l'existence du paramètre sLeNomDuBop

Comme sLeNomDuBop n'est pas typé, comment penses-tu que le compilateur l'interprète ?
Sers-toi de XRay pour voir ce que tu reçois.

Comme d'habitude, avec 10 pauvres lignes de code, il faudrait deviner tout un contexte(*).



(*) Fournir le contexte signifie joindre un document explicatif et exhaustif permettant de comprendre la problématique.

[joel275]

Bonjour,

si je teste ta procédure avec

Code : Tout sélectionner

Sub Main
dim sLeNomDuBOP
	sLeNomDuBOP = "0"
	ColorPicker(sLeNomDuBOP)
	ColorPicker()
End Sub

Sub ColorPicker(Optional sLeNomDuBOP)

   if IsMissing(sLeNomDuBOP) Then
      sLeNomDuBOP = ""
      msgbox ("sLeNomDuBOP est manquant")
   else
      msgbox ("sLeNomDuBOP n'est pas manquant")
   EndIf
   msgbox("|" & sLeNomDuBOP & "|")
End Sub

tout fonctionne comme attendu....

A plus.

[OOotremer971]

Bonjour,

tout fonctionne comme attendu....

Je confirme en testant de la sorte :

Code : Tout sélectionner

Sub Main
ColorPicker("Une chaine")
ColorPicker()
End Sub

Sub ColorPicker(Optional sLeNomDuBOP)
if IsMissing(sLeNomDuBOP) Then
	sLeNomDuBOP = ""
	msgbox ("sLeNomDuBOP est manquant")
else
	msgbox ("sLeNomDuBOP n'est pas manquant")
End If
	msgbox("|" & sLeNomDuBOP & "|")
End Sub

Tout fonctionne correctement. Regarde si tu n'as pas des doublons dans le nom de tes macros, dans mes macros ou dans un autre module du fichier par hasard.

[Elicul15]

Bonjour,

Merci de vos réponses et remarques.
Après les réponses de OOotremer971 et Joel275, j'ai effectué d'autres tests.

Effectivement, l'appel depuis une autre procédure fonctionne.

L'erreur se produit lorsque j'appelle ma procédure directement depuis un bouton sur la feuille Depuis Bouton (les copies d'écrans sont également sur la feuille).

Comme sLeNomDuBop n'est pas typé, comment penses-tu que le compilateur l'interprète ?
Sers-toi de XRay pour voir ce que tu reçois.

Lorsque je teste la variable avec XRay, voici ce que j'obtiens

XRay_sLeNomDuBop.png

Comment puis-je transformer cette variable en chaine vide ?

D'avance merci encore pour vos éclairages.

[joel275]

Bonjour,

quand tu déclenches une macro par un bouton (ou autre chose), le système transmet un "évènement" qui est tout autre que la variable que tu as nommé ailleurs dans ton code. D'ailleurs XRay te l'écrit en toutes lettres dans son compte rendu.
Je ne pense pas que tu puisses transmettre en basic une variable personnelle à une macro déclenchée par un bouton.

A plus.

[OOotremer971]

Bonjour,

Il faudrait que tu expliques exactement ce qu'est sensé faire ce bouton. S'il faut s'assurer qu'un non est bien renseigné quelque part dans le fichier, il faut d'abord lancer (à partir du bouton) une procédure qui va à la cellule souhaitée pour récupérer son contenu, en l'occurrence sLeNomDuBOP, puis le passer en argument à la sub ColorPicker

Code : Tout sélectionner

Sub Main
sLeNomDuBOP = Thiscomponent.Sheets(0).GetCellRangeByName("A1").String
ColorPicker(sLeNomDuBOP)
End Sub

Tu appelles ta sub Main avec le bouton. Si la cellule A1 de la feuille1 contient un nom il sera passé en argument à ta sub ColorPicker sinon tu recevras le message disant que le nom est manquant.

A+

[Elicul15]

Il faudrait que tu expliques exactement ce qu'est sensé faire ce bouton. S'il faut s'assurer qu'un non est bien renseigné quelque part dans le fichier, il faut d'abord lancer (à partir du bouton) une procédure qui va à la cellule souhaitée pour récupérer son contenu, en l'occurrence sLeNomDuBOP, puis le passer en argument à la sub ColorPicker

Tu appelles ta sub Main avec le bouton. Si la cellule A1 de la feuille1 contient un nom il sera passé en argument à ta sub ColorPicker sinon tu recevras le message disant que le nom est manquant.

En fait, la procédure ColorPicker(Optional sLeNomDuBop) me sert à coloriser des feuilles (par le biais d'une modification de styles)
La plage de couleur autorisée est saisie sur la feuille param qui sera masquée

Si je l'appelle sans paramètre, ma procédure colorise les feuilles existantes
Si je l'appelle avec un paramètre, ma procédure inscrit le nom du bop dans la première cellule libre

Bonjour,
quand tu déclenches une macro par un bouton (ou autre chose), le système transmet un "évènement" qui est tout autre que la variable que tu as nommé ailleurs dans ton code. D'ailleurs XRay te l'écrit en toutes lettres dans son compte rendu.
Je ne pense pas que tu puisses transmettre en basic une variable personnelle à une macro déclenchée par un bouton.

Je vais donc passer par une procédure qui appelle ColorPicker()

Code : Tout sélectionner

Sub ColorExist()
    ColorPicker()
End Sub

et affecter cette nouvelle procédure à mon bouton.

Merci à vous pour ces informations, pour moi ce post est résolu.