Salut,
voila je t'explique en gros ce que je veux souhaite faire. Je souhaite reporter mes comptes sur la feuille "total du jour". en ligne
la date de saisie et en colonne le poste budgetaire. C'est la lutte pour l'instant mais c'est pédgogique ...voila voilou
à plus
misterk
Sub monargent()
Dim ladate As Date
ladate = Date
Dim plage As Variant
Dim poste As String
Dim celluleEncours As Range
Dim cell, Table As Range
Dim message, titre As String
Worksheets("saisie du jour").Range("f20") = "=Now()"
'choix du poste
Set Table = Worksheets("saisie du jour").Range("a2:a15")
message = "Sur quel poste ?"
titre = "Tarification "
poste = InputBox(message, titre)
For Each cell In Range("a2:a15")
If cell = poste Then
plage = cell.Address
Exit For
End If
Next cell
'saisie du debut
heure_debut:
message = "saisissez le debut sachant que sommes le now()"
titre = "demande d'informations"
date_debut = InputBox(message, titre)
If date_debut <> "" Then
Worksheets("saisie du jour").Range(plage).Offset(0, 1) = date_debut
Else
MsgBox "pas valide"
GoTo heure_debut
End If
'saisie fin
heure_fin:
message = "saisissez la fin"
titre = "demande d'informations"
date_fin = InputBox(message, titre)
If date_fin <> "" Then
Worksheets("saisie du jour").Range(plage).Offset(0, 2) = date_fin
Else
MsgBox "pas valide"
GoTo heure_fin
End If
Set gain = Worksheets("saisie du jour").Range(plage).Offset(0, 9)
Static accumuler
accumuler = accumuler + gain
date_jour = Worksheets("total du jour").Range("a3").Value
If IsDate(date_jour) = False Then
date_jour = ladate
Worksheets("total du jour").Range("c3").Value = accumuler
Else
Worksheets("total du jour").Range("c3").Value = accumuler
End If
End Sub