afficher dans une listbox une colonne de cellule selon la celule trouvée avec find

[adjovi7]

Bonjour,
j'ai un gros souci d'amateur vba je m'explique j'ai des colonnes qui correspond a des mois et des lignes a des actions courantes j'aimerais avec la méthode ListBox1.AddItem et Find afficher le nombre d'action selon le mois rechercher avec un textbox mon souci j'arrive a afficher le mois mais pas la plage de cellule just en dessous qui correspond au nombre d'action ci joint mon code
Quelqu'un peut-il m'aider SVP? Merci.

Private Sub CmdChercher_Click()
Dim fs As Worksheet
Dim Plage As Range, Cell As Range
Dim Recherche As String, Adresse As String
Dim Ligne As Variant
Dim C As Object
Dim i As Byte

ListBox1.Clear
Set fs = Sheets("SUIVI 2012")
Recherche = TextBox1
If Recherche = "" Then Exit Sub

For Each WS In Worksheets
Ligne = Worksheets(fs.Name).Range("" & "B" & "65536").End(xlUp).Row

Set Plage = Worksheets(fs.Name).Range("" & "B" & "1:" & "D" & Ligne)
With Plage
Set C = .Find(Recherche)
If Not C Is Nothing Then
Adresse = C.Address
i = 0
Do
ListBox1.AddItem "Ligne" & i
ListBox1.List(i, 0) = C.Value
ListBox1.List(i, 1) = C.Offset(0, 1).Value
ListBox1.List(i, 2) = C.Offset(0, 2).Value
ListBox1.List(i, 3) = C.Offset(0, 3).Value
ListBox1.List(i, 4) = C.Offset(0, 4).Value
i = i + 1
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> Adresse
ListBox1.ColumnWidths = "2cm" & ";" & "2cm" & ";" & "2cm"

End If
End With
Next WS
End Sub

 

[phlaurent55]

Re : afficher dans une listbox une colonne de cellule selon la celule trouvée avec fi

Bonjour adjovi7, et bienvenue sur le forum

voir fichier joint

à+
Philippe

 

[adjovi7]

Re : afficher dans une listbox une colonne de cellule selon la celule trouvée avec fi

Bonjour,phlaurent55 pour votre réponse j'ai vu votre fichier mais désolé car le programme correspond pas a mon utilisation merci

 

[Fo_rum]

Re : afficher dans une listbox une colonne de cellule selon la celule trouvée avec fi

Bonsoir,

Comment s'y retrouver ? Ton code fait intervenir plusieurs feuilles.
Est-ce le cas ? Si oui, il faudra adapter celui que je donne pour 1 onglet

 

[adjovi7]

Re : afficher dans une listbox une colonne de cellule selon la celule trouvée avec fi

Bonjour Fo_rum merci beaucoup ça correspond vraiment a ce que je recherche et aussi pour les explications sur la feuille excel je débute dans le vba et j’espère progressé grâce a ce forum.

à+
adjovi