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

[eric4459]

Bonjour,
Pour être rapide , tu pourrais essayer :

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
Dim R As Range
Dim S As Range
Dim C As Range
'---
Set R = Sheets("Feuil5").[a4,c4,e4,g4,i4,k4,m4,o4,q4,s4,u4,w4,y4].CurrentRegion
Set S = Sheets("Feuil5").[a44,c44,e44,g44,i44,k44,m44,o45,q44,s44,u44,w44,y44].CurrentRegion
For Each C In R
  If C = ListBox1.Value Then
    TextBox1.Text = C.Offset(0, 1)
    Exit For
  End If
Next C
 
For Each C In S
  If C = ListBox1.Value Then
    TextBox1.Text = C.Offset(0, 1)
    Exit For
  End If
Next C

On pourrait développer un autre code mais cela demanderai un peu plus de temps
Eric

[MatthieuT42]

Bonjour,

J'avais déjà essayé cette solution, mais je me suis mal exprimé.

dans ce code

Code :

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

Set R = Sheets("Feuil5").[a4,c4,e4,g4,i4,k4,m4,o4,q4,s4,u4,w4,y4].CurrentRegion

Je ne comprend pas mon 4 après mes lettres.
Mes données démare ligne 8!!!
Si je met a8 rien ne s'affiche
si je met a4, mes données S'affiche

j'avais essayé ta méthode pour me simplifier la vie mais je possède 1600 données pour environ 300 bases de données répartit à chaque ligne donc ça risque de me prendre beaucoup de temps :/

Encore merci pour ta réponse.

[eric4459]

Matthieu,
Et en faisant ceci ?

Code :

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

1
2
3
4
5
6
7
Dim Rng1 as Range
Dim Page as Worksheet
Set Page= ThisWorkbook.Sheets("Nom_de_ta_Feuille")
Set Rng1= Page.Range("A8")
Set R= Range(Rng1.Offset(0,0), Rng1.Offset(0,0).End(xlDown).End(xlToRight)
For Each C in R
code....

et tu pourrais déclarer un autre range

Code :

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

1
2
Set Rng2= Page.Range("A45")
Set S= Range(Rng2.Offset(0,0), Rng2.Offset(0,0).End(xlDown).End(xlToRight)

Eric

[MatthieuT42]

Eric ! ça fonctionne parfaitement !

un grand merci ! passe un bon week end et à bientot