Discussion :

[nicolas59200]

Bonjour à tous,

J'ai créé un petit programme qui permets de calculer l'IMC d'une personne en VBA en affichant un usf. Jusque là aucun soucis.

Cependant, j'aimerai rajouter une formule qui : Rechercherai la même valeur dans la colonne A à partir du textbox1 (taille) et rechercherai la valeur du textbox 2 (poids) sur la même ligne pour afficher la valeur de la cellule b1 ou d1 ou f1 etc .. selon la valeurs comprise entre b3 et c3 par exemple de ma valeur de ma textbox 2 et l'afficherai dans ma msgbox.


Ce qui ferait par exemple sur le msgbox Imc = 50, refus (dans mon usf, "IMC = 50" est déjà incrémenté)

J'ai commencé à remplir les deux lignes en exemple pour commencer à réfléchir à une piste de formule vba ou excel mais là le cale...

En espérant avoir été clair, mais c'est un peu difficile d'expliquer cela par écrit...

Merci d'avance pour votre aide !

J'ai joint le fichier. imc.xlsm

[Theze]

Bonjour,

Je ne suis pas sûr de bien comprendre mais voilà le code ci-dessous qui retourne la valeur de la ligne 1 par rapport à la taille et au poids :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
Private Sub CommandButton1_Click()
Dim var As String
 
 
 
MsgBox "imc =" & Chr(10) & Val(TextBox2 / (TextBox1 / 100) ^ 2) & Range("w1")
 
MsgBox IMC(Worksheets("Feuil1"))
 
End Sub
 
Function IMC(Fe As Worksheet) As String
 
    Dim Plage As Range
    Dim Cel As Range
    Dim Lig As Long
 
    With Fe: Set Plage = .Range(.Cells(3, 1), .Cells(.Rows.Count, 1).End(xlUp)): End With
 
    Set Cel = Plage.Find(Int(TextBox1.Text), , xlValues, xlWhole)
 
    If Not Cel Is Nothing Then
 
        Lig = Cel.Row
        With Fe: Set Plage = .Range(.Cells(Lig, 2), .Cells(Lig, .Columns.Count).End(xlToLeft)): End With
 
    End If
 
    Set Cel = Plage.Find(Int(TextBox2.Text), , xlValues, xlWhole)
 
    If Not Cel Is Nothing Then
 
        IMC = Fe.Cells(1, IIf(Fe.Cells(1, Cel.Column).Value = "", Cel.Column - 1, Cel.Column)).Value
 
     End If
 
End Function

[nicolas59200]

Merci, c'est à peu près ça que je voulais, cependant quand je tape une valeur qui est différente de 21 et de 30 mais comprise entre ces chiffres, je n'ai pas le résultat (refus ...). Comment peut-on faire pour incrémenter cela ?