Extraction de donnée

[NeluS]

Bjr a tous,
J ai un petit souci pour extraire des données d un tableau de communication telephonique. (Copropriété)
J ai donc cette macro qui fonctionne tres bien et me sert de verification des "lots" ds les n°.

Private Sub CommandButton5_Click()
Dim NOMS As Range, REFS As Range
For Each NOMS In Range("D24000")
For Each REFS In Range("A2:A50")
If NOMS = REFS Then
Range(NOMS.Address, NOMS.Offset(0, 5).Address).Interior.ColorIndex = 6
Exit For
End If
Next
Next
End Sub

Ce que je voudrais (car apres 5000 n° ca devient lourd a faire a la main ), c est une macro qui puisse m extraire les sommes/temps de com. (colonne H et I) par rapport a cette meme colonne reference notée REFS.

Voila, j'espere que c est a peut pret clair et vous remercie par avance pour vos lumieres
Salutations
++

 

[david]

sans macros as tu essaye les fonctions somme.si avec des butées de date ?
juste une idée
G.David

 

[NeluS]

Slt,
Merci pour ton idee mais je connais pas bien Exel. En revanche je ne vois pas comment sans maccro, je peux extraire tel ou tel n° et les coller ds une autre colonne. Remarque ca existe surement ^^.
Donc si tu veux devellopper ton idée, je suis tout ouie

Merci de ta reponse en tout les cas.
++