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é ?
en esperant que vous pourrez m'aider
cordialement
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