problem de compatibilité

[akramenergie]

Bonjour mes amis du forums
dans mon fichier excel que je mais en piéce joint un bug ce produit lorsque je veut enregistrer mes données saisie dans le userform1 et je croit c'est un probléme de compatibilité lorsque je fait un produit de deux valeur mais je sais pa comment résoudre ce probléme qlq peut m'aider pour ca SVP????

 

[CBernardT]

Re : problem de compatibilité

Bonjour akramenergie

Je te propose la solution suivante :

Private Sub ComboBox2_Change()
If ComboBox2 <> "" Then
If TextBox8 <> "" Then
TextBox9 = CDbl(ComboBox2) * CDbl(TextBox8)
Else
MsgBox " Saississez le prix unitaire, merci !"
ComboBox2 = ""
TextBox8.SetFocus
End If
End If
End Sub

Cordialement

Bernard

 

[Guest]

Re : problem de compatibilité

Bonjour Akramenergie,

Les valeurs retournées par combobox2 et TextBox8 sont des chaines de caractères qu'il faut convertir.

Private Sub ComboBox2_Change()
    TextBox9 = CDbl(ComboBox2.Value) * CDbl(TextBox8.Value)
End Sub

A bientôt

 

[pierrejean]

Re : problem de compatibilité

bonjour akramenergie

ton problème venait de l'effacement de la combobox2 a la fin de l'enregistrement
cet effacement provoquait via la macro combobox2_change un recalcul sur des textbox et combobox vides
pour pallier a ceci j'ai introduit un booleen flag qui interdit le calcul

ps: tu ne devrait pas utiliser de variable du nom de val (val est une fonction d'Excel)

Edit : Salut hasco

 

[Guest]

Re : problem de compatibilité

Hello PierreJean,

Je me demandais pourquoi, la conversion ne se faisait pas automatiquement alors que c'est le cas habituellement. Mais je n'avais pas cherché plus loin...🙄

A+PierreJean

 

[akramenergie]

Re : problem de compatibilité

Merci de votre aide 😉

 

[akramenergie]

Re : problem de compatibilité

just un autre truc est ce que il existe en vba une fonction SOMMe comme celle d'excel???
car mois je veut faire la somme de certaine elements qui safiche dans ma listbox j'ai proposer ce codes mais sa marche pas


For i = 0 To nombreElem - 1

UserForm1.ListBox1.Value= SOMME( elem(i, 4))

Naext i
😕

 

[Guest]

Re : problem de compatibilité

Re bonjour

dim cpt as double
 
For i = 0 To nombreElem - 1

cpt=cpt+elem(i,4)

Next i
 
Listbox1.Value=cpt

Si j'ai bien compris.

 

[akramenergie]

Re : problem de compatibilité

Re bonjour

comment effacer le comptenue d'une feuille sans l'avoir sélectionner


j'ai utiliser cette partie de code mais sa bug


Worksheets("BL").Range("A2:F29").Select
Selection.ClearContents


Merci

 

[Guest]

Re : problem de compatibilité

Re bonjour,

Worksheets("BL").Range("A2:F29").ClearContents

A bientôt

 

[akramenergie]

Re : problem de compatibilité

Merci 😱 les gas de votre aide