problem de compatibilité

CBernardT

XLDnaute Barbatruc

• 1 Septembre 2008

• #2

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

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 1 Septembre 2008

• #3

Re : problem de compatibilité

Bonjour Akramenergie,

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

Code:

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

A bientôt

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 1 Septembre 2008

• #4

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

 

Pièces jointes

• BDD_cartes.zip

  21.6 KB · Affichages: 21
• BDD_cartes.zip

  21.6 KB · Affichages: 29
• BDD_cartes.zip

  21.6 KB · Affichages: 28

Vote positif 0 Vote négatif

G

Guest

Guest

• 1 Septembre 2008

• #5

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

 

Vote positif 0 Vote négatif

A

akramenergie

XLDnaute Occasionnel

• 1 Septembre 2008

• #6

Re : problem de compatibilité

Merci de votre aide 😉

 

Vote positif 0 Vote négatif

A

akramenergie

XLDnaute Occasionnel

• 1 Septembre 2008

• #7

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
😕

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 1 Septembre 2008

• #8

Re : problem de compatibilité

Re bonjour

Code:

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.

 

Vote positif 0 Vote négatif

A

akramenergie

XLDnaute Occasionnel

• 1 Septembre 2008

• #9

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

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 1 Septembre 2008

• #10

Re : problem de compatibilité

Re bonjour,

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

A bientôt

 

Vote positif 0 Vote négatif

A

akramenergie

XLDnaute Occasionnel

• 1 Septembre 2008

• #11

Re : problem de compatibilité

Merci 😱 les gas de votre aide

 

Vote positif 0 Vote négatif