pbm vba

PascalXLD

XLDnaute Barbatruc

Modérateur

• 7 Avril 2006

• #2

Bonjour

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

si virgule il faut Cdbl au lieu de Val

Bon courage

 

Vote positif 0 Vote négatif

A

arno

Guest

• 7 Avril 2006

• #3

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

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 7 Avril 2006

• #4

Re

Quel est le message d'erreur alors ??

 

Vote positif 0 Vote négatif

A

arno

Guest

• 7 Avril 2006

• #5

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

 

Vote positif 0 Vote négatif

A

arno

Guest

• 7 Avril 2006

• #6

error 13

type mismatch

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 7 Avril 2006

• #7

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)

 

Vote positif 0 Vote négatif

A

arno

Guest

• 7 Avril 2006

• #8

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

 

Vote positif 0 Vote négatif

A

arno

Guest

• 7 Avril 2006

• #9

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

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 7 Avril 2006

• #10

RE

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

 

Vote positif 0 Vote négatif

A

arno

Guest

• 7 Avril 2006

• #11

comment j fais?

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 7 Avril 2006

• #12

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)

 

Vote positif 0 Vote négatif