code userform

[kinel]

bonjour à tous

j'utilise un Userform pour compléter un tableau de donnée
certaines cellules de ce tableau comportent
- une formule :
=SI((B7<>"")*((D7<=F7)+(C7<=$B$2));"A Commander";"OK")
- un format conditionnel

quel code me permettrait de garder ces deux composantes dans mon tableau ?

voici la partie de code qui me pose problème
Dim dest As Range
With Sheets("Feuil2")
Set dest = IIf(.Range("A6").Value = "", .Range("A6"), .Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0))
End With
dest.Value = (" ")
dest.Offset(0, 1).Value = Me.TextBox1.Text 'nom du nouveau produit
dest.Offset(0, 2).Value = (" ")
dest.Offset(0, 3).Value = (" ")
dest.Offset(0, 4).Value = (" ")
dest.Offset(0, 5).Value = Me.TextBox2.Text 'stock mini
dest.Offset(0, 6).Value = Me.TextBox3.Text 'stock maxi


Merci de votre aide
kinel

 

[Dranreb]

Re : code userform

Bonsoir.

Ça je suppose:

dest.Offset(0, ?).FormulaR1C1 = "=IF(AND(RC2<>"""",OR(RC4<=RC6,RC3<=R2C2)),""À Commander"",""OK"")"

Cordialement

 

[kinel]

Re : code userform

bonjour Dranreb

ça fait mon bonheur ça, merci

aurais tu une idée pour le format conditionnel ?

 

[Dranreb]

Re : code userform

Le mieux pour ne pas se tromper c'est d'enregistrer une nouvelle macro, pendant que ça enregistre mettre la MFC à la main (ou revalider les éléments d'une existante bonne) arrêter l'enregistrement, pomper le code engendré en supprimant les Select et Selection.
Cordialement.

 

[kinel]

Re : code userform

re
rectification
si je rentre le format conditionnel à l'avance il est gardé donc pas de soucis à ce niveau
merci
Kinel