selectionner des cellules non adjacente

[jammy17]

bonjour au forum et a tous les membres!
me revoila....depuis le temp.
je bloque sur un probleme et je suis obligé de m'en remettre à vous car je ne peu plus avancer dans mon projet:

je souhaite faire apparaître dans une listbox chaque element figurant sur la page de mon fichier joint par la methode suivante

set plage= range('B1:B100')
for each cel in plage
if cel.offset(0,0).numberformat='m/d/yyyy'
ListBox1.AddItem cel.Value 'date
ListBox1.Column(1, i) = cel.Offset(0, 1).Value 'hippo
ListBox1.Column(2, i) = cel.Offset(0, 2).Value 'corde
ListBox1.Column(3, i) = cel.Offset(0, 3).Value 'poids
ListBox1.Column(4, i) = cel.Offset(0, 4).Value 'place

j = j + 1 'redéfinit la variable i
End If
Next cel
MAIS JE VOUDRAIS NOTAMMENT RAJOUTER LA DISTANCE CORRESPONDANT A CHAQUE DATE
LE NOM DU JOCKEY, L'ETAT DU TERRAIN ET AINSI DE SUITE
LE PROBLEME C'EST QUE CES CASES NE SE TROUVENT
PAS SUR LA MEME LIGNE COMMENT FAIRE?

d'avance merci à vous!!! [file name=essai_20060504214957.zip size=16958]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/essai_20060504214957.zip[/file]

 

[Gael]

Bonsoir Jammy,

J'ai fait quelques modifs sur ton exemple que je t'envoie ci-joint.

@+

Gael [file name=Courses_V1.zip size=14323]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Courses_V1.zip[/file]

 

[jammy17]

bonjour gael, bonjour le forum

ah...........que de bonheur ce forum!
merci beaucoup pour ton aide gael, c'est exactement ce que j'avais besoin....
maintenant, a mon tour d'aider les surfer d'excel download

bonne journee a tous