Calcul dans textbox

Robert

XLDnaute Barbatruc

Repose en paix

• 13 Avril 2016

• #2

Re : Calcul dans textbox

Bonsoir Snoopy, bonsoir le forum,

Pas ur d'avoir compris "Système B3"... Peut-être comme ça :

Code:

If TxtType.Value = "Chèque" And  Val(TxtDebit.Value) > 0 Then TxtNCheque.Value = Range("B3").Value + 1

 

Vote positif 0 Vote négatif

S

snoopy07

XLDnaute Occasionnel

• 14 Avril 2016

• #3

Re : Calcul dans textbox

Bonsoir Robert
merci pour ta reponse mais ca ne marche pas

Système B3 c 'est la case B3 de la feuille nommé Système

cordialement
Snoopy 07

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 15 Avril 2016

• #4

Re : Calcul dans textbox

Re,

Alors essaie :

Code:

If TxtType.Value = "Chèque" And  Val(TxtDebit.Value) > 0 Then TxtNCheque.Value = Sheets("Système").Range("B3").Value + 1

 

Vote positif 0 Vote négatif

S

snoopy07

XLDnaute Occasionnel

• 15 Avril 2016

• #5

Re : Calcul dans textbox

Bonjour Robert

je viens d essai ton code est sa ne marche toujours pas

voila comment je l ai utilisé

Private Sub TxtNChèque_Change()
If TxtType.Value = "Chèque" And Val(TxtDébit.Value) > 0 Then TxtNChèque.Value = Sheets("Système").Range("B3").Value + 1
End Sub


cordialement

Snoopy 07

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 15 Avril 2016

• #6

Re : Calcul dans textbox

Re,

Tant que tu ne daigneras pas mettre ton fichier ou un fichier exemple basé sur ton fichier (avec la même structure), on tournera en rond...

 

Vote positif 0 Vote négatif

S

snoopy07

XLDnaute Occasionnel

• 15 Avril 2016

• #7

Re : Calcul dans textbox

bonjour

voici mon fichier

Document Cjoint


cordialement

Snoopy 07

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 17 Avril 2016

• #8

Re : Calcul dans textbox

Bonjour Snoopy, bonjour le forum,

Le problème avec ci-joint c'est que pour être accessible le fichier doit-être zippé. Désolé mais il te faudra recommencer en zippant au préalable le fichier...

 

Vote positif 0 Vote négatif

S

snoopy07

XLDnaute Occasionnel

• 18 Avril 2016

• #9

Re : Calcul dans textbox

Bonsoir Robert
Excusez moi de la réponse tardive étant pas chez moi pour toute la semaine je ne pourrais vous transmettre mon fichier cas partir de vendredis soir
Cordialement
Snoopy 08

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 18 Avril 2016

• #10

Re : Calcul dans textbox

Re,

Pas de soucis, je reste vigilant....

 

Vote positif 0 Vote négatif

O

ODVJ

XLDnaute Impliqué

• 18 Avril 2016

• #11

Re : Calcul dans textbox

Bonjour Robert,

Pour récupérer un xlsm avec cjoint, fait un clic-droit\enregistrer la cible du lien sous..

cordialement

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 18 Avril 2016

• #12

Re : Calcul dans textbox

Re,

@ODVJ Merci beaucoup pour cet excellent tuyau...

[Édition]
@Snoopy

Ton code fonctionne mais pour moi il est mal placé. Je l'ai placé à la sortie de la textbox TxtDébit avec ce code :

Code:

Private Sub TxtDébit_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TxtType.Value = "Chèque" And Val(TxtDébit.Value) > 0 Then TxtNChèque.Value = Sheets("Système").Range("B3").Value + 1
End Sub

à la place de la procédure Change de la TextBox TxtNChèque (à supprimer donc) qui bouclait sur elle même à chaque changement. Je pense que cette solution devrait te convenir...

 

Dernière édition: 18 Avril 2016

Vote positif 0 Vote négatif

S

snoopy07

XLDnaute Occasionnel

• 23 Avril 2016

• #13

Re : Calcul dans textbox

Bonjour Robert et le forum

Je viens de voir votre denier message et j ai place le code a la bonne place et cela marche
Un grand mercie de votre aide

Cordialement
Snoopy 07

 

Vote positif 0 Vote négatif

S

snoopy07

XLDnaute Occasionnel

• 23 Avril 2016

• #14

Re : Calcul dans textbox

re bonjour robert

une petite question peut on faire apparaitre le resultat dans TxtNChèque des que l on commence a rentrer une valeur dans TxtDébit
au lieu qu il apparaisse quand on clic sur sur une autre textbox ou qu on tape sur entrée

Cordialement
Snoopy 07

 

Pièces jointes

• 3 essai nouvelle feuille.xlsm

  62.4 KB · Affichages: 32
• 3 essai nouvelle feuille.xlsm

  62.4 KB · Affichages: 38

Vote positif 0 Vote négatif