C
COQ
Guest
bonjour
j'ai un petit prob avec ce code!
Private Sub liste_profil_Change()
Dim type_profilé As String
type_profilé = liste_profil.Text
Sheets('Calcul').Cells(5, 2) = type_profilé
If type_profilé = Sheets('Calcul').Cells(10, 1) Then
LstProf.RowSource = 'Profilés!B187:B239'
End If
If type_profilé = Sheets('Calcul').Cells(11, 1) Then
LstProf.RowSource = 'Profilés!B248:B352'
End If
End Sub
il me permet de faire varier une plage d'entrée pour une liste....
a la suite de ce code j'ai
Private Sub ScrollBar1_Change()
xxx.Text = Sheets('Profilés').Cells(187 + ScrollBar1.Value, 2)
End Sub
qui permet de renvoyer la valeur choisi dans une cellule....
mon probleme est le suivant : je voudrais renvoyer effectivement cette valeur mais aussi tout un tas d'autre...donc j'ai penser renvoyer le numero ( 1.2.3.4.........) de la valeur pour ensuite faire une recherche avec la fonction RECHERCHE de excel!!
mais quel est le code pour renvoyer le numero de la valeur???????
merci d'avance
j'ai un petit prob avec ce code!
Private Sub liste_profil_Change()
Dim type_profilé As String
type_profilé = liste_profil.Text
Sheets('Calcul').Cells(5, 2) = type_profilé
If type_profilé = Sheets('Calcul').Cells(10, 1) Then
LstProf.RowSource = 'Profilés!B187:B239'
End If
If type_profilé = Sheets('Calcul').Cells(11, 1) Then
LstProf.RowSource = 'Profilés!B248:B352'
End If
End Sub
il me permet de faire varier une plage d'entrée pour une liste....
a la suite de ce code j'ai
Private Sub ScrollBar1_Change()
xxx.Text = Sheets('Profilés').Cells(187 + ScrollBar1.Value, 2)
End Sub
qui permet de renvoyer la valeur choisi dans une cellule....
mon probleme est le suivant : je voudrais renvoyer effectivement cette valeur mais aussi tout un tas d'autre...donc j'ai penser renvoyer le numero ( 1.2.3.4.........) de la valeur pour ensuite faire une recherche avec la fonction RECHERCHE de excel!!
mais quel est le code pour renvoyer le numero de la valeur???????
merci d'avance