pbm vba

[arno]

bonjour
j ai un probleme avec mon code vba. j ai une userform du nom de 'vari_elements_parameters' sur laquelle se trouve les combobox 'dim_el_bzone' et 'dim_pink_area'. lorsque je veux utiliser leurs valeur comme ci dessous un message d erreur est affiché et les resultats semble faux

Nba = ((Sheets('Inputs').Cells(30, 6).Value - Val(vari_elements_parameters.dim_pink_area.Value)) / 2) / (Val(vari_elements_parameters.dim_el_bzone.Value))


merci pour votre reponse

 

[PascalXLD]

Bonjour

tes décimales sont avec virgule ou point dans tes combo

si virgule il faut Cdbl au lieu de Val

Bon courage

 

[arno]

non je ne crois pas que les decimales des comboboxes soient des virgules car plus haut la fonction val marchait.

 

[PascalXLD]

Re

Quel est le message d'erreur alors ??

 

[arno]

est ce possible que ma formule ne marche pas car il ne trouve pas de valeur dans ces comboboxs.quand je fais tourner ce code mes combobox ne sont pas active. je leur ai pourtant attribuer une valeur par default

 

[arno]

error 13

type mismatch

 

[PascalXLD]

Re

pour savoir passe par des variables tu fais un point d'arrêt et tu regardes ce qu'il récupère

dim val1 as double
Dim val2 as double

val1=Val(vari_elements_parameters.dim_pink_area.Value
val2=Val(vari_elements_parameters.dim_el_bzone.Value)

Nba = ((Sheets(\\'Inputs\\').Cells(30, 6).Value - Val1) /2) / (Val2)

 

[arno]

il me dit que mes variables sont nulles. je dois peut etre stocker les valeur de ma combobox qq part

 

[arno]

re
y a t il un moyen pour que meme lorsque ma combobox est ferme qu elle se souvienne des valeurs que je lui ai rentrées.
merki

 

[PascalXLD]

RE

Et bien il faut les stocker dans des varaibles public pour les utiliser dans un module après

 

[arno]

comment j fais?

 

[PascalXLD]

Re

Dans un module tu ecris en en-tête de celui-ci

Public val1 as double
Public val2 as double
_________________________________________________

dasn ton UF avant de le fermer tu ecris

val1=Val(vari_elements_parameters.dim_pink_area.Value
val2=Val(vari_elements_parameters.dim_el_bzone.Value)

_________________________________________________

puis dans ta macro tu écris

Nba = ((Sheets('Inputs').Cells(30, 6).Value - Val1) /2) / (Val2)