listbox

[Pensinf4204]

Bonjour,
J'ai une listbox avec des infos je voudrais via un bouton lorsque je clique dessus que la cellule contenant les infos de la listbox soit sélectionner :EX listbox 1,2,3,5,8,11 lorsque je clique sur 3 la cellule contenant 3 soit active
Merci d'avance

 

[CHALET53]

Re : listbox

Bonjour,

Sans un fichier explicatif, difficile de traiter le problème : elle est où la cellule ?

a+

 

[CPk]

Re : listbox

Bonjour pensinf4204, selon l'origine du contenu de la listbox le code sera différent. Vous pouvez nous montrer votre fichier ?

Cordialement

 

[jp14]

Re : listbox

Bonjour

Ci dessous le code modifié pour répondre à la question

Option Base 1 ' les tableaux commencent à la valeur 1
Option Explicit
 Const entrees_decimales_permises = ".,0123456789" & vbCr & vbBack
Const Point = "."
Const Virgule = ","
Dim Plage As Range, Cell As Range
Dim Recherche As String, Adresse As String
Dim LIGNE As Variant
Dim c As Object
Dim nom2 As Variant, fichier As Variant, nom3 As Variant
Dim Tabtemp As Variant, Tabtemp1 As Variant   'tableau temporaire
Public dataadresse As New Collection

' selection de la cellule qui contient la donnée

Private Sub ListBox1_Click() 
Sheets("Feuil1").Range("a" & CLng(ListBox1.List(ListBox1.ListIndex, (ListBox1.ColumnCount - 1)))).Activate

End Sub

Private Sub CommandButton2_Click()
          Unload Me  'ici on efface le userform
End Sub

' ajout d'une deuxième colonne dans la listebox, colonne qui contient le numèro de ligne
Paramètre à modifier dans la listbox
.ColumnCount = 2
.ColumnWidths = "228,0" 0 pour cacher le numéro, ou une valeur pour l'afficher

Private Sub TextBox1_Change()
  Dim It As Integer
  'Mystring=listbox1
Dim MyString As String
   Me.ListBox1.Clear 'on efface la listbox
   
   Me.Controls("Label11") = ""
   
  With Me.ListBox1
       MyString = Me.TextBox1.Text 'on affecte à la variable Mystring la valeur du textbox
     If MyString = "" Then Exit Sub  'si textbox vide on quitte

  For It = LBound(Tabtemp, 1) To UBound(Tabtemp, 1) 'pour chaque lignes du tableau temporaire
       If Left(UCase(Trim(Tabtemp(It, 1))), Len(MyString)) = UCase(MyString) Then 'si les  lettres _
       à droite du mot du tableau sont les mêmes que Mystring
          .AddItem Tabtemp(It, 1) 'on ajoute ce mot à la listbox
          .List(.ListCount - 1, .ColumnCount - 1) = It + 3
       End If
  Next
End With
End Sub

Private Sub UserForm_Initialize()
    Tabtemp = Range("a4:a" & Range("a65536").End(xlUp).Row) 'on remplit un tableau temporaire
End Sub

' code pour récupérer le numéro de ligne en fonction de la valeur sélectionnée dans la listbox
'lig = CLng(ListBox1.List(ListBox1.ListIndex, (ListBox1.ColumnCount - 1)))



Bonne journée

Jp

 

[Pensinf4204]

Re : listbox

Un Grand MERCI A J14
sa fonctionne a merveille Bravo🙄