Fonction de recherche

[Seb]

Bonjours au forum, je reviens vers vous pour une macro de recherche ou j'ai un peut de mal a construire.

Il s'agit d'un tableau de compte, je l'ai construit pour recevoir 10 comptes.
Je suis en train de faire un récapitulatif des transactions de compte à compte et la je galère car j'ai beaucoup de possibilité.

En bref dans ma feuille "AUTOMATIQUE" j'ai un listing,
La colonne "Ak" affiche "3" si c'est une transaction de compte à compte
La colonne "B" le compte emeteur
La colonne "AH" le compte cible
La colonne "AL" le montant

Comment faire pour afficher dans une listview (listview5) le listing des transactions sans doublons et sans faire tout apparaitre car je n'utilise pas tout les comptes ....

voila le debut de la macro:

'Macro de listview5
Dim cel As Range, x As Long, i As Byte, lv As Object
With Me.ListView5
.View = 3
.Gridlines = True
With .ColumnHeaders
.Add , , "COMPTE EMETEUR", 80
.Add , , "COMPTE CIBLE", 80, 2
.Add , , "TRANSACTION", 80, 2
End With
End With
With Sheets("AUTOMATIQUE")
derl = .Range("Ak65000").End(xlUp).Row
For Each cel In .Range("Ak2:Ak" & .Range("Ak65000").End(xlUp).Row)
Select Case cel
Case Is =3

et la c'est la catastrophe, j'ai essayer moultes possibilités et je savais pas qu'il existait autant d'erreur possible en vba ... ;-(

Je suis pas très fort en vba d’essais mais des fois je comprend rien ;-( snif
Merci encore

seb

 

[néné06]

Re : Fonction de recherche

Bonsoir Seb
Tu as ecrit
Case Is =3

Perso j'ai toujours écrit Case 3 etc....

Peut-être une première erreur ?

A+

 

[Seb]

Re : Fonction de recherche

Bonsoir néné06

Je voudrais dire: si "case" = 3 alors ..... car il peut y avoir la valeur 1 et 2 ou "" dans le cas ou la ligne est vide

Mais j'arrive pas a finir ma macro ...

 

[néné06]

Re : Fonction de recherche

RE,

Essayes ceci?

if cel >< "" then

Select Case cel
case 1
blabla...
Case 2
blablabla
....
Case 3

blabla.....

End select
endif

Cela te traitera la selection de cel

A+