Formule avec le resultat d'une listebox

[dj.run]

bonjour à toutes et à tous surle forum,

tout d'abort un grand merci à tous car grace à vous mon projet est presque terminé . et en plus le partage de vos connaissances me permet 'apprendre tous les jour . ce site est vraiment super et cela grace à vous tous . encore Bravo.

une petite dernière si ce n'est pas trop abuser . (lol)

je rencontre le probleme suivant :

dans un usf j'ai une listebox où les 12 mois de l'année sont affichés .
on en choisit un et (c'est là que ça marche plus) je voudrai rechercher la valeur du mois choisit (janvier,février,...) dans mon tableau excel .

j'ai essayé avec :
Private Sub CommandButton1_Click()
Sheets("CPTE").Activate
Cells.Find(What:="txtmois.Value", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Activate
End Sub

et ça marche pas .

quelqu'un aurait il une solution à me proposer ?

merci d'avance

dj.run

 

[denjo]

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

 

[dj.run]

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