Combobox extraire une partie cellule
Bonjour,
dans mon userform
j'ai la formule qui suit qui me permet de récupérer une valeur dans la cellule de la feuille que j'ai choisis en fonction de mes combobox en cascade.
Private Sub Combobox1_Click()
Me.TextBox1.Value = Sheets(Me.ComboBox2.Value).Cells(Me.ComboBox1.ListIndex + 3, 9)
Par contre dans la récupération de données qui se fait, j'ai dans ma cellule 2 valeurs qui se présentent de cette manière: 10% - 20%
j'aimerais obtenir uniquement les 10%, que dois-je faire? Bien sur je ne peux pas supprimer les 20% de la cellule.
....?????.
dans l'attente d'une solution!!
Merci
Nicolas
Bonjour
nicos3390 a écrit :dans mon userform
On aimerait le voir
nicos3390 a écrit :Par contre dans le copier coller qui se fait
Ah bon , j'ai du rater le code
nicos3390 a écrit :dans l'attente d'une solution!!
Pour moi cela serait dans l'attente de ton fichier
Bonjour
Modifies ta macro
Private Sub Combobox1_Click()
Me.TextBox1.Value = Split(Sheets(Me.ComboBox2.Value).Cells(Me.ComboBox1.ListIndex + 3, 9), "-")(0)
TextBox1 = Format(TextBox1, "0.00%")
TextBox4.Value = (Val(TextBox1.Value) / 100) * Val(Montantannuel.Value)Vérifies le résultat
Parfait, merci
donc pour obtenir la deuxième valeur de la cellule, je remplace le 0 par le 1.
comme ceci :
Me.TextBox1.Value = Split(Sheets(Me.ComboBox2.Value).Cells(Me.ComboBox1.ListIndex + 3, 9), "-")(1)
ok cela marche.
Ceci étant, je rencontre un problème avec cette formule, car je n'ai pas tout le temps 2 valeurs dans la cellule obtenue et donc mon UF se met en erreur.
comment faire ?
en effet, si je n'ai pas de valeurs alors je préfère que ça affiche 0.
merci en tout de votre aide.
Nicolas
Bonjour
Une solution simple
Modifies ta macro
Private Sub Combobox1_Click()
Me.TextBox1 = 0
On Error Resume Next
Me.TextBox1.Value = Split(Sheets(Me.ComboBox2.Value).Cells(Me.ComboBox1.ListIndex + 3, 9), "-")(1)
On Error GoTo 0
TextBox1 = Format(TextBox1, "0.00%")
TextBox4.Value = (Val(TextBox1.Value) / 100) * Val(Montantannuel.Value)Bonjour,
en effet, ta réponse m'a permis d'optimiser encore ma solution, en passant par une liste déroulante.
merci en tout cas de tes réponses,
j'avance bien grâce à celles-ci.
Nicolas