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
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
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
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" <orion93@club-internet.fr> a écrit dans le message de
news:Xns978A6D1DB8BD7orion93clubinternetf@212.27.42.203...
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
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
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
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" <ardus.petus@laposte.net> wrote in
news:u1kmjMnSGHA.1608@TK2MSFTNGP09.phx.gbl:
Tu peux obtenir les valeurs souhaitées avec Données>Sous-totaux, mais
la présentation ne sera pas exactement la même.
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
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
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à...
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
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
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" <orion93@club-internet.fr> a écrit dans le message de
news:Xns978A6D1DB8BD7orion93clubinternetf@212.27.42.203...
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
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
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
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" <ardus.petus@laposte.net> a écrit dans le message de
news:ujAbgvnSGHA.2224@TK2MSFTNGP10.phx.gbl...
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" <orion93@club-internet.fr> a écrit dans le message de
news:Xns978A6D1DB8BD7orion93clubinternetf@212.27.42.203...
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
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
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
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" <ardus.petus@laposte.net> wrote in
news:ezPRz7nSGHA.2224@TK2MSFTNGP10.phx.gbl:
Oooops: j'avais oublié de copier les variables globales