petit souci sur combobox....

JYLL

Nous a quitté

Repose en paix

• 27 Juin 2007

• #2

Re : petit souci sur combobox....

Bonsoir Nada et le Forum,

Avec cette instruction tu devrais trouver ta valeur :

Code:

I=cells(ComboBox4.ListIndex,6 )

Bon test.

 

Vote positif 0 Vote négatif

O

olive2b

Guest

• 27 Juin 2007

• #3

Re : petit souci sur combobox....

Salut,
Essaies çà :

I = ComboBox4.ListIndex
I=I+5

@+

 

Vote positif 0 Vote négatif

N

nada

Guest

• 27 Juin 2007

• #4

Re : petit souci sur combobox....

hello,
avec le code de JYLL, ça ne fonctionne pas (disons que je ne doit pas l'utiliser comme il faut).

avec le code d'olive2b, ça fonctionne mais lorsque je change la selection de la combobox je reste sur la meme ligne 🙁

voila le code que j'utilise :

Private Sub CommandButton6_Click()

Dim I As Integer
Dim nb As Single
Dim vol As Single

If TextBox3.Text = "" Then
MsgBox ("rentrer un nombre ")
Exit Sub
End If

I = ComboBox4.ListIndex
I = I + 5

nb = TextBox3.Text

vol = Feuil6.Cells(I, 9)
Feuil6.Cells(I, 9) = vol - nb

End Sub

merci encore

 

Vote positif 0 Vote négatif

N

nada

Guest

• 27 Juin 2007

• #5

Re : petit souci sur combobox....

en fait j'ai l'impression que

I = ComboBox4.ListIndex+5

et

I = ComboBox4.ListIndex
I=I+5

me donne le meme resultat
Les lignes de mon tableau commence a la ligne 5 et les modif ne se font que sur cette ligne quelque soit la selection de ma combobox.

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 27 Juin 2007

• #6

Re : petit souci sur combobox....

Bonsoir

Sheets("feuil1").Cells(10, 1).Value = Sheets("feuil1").Cells(ComboBox1.ListIndex + 1, 6).Value

stocke en A10 le résultat (colonne F=6)
listindex commence à 0 et non 1

 

Vote positif 0 Vote négatif

N

nada

Guest

• 28 Juin 2007

• #7

Re : petit souci sur combobox....

merci encore pour vos reponse, mais je n'est pas reussi à adapter ça comme je voulais, ducoup aprés pas mal de recherche et quelque heures à galérer, ça donne ça (pour ceux que ça pourrai intéresser :

Private Sub CommandButton6_Click()

Dim c As Range
Dim I As Single
Dim L As Single
Dim nb As Single

If TextBox3.Text = "" Then
MsgBox ("il faudrait rentrer un nombre ...")
Exit Sub
End If

Set c = Range("D1😀" & Range("D65536").End(xlUp).Row).Find(ComboBox4.Value)
If Not c Is Nothing Then

L = c.Offset(0, 5).Select
I = c.Offset(0, 5).Value

nb = TextBox3.Text

Selection = I - nb
End If

End Sub

 

Vote positif 0 Vote négatif