Afficher le choix d'une listbox

Bonjour,

Je suis bloqué sur mon fichier, je m'explique :

J'aimerai une fois que la date est trouvée grâce au super champ de recherche que j'ai trouvé sur ce site et que je clique dessus dans la ListBox la colonne s'affiche directement en scrollant automatiquement en faite.

Voici le fichier dont je parle

23recapitulatif.zip (25.66 Ko)

Up

Bonjour

Enlevé screenupdating

a la suite de color=43

cells(ligne,colonne).activate

Ça ne fonctionne pas, en faite ce que je souhaiterai c'est : Dès que je clique sur la date voulue dans la listbox un scroll automatique m'affiche directement la date souhaitée sur la colonne G (A côté des volets figés).

Merci.

Up

Bonjour

A tester

Option Compare Text

Private Sub TextBox1_Change()
Dim Cl As Long

  Application.ScreenUpdating = False

  Range("G8:GH8").Interior.ColorIndex = 2
  ListBox1.Clear
  If TextBox1 <> "" Then
    For ligne = 8 To 8
      For colonne = 7 To 250
        If Cells(ligne, colonne) Like "*" & TextBox1 & "*" Then
          Cells(ligne, colonne).Interior.ColorIndex = 43
          Application.Goto Cells(ligne, colonne), Scroll:=True
          ActiveWindow.SmallScroll Down:=-7
          ListBox1.AddItem Cells(ligne, colonne)
        End If
      Next
    Next
  End If
End Sub

C'est ça ! Super merci beaucoup.

Du coup la listbox est caduc mais c'est pas grave

Rechercher des sujets similaires à "afficher choix listbox"