Bug pour addition de plusieurs textbox

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

Cliquez pour agrandir...

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]

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 !

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