petit souci sur combobox....

[nada]

bonjour,
je cherche deseperemment a definir une variable qui aurai pour valeur : "cellule selectionnée par une combobox";"+5 colonne")

ducoup, si je selectionne avec la combobox l'equivalent de "a1", j'aimerai que ma variable soit la valeur "f1"

j'ai bien essayé avec:

Dim I As Integer
I = ComboBox4.ListIndex+5 (mais là, le +5 correspond aux lignes, lol)

Si quelqu'un à une idée je suis preneur.
merci

 

[JYLL]

Re : petit souci sur combobox....

Bonsoir Nada et le Forum,

Avec cette instruction tu devrais trouver ta valeur :

I=cells(ComboBox4.ListIndex,6 )

Bon test.

 

[olive2b]

Re : petit souci sur combobox....

Salut,
Essaies çà :

I = ComboBox4.ListIndex
I=I+5

@+

 

[nada]

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

 

[nada]

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.

 

[ERIC S]

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

 

[nada]

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