Discussion :

[jemigo]

J'ai créé une fonction afin de faire un calcul.

Lorsque je choisis une valeur dans une comboBox appelé "remise", je récupère la valeur associée dans une feuille Excel et je la stocke dans une variable de type Variant.
Cependant ma variable est toujours vide.
Par contre, le début du code fonctionne, Je peux stocker cette valeur dans une TextBox de type:

Code :

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

  Me.TextBox12 = .Cells(Nom.Row, 2)

Cependant,

Code :

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

total = Cells(Nom.Row, 2).Value

ne fonctionne pas. D'ou ma question, comment dois-je ajuster mon code pour insérer cette valeur dans ma variable "total" et non pas dans un textBox.

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
 
Private Sub Calculer_prixfinalHT()
 
Dim total As Variant
 
 
    If Not ((TextBox7.Text = "") Or (quantite.Text = "") Or (remise.Text = "")) Then
        With ThisWorkbook.Sheets("BaseTarifaire")
        For Each Nom In .Range("A9:A" & .[A65000].End(xlUp).Row)
            If CStr(Nom) = CStr(Me.remise.Value) Then
               total = Cells(Nom.Row, 2).Value
             End If
        Next
        End With
    End If
 
End Sub

[BENNASR]

Bonjour
De première vue il y a un point qui manque devant cells
Dans un bloc with il faut toujours mettre un point devant range ou cells si non le with n'a pas de sens surtout si tu appelles votre procédure depuis une autre feuille

[jemigo]

Erreur de frappe. j'ai bien mis un point.
Cela ne fonctionne pas. Variable "total" est toujours vide.

Pour l'instant la seule façon que j'ai trouvé c'est de faire un affichage dans un textbox et je cache la textbox dans ma userform. Mais c'est vraiment pas propre et optimisé.

Il y a qqch qui m'échappe.