Prob recup info sur 2eme feuille

Le
Orion93
Bonjour,

J'aurais besoin d'une aide pour réaliser une macro.

Je n'en ai jamais fait par manque de temps et bien que je comprenne le
raisonnement j'suis un peu dépassé.

Voici mon souci:

J'ai un fichier excel avec deux feuilles
Dans la feuille 1, 4 colonnes (nom, montant, date pret, date retour) le
nom pouvant revenir plusieurs fois. Et cet feuille étant incrémenté
quotidiennement
ex:
nom prix date date retour
toto 12 01/01/2006 11:00:51 08/01/2006 12:20:10
toto 23 01/01/2006 11:00:51 10/01/2006 12:00:00
toto 14 01/01/2006 11:00:51 23/02/2006 13:11:11
dede 23 01/01/2006 11:00:51 23/02/2006 13:11:11
dede 212 06/05/2004 13:56:00 06/03/2006 15:14:20
test 123 01/01/2006 11:00:51 08/01/2006 12:20:10

Dans la feuille 2, les 4 mêmes colonnes

Je voudrais récuperer le nom , la somme des montant, la date du 1er prêt
(1ere ligne du nom) et la date du dernier retour (dernier ligne du nom)
ex:
nom prix date date retour
toto 49 01/01/2006 11:00:51 23/02/2006 13:11:11
dede 235 01/01/2006 11:00:51 06/03/2006 15:14:20
test 123 01/01/2006 11:00:51 08/01/2006 12:20:10

Je vois le raisonnement mais pas comment faire la Macro

Merci pour toutes aides
Vos réponses
Trier par : date / pertinence
Ardus Petus
Le #3651851
Tu peux obtenir les valeurs souhaitées avec Données>Sous-totaux, mais la
présentation ne sera pas exactement la même.

Cordialement,
--
AP

"Orion93" news:
Bonjour,

J'aurais besoin d'une aide pour réaliser une macro.

Je n'en ai jamais fait par manque de temps et bien que je comprenne le
raisonnement j'suis un peu dépassé.

Voici mon souci:

J'ai un fichier excel avec deux feuilles
Dans la feuille 1, 4 colonnes (nom, montant, date pret, date retour) le
nom pouvant revenir plusieurs fois. Et cet feuille étant incrémenté
quotidiennement
ex:
nom prix date date retour
toto 12 01/01/2006 11:00:51 08/01/2006 12:20:10
toto 23 01/01/2006 11:00:51 10/01/2006 12:00:00
toto 14 01/01/2006 11:00:51 23/02/2006 13:11:11
dede 23 01/01/2006 11:00:51 23/02/2006 13:11:11
dede 212 06/05/2004 13:56:00 06/03/2006 15:14:20
test 123 01/01/2006 11:00:51 08/01/2006 12:20:10

Dans la feuille 2, les 4 mêmes colonnes

Je voudrais récuperer le nom , la somme des montant, la date du 1er prêt
(1ere ligne du nom) et la date du dernier retour (dernier ligne du nom)
ex:
nom prix date date retour
toto 49 01/01/2006 11:00:51 23/02/2006 13:11:11
dede 235 01/01/2006 11:00:51 06/03/2006 15:14:20
test 123 01/01/2006 11:00:51 08/01/2006 12:20:10

Je vois le raisonnement mais pas comment faire la Macro

Merci pour toutes aides


Orion93
Le #3651811
Effectivement j'aimerais ce genre d'info mais dans une autre feuille car
ma feuille1 fait deja 300lignes en 2mois.

En faites, cet feuille2 page me servira de stat

Merci

"Ardus Petus" news::

Tu peux obtenir les valeurs souhaitées avec Données>Sous-totaux, mais
la présentation ne sera pas exactement la même.

Cordialement,
--
AP


Orion93
Le #3651771
Après recherche j'dois pouvoir le faire aussi via un tableau croisé mais
j'arrive à récuperer le nom et la somme des prix mais pas les dates alors
si qq'un à une idée en passant par là...

Sinon faudra une macro...

Merci
Ardus Petus
Le #3651751
J'ai pondu une macro (Sommaire) qui fait ce que tu cherches, à part la mise
en forme de la feuille Sommaire.

Cordialement,
--
AP

'---------------------------------------------
Sub Sommaire()
Set rngSrc = Worksheets("Journal").Range("A2")
Set rngDest = Worksheets("Sommaire").Range("A2")
Do While rngSrc.Value <> ""
If rngSrc.Value <> rngSrc.Offset(-1, 0).Value Then
If strNom <> "" Then Generate
strNom = rngSrc.Value
lMontant = 0
dtDeb = rngSrc.Offset(0, 2).Value
End If
lMontant = lMontant + rngSrc.Offset(0, 1)
dtRet = rngSrc.Offset(0, 3)
Set rngSrc = rngSrc.Offset(1, 0)
Loop
Generate
End Sub

Sub Generate()
With rngDest
.Value = strNom
.Offset(0, 1) = lMontant
.Offset(0, 2) = dtDeb
.Offset(0, 3) = dtRet
End With
Set rngDest = rngDest.Offset(1, 0)
End Sub
'-----------------------------------------------------------
"Orion93" news:
Bonjour,

J'aurais besoin d'une aide pour réaliser une macro.

Je n'en ai jamais fait par manque de temps et bien que je comprenne le
raisonnement j'suis un peu dépassé.

Voici mon souci:

