formule calculé a partir d'une textbox ( date ) dans une cellule specifique

PEX

XLDnaute Occasionnel
bonjour,

je reviens a vous pour parfaire ma macro (12Mo :( )

je vous explique.
dans le code de mon userform, jaimerai que lorsque mon formulaire se valide une formule appraaisse dans une cellule .

ma formule : =JOURS360(AUJOURDHUI();P5) --> nombre de jours avant expiration ... la formule est en Q5.

en sachant que je rentrerai beaucoup de donné comment remplacer P5 pour dire de remplir a chaque fois la cellule Q de la ligne enregistré ?

Code:
Private Sub save_Click()

If nomduproduit = "" Or localisation = "" Or reception = "" Or stockage = "" Or OptionChoisie = "" Then

    MsgBox "Champs obligatoires : Nom du produit, Localisation, stockage, Unité de la quantité.", , " Informations manquantes "
    
    Exit Sub
    
End If

If IsNumeric(quantite) = False Then

    MsgBox "Veuillez entrer une valeur numerique", , "Erreur de saisie"
         
    Exit Sub
    
End If

On Error Resume Next

    ThisWorkbook.Sheets("prépreg").Range("A65536").End(xlUp).Offset(1, 0).Value = localisation
    ThisWorkbook.Sheets("prépreg").Range("B65536").End(xlUp).Offset(1, 0).Value = nomduproduit
    ThisWorkbook.Sheets("prépreg").Range("C65536").End(xlUp).Offset(1, 0).Value = numeroclient
    ThisWorkbook.Sheets("prépreg").Range("D65536").End(xlUp).Offset(1, 0).Value = numerosafran
    ThisWorkbook.Sheets("prépreg").Range("E65536").End(xlUp).Offset(1, 0).Value = CBmateriau
    ThisWorkbook.Sheets("prépreg").Range("F65536").End(xlUp).Offset(1, 0).Value = CBtissu
    ThisWorkbook.Sheets("prépreg").Range("G65536").End(xlUp).Offset(1, 0).Value = resine
    ThisWorkbook.Sheets("prépreg").Range("H65536").End(xlUp).Offset(1, 0).Value = stockage
    ThisWorkbook.Sheets("prépreg").Range("I65536").End(xlUp).Offset(1, 0).Value = TB18
    ThisWorkbook.Sheets("prépreg").Range("j65536").End(xlUp).Offset(1, 0).Value = TB7
    ThisWorkbook.Sheets("prépreg").Range("K65536").End(xlUp).Offset(1, 0).Value = TBambiant
    ThisWorkbook.Sheets("prépreg").Range("L65536").End(xlUp).Offset(1, 0).Value = quantite
    ThisWorkbook.Sheets("prépreg").Range("M65536").End(xlUp).Offset(1, 0).Value = OptionChoisie
    ThisWorkbook.Sheets("prépreg").Range("N65536").End(xlUp).Offset(1, 0).Value = Dreception
    ThisWorkbook.Sheets("prépreg").Range("O65536").End(xlUp).Offset(1, 0).Value = Dfabrication
    ThisWorkbook.Sheets("prépreg").Range("P65536").End(xlUp).Offset(1, 0).Value = Dperemption
    ThisWorkbook.Sheets("prépreg").Range("R65536").End(xlUp).Offset(1, 0).Value = ref
    ThisWorkbook.Sheets("prépreg").Range("S65536").End(xlUp).Offset(1, 0).Value = CBfabricant
    ThisWorkbook.Sheets("prépreg").Range("T65536").End(xlUp).Offset(1, 0).Value = CBfournisseur
    ThisWorkbook.Sheets("prépreg").Range("U65536").End(xlUp).Offset(1, 0).Value = DMP
    ThisWorkbook.Sheets("prépreg").Range("V65536").End(xlUp).Offset(1, 0).Value = reception
    ThisWorkbook.Sheets("prépreg").Range("W65536").End(xlUp).Offset(1, 0).Value = Application.UserName
    ThisWorkbook.Sheets("prépreg").Range("X65536").End(xlUp).Offset(1, 0).Value = Now
    ThisWorkbook.Sheets("prépreg").Range("Z65536").End(xlUp).Offset(1, 0).Value = ouinon
    ThisWorkbook.Sheets("prépreg").Range("AB65536").End(xlUp).Offset(1, 0).Value = nonoui
    ThisWorkbook.Sheets("prépreg").Range("AA65536").End(xlUp).Offset(1, 0).Value = fds
    ThisWorkbook.Sheets("prépreg").Range("Y65536").End(xlUp).Offset(1, 0).Value = tds
On Error GoTo 0

[B]Range("Q65536").Select
ActiveCell.FormulaLocal = "=JOURS360(AUJOURDHUI();P5)"[/B]



en esperant que vous pourrez m'aider

cordialement
 

Discussions similaires

Statistiques des forums

Discussions
311 726
Messages
2 081 955
Membres
101 852
dernier inscrit
dthi16088