EXCEL Incerer l'heure
Résolu
kriKri51
Messages postés
15
Date d'inscription
Statut
Membre
Dernière intervention
-
kriKri51 Messages postés 15 Date d'inscription Statut Membre Dernière intervention -
kriKri51 Messages postés 15 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Comment incerer l'heure "exact" sur une facture lors de l'impression immediate de celle ci ?
D'avance merci à tous et à TOUTES bien sur
Comment incerer l'heure "exact" sur une facture lors de l'impression immediate de celle ci ?
D'avance merci à tous et à TOUTES bien sur
A voir également:
- EXCEL Incerer l'heure
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
- Excel moyenne - Guide
4 réponses
Bonjour,
Dans la cellule de ta facture où tu veux avoir l'heure ..
Si tu veux la date et l'heure
A+
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
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
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
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