Formule avec le resultat d'une listebox

salut à tous

Dj.run

Si j'ai bien compris tu click dans tas listbox le mois en question et il se passe quoi? tu ouvre une feuille? tu affiche des textbox? enfin????

voila un formule simple avec affichage dans des textbox.

Option Explicit

Dim NomLBindex As Integer
Dim LRecherche As Integer

Private Sub UserForm_Initialize()
Dim L As Integer
Dim Plage As String

L = Sheets("Database").Range("A65536").End(xlUp).Row
Plage = Sheets("Database").Range("A1:g" & L).Address
ListBox1.RowSource = "Database!" & Plage

End Sub

Private Sub ListBox1_Click()
NomLBindex = ListBox1.ListIndex + 1
TextBox1 = Sheets("Database").Range("A" & NomLBindex)
TextBox2 = Sheets("Database").Range("B" & NomLBindex)
TextBox3 = Sheets("Database").Range("C" & NomLBindex)
TextBox6 = Sheets("Database").Range("d" & NomLBindex)
TextBox7 = Sheets("Database").Range("e" & NomLBindex)
TextBox8 = Sheets("Database").Range("F" & NomLBindex)

End Sub
Private Sub CommandButton7_Click()
Unload Me
UserForm4.Hide
End Sub

si ça t'aide pour la suite?

@+

bien la bonne soirée à tous

merci denjo,

pour ton aide, apparament je n'ai pas été tres clair dans mes explications .

en fait, j'arrive à afficher la listebox avec les 12 mois janvier, fevrier, ..ect

par exemple je selectionne le mois : fevrier, et je voudrai en fermant mon usf par la touche valider, qu' excel retrouve le nom fevrier qui se trouve dans mon tableau excel :

col a col b col c col d
janvier février mars avril

et j'ai essayé avec la formule cell.find et ça marche pas .

ps ma listebox est nommée txtmois

Private Sub cmdvalider_Click()

Cells.Find(What:=txtmois.value, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
End Sub.

je vais étudier ton code pour voir si je peux m'inspirer de quelque chose et je vais continuer à chercher .

merci à toi pour ton aide.

dj.run