EXCEL Incerer l'heure

Bonjour,
Dans la cellule de ta facture où tu veux avoir l'heure ..

Range("A1").value = Time

Si tu veux la date et l'heure

Range("A1").value = Now

A+

Bonjour et merci beaucoup,

j'avais lu par ailleur que c'etait beaucoup plus difficile que ca....mais quand on sait pas ???

j'ai maintenant un autre soucis :

Cette fameuse facture se compose de 3 elements

1°) le debut : nom de l'entreprise, N° de tel DATE etc...
2°) le corps avec les "produits" variable en quantité
3°) la fin avec le total

Je me retrouve donc avec tres souvent un seul produit et une longue facture vide puisque j'imprime une selection de cases.
Est il possible de reduire cette partie vide ?

Voila ma macro actuelle

D'avance Merci

Sub ImprimFacture()

Sheets("Facture").Select

Sheets("Factpat").Activate

Range("B3:F34").Select
Selection.PrintOut Copies:=1, Collate:=True
Range("a1").Select

End Sub

Faudrait savoir comment tu rempli ta facture !
Met la sub qui fait ça.
A+

Voila avec quoi je travail.
Ceci me permet d' aller chercher sur la feuille "Liste " mes produits et de me les mettre sur un herzat de facture, a la fin de laquelle je fais l'addition.

Mon idéal, serait de pouvoir travailler sur plusieurs factures en meme temps, mais surtout d'avoir des factures plus courtes.

que pourras tu faire pour moi ?
D'avance merci

Public Sub Facture()
Dim valeur As String
Dim l As Integer
nombre = Application.InputBox("Combien ? :", Type:=1)
If nombre = False Then Exit Sub
l = Sheets("Facture").Range("c28").End(xlUp).Row + 1
valeur = ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text

For Each c In Sheets("Liste").Range("b3:b" & Sheets("Liste").Range("b500").End(xlUp).Row)

If c.Value = valeur Then

With Sheets("Facture")

.Range("f" & l).Value = nombre

.Range("g" & l).Value = c.Value

.Range("h" & l).Value = c.Offset(0, 1).Value

.Range("i" & l).Value = c.Offset(0, -1).Value

End With

End If

Next c

End Sub