utilser un code VBa sur plusieurs lignes

Version imprimable

1 pièce(s) jointe(s)

Bonjour le Forum

Je possède des données rentrée sous cette forme :
Pièce jointe 180965

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:

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

Bonjour,
Pour être rapide , tu pourrais essayer :

Code:

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

18/06/2015, 15h39
MatthieuT42

Bonjour,

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

dans ce code

Code:

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.

Matthieu,
Et en faisant ceci ?

Code:

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:

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

Eric

19/06/2015, 06h54
MatthieuT42

Eric ! ça fonctionne parfaitement !

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