Problème de calcul via textbox.

morest · 18 Septembre 2010

Bonjour à tous.

Je cherche une façon de pouvoir saisir un calcul genre "=15*5+4*7+100" lorsque l'userform s'affiche et que cette chaîne de caractère soit prise en compte sur la fiche de calcul excel.

Voilà le code dont je dispose à l'heure actuelle :

Code:

Private Sub OK_Click()
If Data0 = True Then Sheets("DDP").Range("D9") = Data0.value
End Sub

Data0 étant le nom de ma textbox.

J'ai cherché un peu partout sur le net sans succès. Merci d'avance.

ROGER2327 · 24 Septembre 2010

Re : Problème de calcul via textbox.

Bonsoir à tous

Je le verrais bien comme ça, ce code.

Code:

[COLOR="DarkSlateGray"][B]Private Sub OK_Click()
  If B1 = True Then
    With Sheets("DDP")
      .Range("Z9:Z10").Value = .Range("D9:D10").Value
      .Range("Y11").Value = .Range("D11").Value
      .Range("Z11").Value = .Range("E11").Value
      .Range("Z12:Z13").Value = .Range("D12:D13").Value
      .Range("Z15:Z16").Value = .Range("D15:D16").Value
      If Data0 <> "" Then .Range("D9").Value = Data0.Value Else .Range("D9").Value = .Range("Z9").Value
      If ComboBox1 <> "" Then .Range("D10").Value = ComboBox1 Else .Range("D10").Value = .Range("z10").Value
      If Data2 <> "" Then .Range("D11").Value = Data2 Else .Range("D11").Value = .Range("Y11").Value
      If Data3 <> "" Then .Range("E11").Value = Data3 Else .Range("E11").Value = .Range("Z11").Value
      If Data4 <> "" Then .Range("D12").Value = Data4 Else .Range("D12").Value = .Range("Z12").Value
      If Data5 <> "" Then .Range("D13").Value = Data5 Else .Range("D12").Value = .Range("Z13").Value
      If Data6 <> "" Then .Range("D15").Value = Data6 Else .Range("D15").Value = .Range("Z15").Value
      If Data7 <> "" Then .Range("D16").Value = Data7 Else .Range("D16").Value = .Range("Z16").Value
      Unload Négoce
      .Range("Z9:Z13").Value = ""
      .Range("Y11").Value = ""
      .Range("Z15:Z16").Value = ""
    End With
  End If
End Sub[/B][/COLOR]

(Pas testé, pour une fois...)

ROGER2327
#4182

Mardi 17 Absolu 138 (Céphalorgie, V)
3 Vendémiaire An CCXIX
2010-W38-5T20:45:52Z

Habitude · 25 Septembre 2010

Re : Problème de calcul via textbox.

tu ne peux pas mettre ta condition vrai sur la même ligne que Then avec un endif
par contre tu peux mettre ton else sur la même ligne

if titi=1 then toto else tutu

If Data0 <> "" Then Sheets("DDP").Range("D9").Value = Data0.Value
Else: Sheets("DDP").Range("D9").Value = Sheets("DDP").Range("z9").Value
End If

devrait s'écrire

Code:

If Data0 <> "" Then Sheets("DDP").Range("D9").Value = Data0.Value [COLOR="Red"][B]_[/B][/COLOR]
 Else[COLOR="Blue"]:[/COLOR] Sheets("DDP").Range("D9").Value = Sheets("DDP").Range("z9").Value

Le ":" n'est pas nécessaire

Je te suggère de regarde du coté de la fonction : IIF

morest · 25 Septembre 2010

Re : Problème de calcul via textbox.

Merci à vous roger et habitude pour votre aide. Roger, ton code marche à la perfection merci beaucoup tu me sort une épine du pied 🙂

Problème de calcul via textbox.

morest

XLDnaute Occasionnel

ROGER2327

XLDnaute Barbatruc

Habitude

XLDnaute Accro

morest

XLDnaute Occasionnel

Discussions similaires

Problème de calcul via textbox.

morest

XLDnaute Occasionnel

ROGER2327

XLDnaute Barbatruc

Habitude

XLDnaute Accro

morest

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency