XL: visualisation de qqes colones

Re : XL: visualisation de qqes colones

Bonjour mbo3232,

Afin de réaliser une bonne synchronisation entre ListBox et TextBox, le plus simple et l'idéal est de mettre les noms des TextBox et les colonnes de la feuille correspondante en ordre croissant qui permettent un rapprochement immédiat.

La syntaxe est alors du type :

Private Sub ListBox1_Click()
Dim n as Byte
IndexList = ListBox1.ListIndex + 2
With Sheets("RENSEIGNEMENTS")
For k = 1 To 11
Me.Controls("Textbox" & k) = .Cells(IndexList, k+n)
Next k
End With
End Sub

En cas de difficultés, poster un extrait du projet.

Cordialement

Bernard

Re : XL: visualisation de qqes colones

Bonjour mbo3232, bienvenue sur XLD,

avec un fichier exemple, c'est mieux.

Edit: bonjour Bernard

Re : XL: visualisation de qqes colones

Merci pour ces réponses.

Cependant je n'arrive pas utiliser le code indiqué.😕

Alors en Pj le fichier de démo.

Merci de votre aide.

Bruno

Re : XL: visualisation de qqes colones

Re,

Tout d'abord, il faut placer le code de la listbox dans UserForm1 et non dans liste_article.
Ensuite, XL (2003 en tou cas) = 256 colonnes maxi donc:

Ca va pas le faire: Cells(Ligne, Colonne)

Ne sachant pas quelle colonne est affectuée à quel textbox, au piffe:

J'oubliai: si tu utilises une listbox, exploite là comme tel, c'est-à-dire ne pas réduire la hauteur de manière à ne voir qu'une seule valeur car le code ne répond pas à l'appui sur les flèches haut-bas mais à la sélection d'un élément dans la liste, donc agrandit là.

Re : XL: visualisation de qqes colones

Bonjour

Merci pour cela

j'ai également trouvé un exemple sur le site qui m'a aidé

et merci beaucoup de votre aide.

Bruno

*******************
Dim lig As Long # variable globale


Private Sub CheckBox1_Change()
Feuil1.Activate
' On Error Resume Next
Feuil1.Cells(lig - 1, 1) = CheckBox1.Value
End Sub

Private Sub CommandButton1_Click()
Unload UserForm1
End Sub

'Private Sub CheckBox1_Click()


'Cells(k, 3 + dep) = TextBox2
'ajouter les changes dans un onglet de suivi
'End Sub



Private Sub ListBox1_Click()
If Me.ListBox1.ListCount = 0 Then Exit Sub
nom = Me.ListBox1.List(Me.ListBox1.ListIndex)
TextBox1 = nom

On Error Resume Next
lig = Application.Match(nom, Feuil1.Range("B1:B65000"), 0) + 1

If Err <> 0 Then Err = 0: Me.ListBox1.Clear: Exit Sub

CheckBox1.Value = Feuil1.Cells(lig - 1, 1)
TextBox2 = Feuil1.Cells(lig - 1, 3)
TextBox3 = Feuil1.Cells(lig - 1, 4)
TextBox4 = Feuil1.Cells(lig - 1, 5)
TextBox5 = Feuil1.Cells(lig - 1, 6)
'Feuil1.Cells(lig - 1, 1) = CheckBox1.Value

End Sub

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode <> 13 Then Exit Sub
If Me.TextBox1 = "" Then Exit Sub
Me.ListBox1.Clear
With Feuil1.[B1:B5000]
Set c = .Find(TextBox1.Text, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
Me.ListBox1.AddItem c.Value
ListBox1.Visible = True: ok = True
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
On Error Resume Next
Me.ListBox1.Selected(0) = True
'ListBox1.Visible = True
Me.ListBox1.SetFocus
End Sub


*********************************

Re : XL: visualisation de qqes colones

bonjour
le fichier en PJ.

c'est très utile pour exploiter simplement des feuilles avec plusieurs dizaines de colonnes et lorsqu'on focalise sur quelques unes.

bon usage.

si le modérateur veut le mette en download pour la communauté.ok

Merci