Discussion :

[MatthieuT42]

Bonjour le Forum

Je possède des données rentrée sous cette forme :


dans la listbox apparait les éléments des colonnes impaires (A,C,E,G.....)
lors de la selection d'un des éléments j'affiche la case qui lui corespond à sa droite (ex : Selection de A4, textbox1 affiche : B4)

je possède ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub ListBox1_Click()
 
Label1.Visible = True
Label1.Caption = "emplacement"
TextBox1.Visible = True
 
Dim R As Range
Dim C As Range
'---
Set R = Sheets("Feuil5").[a4,c4,e4,g4,i4,k4,m4,o4,q4,s4,u4,w4,y4].CurrentRegion
For Each C In R
  If C = ListBox1.Value Then
    TextBox1.Text = C.Offset(0, 1)
    Exit For
  End If
Next C
 
 
End Sub

Le problème de ce code c'est qu'il ne fonctionne que pour la première ligne de donnée (A8 à A41)
Comment faire pour qu'il fonctionne sur A45:A61 ; A67:A75; A80:A90 .... ou tout simplement qu'il prenne en compte toute la colonne "a"
(Je ferai la même chose pour c,e,g,i,k....)

Merci de votre attention*

Cordialement