recopie des données

A

al1000

XLDnaute Impliqué

• 17 Février 2009

• #2

Re : recopie des données

onjour,


comment ecrire la maco:


si le dernier releve est :

par exemple 16/02/09
j'ouvre l'onglet "2 " (mois de février) (il existe déja l'onglet dans la classeur)


a+

 

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 17 Février 2009

• #3

Re : recopie des données

Re



Pourquoi ne restes_tu pas dans ton premier post??
https://www.excel-downloads.com/threads/macro-test-journee.114270/

Je t'y ai répondu !!

(Cela prends du temps de mettre des commentaires dans le code VBA)
En plus ton fichier contient des modules vides !!
Sans reprises des codes VBA issues des réponses que l'on te fait !!!!


A+

 

Dernière édition: 17 Février 2009

Vote positif 0 Vote négatif

A

al1000

XLDnaute Impliqué

• 17 Février 2009

• #4

Re : recopie des données

bonjour

c'est une nouvelle macro


si j'ai 16/02/09

alors je dois ouvrir l'onglet "2" qui existe déjà


a+

 

Vote positif 0 Vote négatif

A

al1000

XLDnaute Impliqué

• 17 Février 2009

• #5

Re : recopie des données

bonjour


cellule a1 = 16/02/09


comment ecrire la macro si le le N° du mois ou le chiffre du milieu =2 alors j'ouvre l'onglet nomme 2


a+

 

Vote positif 0 Vote négatif

A

al1000

XLDnaute Impliqué

• 18 Février 2009

• #6

Re : recopie des données

bonjour,

est ce possible de faire cela avec une macro??
a+

 

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 18 Février 2009

• #7

Re : recopie des données

Bonsoir


Vois si cela te convient

Code:

Sub macro()
Dim i As Long
Dim rng As Range, r As Range, c As Range
Dim mois As Long
Set r = [A65536].End(xlUp)
Set rng = Range("A8:A" & r.Row)
m = 0
For Each c In rng
If c = r Then
m = m + c.Offset(, 1).Value
End If
Next
mois = Month(r.Value)
Sheets(mois).Activate
For i = 5 To 33
If Cells(i, 1) = Day(r) Then
Cells(i, 2) = Format(m, "hh:mm:ss")
End If
Next
End Sub

A+

 

Vote positif 0 Vote négatif

A

al1000

XLDnaute Impliqué

• 18 Février 2009

• #8

Re : recopie des données

bonjour

dans le fichier nomme 17 cela marche mais quand je copie la macro dans un classeur cela ne fonctonne pas

pourquoi?
il a t il des parametres que j'aurai oublie?

a+

 

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 18 Février 2009

• #9

Re : recopie des données

Re

Cherches à comprendre le code
Compare les différences entre 17.xls et ton classeur

On en reparle après 22h55.

A+

 

Vote positif 0 Vote négatif

A

al1000

XLDnaute Impliqué

• 18 Février 2009

• #10

Re : recopie des données

bonjour

je viens de recopier uniquement l'onglet nommé 2 et cela marche

mais je m'appercois que si je nomme l'onglet 1 cela marche aussi

c'est bizarre

j'essaye de comprendre


a+

 

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 18 Février 2009

• #11

Re : recopie des données

Re


Un bref passage pour une modif

Code:

Sub macro2()
Dim i As Long
Dim rng As Range, r As Range, c As Range
Dim mois As Long
Set r = [A65536].End(xlUp)
Set rng = Range("A8:A" & r.Row)
m = 0
For Each c In rng
If c = r Then
m = m + c.Offset(, 1).Value
End If
Next
mois = Month(r.Value)
[COLOR="Red"]Sheets(CStr(mois)).Activate[/COLOR]
For i = 5 To 33
If Cells(i, 1) = Day(r) Then
Cells(i, 2) = Format(m, "hh:mm:ss")
End If
Next
End Sub

Je te laisse tester


A+ tard

 

Vote positif 0 Vote négatif

A

al1000

XLDnaute Impliqué

• 18 Février 2009

• #12

Re : recopie des données

bonsoir
genial


je l'ai adapté à mon besoin


mais je boudrai faire la somme de la colonne b et de la colonne d
If c = r Then
m = m + c.Offset(, 1).Value
c'est la somme de la colonne b


mais comment faire pour avoir la somme de la colonne d?

a+

 

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 18 Février 2009

• #13

Re : recopie des données

Re


Ce n'est pas si compliqué non ?

Code:

Sub macro3()
Dim i As Long
Dim rng As Range, r As Range, c As Range
Dim mois As Long
Set r = [A65536].End(xlUp)
Set rng = Range("A8:A" & r.Row)
m = 0
n = 0
For Each c In rng
If c = r Then
m = m + c.Offset(, 1).Value
[COLOR="Red"]n = n + c.Offset(, 3).Value[/COLOR]
End If
Next
mois = Month(r.Value)
Sheets(CStr(mois)).Activate
For i = 5 To 33
If Cells(i, 1) = Day(r) Then
Cells(i, 2) = Format(m, "hh:mm:ss")
Cells(i, 3) = "TOTAL Colonne D : " & Val(n)
Cells(i, 3).Columns.AutoFit
End If
Next
End Sub

A+

 

Vote positif 0 Vote négatif

A

al1000

XLDnaute Impliqué

• 19 Février 2009

• #14

Re : recopie des données

bonjour


je regarde
merci

a+

 

Vote positif 0 Vote négatif

A

al1000

XLDnaute Impliqué

• 19 Février 2009

• #15

Re : recopie des données

bojour

Sub macro3()
Dim i As Long
Dim rng As Range, r As Range, c As Range
Dim mois As Long

Set r = [A65536].End(xlUp)
Set rng = Range("A8:A" & r.Row)
m = 0
n = 0

For Each c In rng
If c = r Then
m = m + c.Offset(, 1).Value
n = n + c.Offset(, 3).Value
End If

Next
mois = Month(r.Value)
Sheets(CStr(mois)).Activate
For i = 5 To 33
If Cells(i, 1) = Day(r) Then
Cells(i, 2) = Format(m, "hh:mm:ss")

If Cells(i, 3) = Day(r) Then
Cells(i, 3) = Format(m, "hh:mm:ss")

'Cells(i, 3) = "" & Val(n)
'Cells(i, 3).Columns.AutoFit
End If
End If
Next
End Sub

j'ai modifie la macro car je ne voulais pas avoir le texte total colone d

mais je n'ai pas la somme de la colonne d


a+

 

Vote positif 0 Vote négatif