intégrer une multiplication dans un userform

Version imprimable

13/01/2011, 21h52
Faradeorn

intégrer une multiplication dans un userform

Cette question est une suite d'une question à laquelle on a déjà répondu:

http://www.developpez.net/forums/d10...tbox-userform/

Si l'on rajoute une colonne coefficient au tableau est-il possible de faire apparaitre dans une quatrième textbox la valeur du coefficient multiplié par la note?

J'ai essayé d'intégrer une fonction multiplication au code qui est proposé dans la discussion ci-dessus (cf lien) mais sans succès.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub UserForm_Initialize()
Dim MaxPt As Byte
Dim c As Range
 
With Sheets("Feuil1")
'le nombre max de la colonne C
    MaxPt = Application.Max(.Range("C:C"))
'cherche en colonne C ce nombre max, la variable c correspond à La première cellule comportant le max points
    Set c = .Range("C:C").Find(MaxPt, lookat:=xlWhole)
'récupère le nom à partir de la colonne A à la ligne correspondant au max points dans TextBox1
    Me.TextBox1.Value = .Range("A" & c.Row).Value
'récupère le prénom à partir de la colonne B à la ligne correspondant au max points dans TextBox2
    Me.TextBox2.Value = .Range("B" & c.Row).Value
'en TextBox3, le max points
    Me.TextBox3.Value = MaxPt
'coefficient en colonne D
    Me.textbox4.Value = .Range("D" & c.Row) * MaxPt
'libère la variable range c
    Set c = Nothing
End With
End Sub

14/01/2011, 00h22
Faradeorn

Merci beaucoup, bonne nuit

Faradeorn