K
Kickback
Guest
Bonjour,
Un membre de ce forum (abel) m'a beaucoup aidé pour la constitution d'un tableau permettant de comptabiliser des temps d'attente. Il s'agit d'une feuille avec des colonnes date, heure d'arrivée etc...on en transfere ensuite les informations dans une feuille bilan.
Or je me suis aperçu que lorsque les informations sont vides (aucun client d'arrivé ce jour par exemple) et que je clique sur le bouton de transfert, c'est le nom des colonnes qui est envoyé dans la feuille bilan...et cela fausse les calculs. Voici la macro du bouton de transfert, si quelqu'un en connait la raison.
Merci d'avance.
Sub transfert()
Dim maplage As Range
Dim derlgn As Integer, L As Integer
Dim C As Byte
Dim Derlgn2 As Integer
Dim tabTemp As Variant
Dim Ws As Worksheet
Set Ws = Worksheets('Historique visites')
With Worksheets('Saisie du jour')
derlgn = .Range('B65536').End(xlUp).Row
Set maplage = .Range('A2:d2' & derlgn)
tabTemp = .Range(.Cells(2, 1), .Cells(derlgn, 4)).Value
End With
With Ws
Derlgn2 = .Range('A65536').End(xlUp).Row
For L = 1 To UBound(tabTemp, 1)
For C = 1 To UBound(tabTemp, 2)
If C >= 3 And C <= 4 Then
.Cells(L + Derlgn2, C) = Format(tabTemp(L, C), 'hh:mm:ss')
Else
.Cells(L + Derlgn2, C) = tabTemp(L, C)
End If
Next
Next
End With
maplage.ClearContents
End Sub
Un membre de ce forum (abel) m'a beaucoup aidé pour la constitution d'un tableau permettant de comptabiliser des temps d'attente. Il s'agit d'une feuille avec des colonnes date, heure d'arrivée etc...on en transfere ensuite les informations dans une feuille bilan.
Or je me suis aperçu que lorsque les informations sont vides (aucun client d'arrivé ce jour par exemple) et que je clique sur le bouton de transfert, c'est le nom des colonnes qui est envoyé dans la feuille bilan...et cela fausse les calculs. Voici la macro du bouton de transfert, si quelqu'un en connait la raison.
Merci d'avance.
Sub transfert()
Dim maplage As Range
Dim derlgn As Integer, L As Integer
Dim C As Byte
Dim Derlgn2 As Integer
Dim tabTemp As Variant
Dim Ws As Worksheet
Set Ws = Worksheets('Historique visites')
With Worksheets('Saisie du jour')
derlgn = .Range('B65536').End(xlUp).Row
Set maplage = .Range('A2:d2' & derlgn)
tabTemp = .Range(.Cells(2, 1), .Cells(derlgn, 4)).Value
End With
With Ws
Derlgn2 = .Range('A65536').End(xlUp).Row
For L = 1 To UBound(tabTemp, 1)
For C = 1 To UBound(tabTemp, 2)
If C >= 3 And C <= 4 Then
.Cells(L + Derlgn2, C) = Format(tabTemp(L, C), 'hh:mm:ss')
Else
.Cells(L + Derlgn2, C) = tabTemp(L, C)
End If
Next
Next
End With
maplage.ClearContents
End Sub