Bug pour addition de plusieurs textbox

psykofab

XLDnaute Nouveau
Salut à tous,

J'ai deux soucis avec mon projet actuel...(ci-joint) :(

Le premier... tout buge quand j'essaye d'ajouter le contenu de 16 textbox (voir userform4 dans le fichier joint)

Le second : je ne sait pas comment faire apparaitre les infos dans les textbox à partir d'un choix dans la première liste de choix (cf userform3)

Merci beaucoup à tous ceux qui lirons ces quelques lignes... et je prie pour que vous sachiez que faire :) :)

Bonne journée à tous ! [file name=bugs.zip size=41562]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/bugs.zip[/file]
 

Pièces jointes

  • bugs.zip
    40.6 KB · Affichages: 30
  • bugs.zip
    40.6 KB · Affichages: 31
  • bugs.zip
    40.6 KB · Affichages: 34

_Thierry

XLDnaute Barbatruc
Repose en paix
Bonjour PsykoFab, le Forum

Pour ton UserForm3, c'est assez simple en fait, mais par contre pour ta ComboBox1 il faut impérativement virer dans la Fenêtre Propriété en mode Design l'adresse de colonne sur 'RowSource'

Et ensuite tu mets ce code dans le Private Module de ce UserForm3 :

Dim Plage As Range

Private Sub UserForm_Initialize()
Dim Cell As Range

   
With Sheets('Clients')
       
Set Plage = .Range(.Range('A2'), .Range('A500').End(xlUp))
   
End With

   
With Me.ComboBox1
       
For Each Cell In Plage
          .AddItem Cell
       
Next
   
End With


End Sub

Private Sub ComboBox1_Change()
Dim Cell As Range
Dim CTRL As Variant
Dim Col As Byte

       
For Each Cell In Plage
         
If Cell = Me.ComboBox1 Then
           
For Each CTRL In Array('prenom', 'adresse', 'cp', 'ville', 'tel', 'email')
                Col = Col + 1
                Me.Controls(CTRL) = Cell.Offset(0, Col)
           
Next
         
End If
       
Next
         
End Sub

Pour le Reste et ton UserForm4, c'est quoi au juste ce que tu souhaites obtenir car :

Private Sub UserForm_Click()
total = CDbl(a) + CDbl(b) + CDbl(c) + CDbl(d) + CDbl(e) + CDbl(f) + CDbl(g) + CDbl(h) + CDbl(i) + CDbl(j) + CDbl(k) + CDbl(l) + CDbl(m) + CDbl(n) + CDbl(o) + CDbl(p)

tva = CDbl(total) * 0.196
End Sub

Ne signifie rien du tout ? qu'elles sont ces variables 'a', 'b' etc ???

Bon je vais filer déjeuner alors bon appétit

Je reppasserai plus tard dans la journée
[ol]@+Thierry[/ol]
 
P

Psykofab

Guest
Merci pour ta réponse ultra rapide _Thierry !

Je vais tester de ce pas ton code :)

Pour ce qui est des variables elles représentent les petites cases de gauche du form (les prix en fait) et l'objectif est de les additionner pour faire le total. Total et TVA etant les deux cases du bas :)

Merci pour ton aide !
 

PascalXLD

XLDnaute Barbatruc
Modérateur
Bonjour

Pour reprendre la suite de Thierry c'est vrai que comme désignation les textbox nommés a b c d e c'est pas terrible

Ton erreur doit venir du fait que tu as un point et non une virgule quand tu tapes tes chiffres

dans ce cas là il faut utiliser à la place de cdbl(a) .... Val(a) ......

Par contre je ne voit pas l'intéret de placer ce calcul sur un click sur l'userform Tu aurais peut-être mieux fait de la placer sur l'exit des textbox ou avec un bouton mais bon ......


Bon courage
 

Discussions similaires

Statistiques des forums

Discussions
312 884
Messages
2 093 245
Membres
105 658
dernier inscrit
Mario Richard