recopie des données

[al1000]

onjour,


comment ecrire la maco:


si le dernier releve est :

par exemple 16/02/09
j'ouvrre l'onglet "2 " (mois de février)
et je copie la somme "b7 à b 9"
devant la journée du 16

A+

 

[al1000]

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+

 

[vbacrumble]

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+

 

[al1000]

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+

 

[al1000]

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+

 

[al1000]

Re : recopie des données

bonjour,

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

 

[vbacrumble]

Re : recopie des données

Bonsoir


Vois si cela te convient

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+

 

[al1000]

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+

 

[vbacrumble]

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+

 

[al1000]

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+

 

[vbacrumble]

Re : recopie des données

Re


Un bref passage pour une modif

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

 

[al1000]

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+

 

[vbacrumble]

Re : recopie des données

Re


Ce n'est pas si compliqué non ?

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+

 

[al1000]

Re : recopie des données

bonjour


je regarde
merci

a+

 

[al1000]

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+