Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Prob recup info sur 2eme feuille

Prob recup info sur 2eme feuille

6 réponses
Avatar
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
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Ardus Petus
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" a écrit dans le message de
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


Avatar
Orion93
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" wrote in
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


Avatar
Orion93
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
Avatar
Ardus Petus
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" a écrit dans le message de
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


Avatar
Ardus Petus
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" a écrit dans le message de
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" a écrit dans le message de
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






Avatar
Orion93
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" wrote in
news::

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