J'ai un fichier excel avec deux feuilles
Dans la feuille 1, 4 colonnes (nom, montant, date pret, date retour) le
nom pouvant revenir plusieurs fois. Et cet feuille étant incrémenté
quotidiennement
ex:
nom prix date date retour
toto 12 01/01/2006 11:00:51 08/01/2006 12:20:10
toto 23 01/01/2006 11:00:51 10/01/2006 12:00:00
toto 14 01/01/2006 11:00:51 23/02/2006 13:11:11
dede 23 01/01/2006 11:00:51 23/02/2006 13:11:11
dede 212 06/05/2004 13:56:00 06/03/2006 15:14:20
test 123 01/01/2006 11:00:51 08/01/2006 12:20:10

Dans la feuille 2, les 4 mêmes colonnes

Je voudrais récuperer le nom , la somme des montant, la date du 1er prêt
(1ere ligne du nom) et la date du dernier retour (dernier ligne du nom)
ex:
nom prix date date retour
toto 49 01/01/2006 11:00:51 23/02/2006 13:11:11
dede 235 01/01/2006 11:00:51 06/03/2006 15:14:20
test 123 01/01/2006 11:00:51 08/01/2006 12:20:10

Je vois le raisonnement mais pas comment faire la Macro

Merci pour toutes aides


Ardus Petus
Le #3651721
Oooops: j'avais oublié de copier les variables globales
'----------------------------------
Dim strNom As String
Dim lMontant As Long
Dim dtDeb As Double
Dim dtRet As Double
Dim rngSrc As Range
Dim rngDest As Range

Sub Sommaire()
Set rngSrc = Worksheets("Journal").Range("A2")
Set rngDest = Worksheets("Sommaire").Range("A2")
Do While rngSrc.Value <> ""
If rngSrc.Value <> rngSrc.Offset(-1, 0).Value Then
If strNom <> "" Then Generate
strNom = rngSrc.Value
lMontant = 0
dtDeb = rngSrc.Offset(0, 2).Value
End If
lMontant = lMontant + rngSrc.Offset(0, 1)
dtRet = rngSrc.Offset(0, 3)
Set rngSrc = rngSrc.Offset(1, 0)
Loop
Generate
End Sub

Sub Generate()
With rngDest
.Value = strNom
.Offset(0, 1) = lMontant
.Offset(0, 2) = dtDeb
.Offset(0, 3) = dtRet
End With
Set rngDest = rngDest.Offset(1, 0)
End Sub
'-------------------------------------------------
"Ardus Petus" news:
J'ai pondu une macro (Sommaire) qui fait ce que tu cherches, à part la
mise

en forme de la feuille Sommaire.

Cordialement,
--
AP

'---------------------------------------------
Sub Sommaire()
Set rngSrc = Worksheets("Journal").Range("A2")
Set rngDest = Worksheets("Sommaire").Range("A2")
Do While rngSrc.Value <> ""
If rngSrc.Value <> rngSrc.Offset(-1, 0).Value Then
If strNom <> "" Then Generate
strNom = rngSrc.Value
lMontant = 0
dtDeb = rngSrc.Offset(0, 2).Value
End If
lMontant = lMontant + rngSrc.Offset(0, 1)
dtRet = rngSrc.Offset(0, 3)
Set rngSrc = rngSrc.Offset(1, 0)
Loop
Generate
End Sub

Sub Generate()
With rngDest
.Value = strNom
.Offset(0, 1) = lMontant
.Offset(0, 2) = dtDeb
.Offset(0, 3) = dtRet
End With
Set rngDest = rngDest.Offset(1, 0)
End Sub
'-----------------------------------------------------------
"Orion93" news:
Bonjour,

J'aurais besoin d'une aide pour réaliser une macro.

Je n'en ai jamais fait par manque de temps et bien que je comprenne le
raisonnement j'suis un peu dépassé.

Voici mon souci:

J'ai un fichier excel avec deux feuilles
Dans la feuille 1, 4 colonnes (nom, montant, date pret, date retour) le
nom pouvant revenir plusieurs fois. Et cet feuille étant incrémenté
quotidiennement
ex:
nom prix date date retour
toto 12 01/01/2006 11:00:51 08/01/2006 12:20:10
toto 23 01/01/2006 11:00:51 10/01/2006 12:00:00
toto 14 01/01/2006 11:00:51 23/02/2006 13:11:11
dede 23 01/01/2006 11:00:51 23/02/2006 13:11:11
dede 212 06/05/2004 13:56:00 06/03/2006 15:14:20
test 123 01/01/2006 11:00:51 08/01/2006 12:20:10

Dans la feuille 2, les 4 mêmes colonnes

Je voudrais récuperer le nom , la somme des montant, la date du 1er prêt
(1ere ligne du nom) et la date du dernier retour (dernier ligne du nom)
ex:
nom prix date date retour
toto 49 01/01/2006 11:00:51 23/02/2006 13:11:11
dede 235 01/01/2006 11:00:51 06/03/2006 15:14:20
test 123 01/01/2006 11:00:51 08/01/2006 12:20:10

Je vois le raisonnement mais pas comment faire la Macro

Merci pour toutes aides






Orion93
Le #3651601
T super je ne sais pas quoi te dire à part merci!

Ca m'aurais pris je pense au moins 10j le temps de
comprendre et là ça fait exactement ce que je veux

Merci beaucoup

;-)

Sop

"Ardus Petus" news::

Oooops: j'avais oublié de copier les variables globales


Publicité
Poster une réponse
Anonyme