Re : recopie des données
onjour,
Option Explicit 'Vérifie que toute tes variables sont déclarées (Dim Variable As ...)
Dim heure As String
Dim a100 As Long
Dim d100 As Long
Dim RangeDateOuverture As Range
Dim RangeDateFermeture As Range
Dim Lastrow As Integer
Dim Nextrow As Integer
Dim i As Long
Dim rng As Range, r As Range, c As Range
Dim mois As Long
Sub deb
ActiveSheet.Unprotect
Range("B5") = Time
If Range("B5") = "" Then
MsgBox "L'heure de fin est : " & Now()
End If
ActiveSheet.Protect
Dim dervalcola As Range
Set dervalcola = [A65536].End(xlUp)
If Not IsEmpty(dervalcola) And dervalcola <> [A5] Then
If MsgBox("Copie ?", vbYesNo, "Copie") = 6 Then
'Range("A6:G100").Select
'Selection.Copy
'Sheets.Add After:=Sheets(Sheets.Count)
'Range("A2").Select
'ActiveSheet.Paste
ActiveSheet.Protect
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(, 4).Value
n = n + c.Offset(, 6).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")
Cells(i, 3) = Format(n, "hh:mm:ss")
End If
Next
'End Sub
mais quand j'inclue la macro dans une autre il m'indique à m=0 "variable non définie"
Pourquoi?
a+