Formule a intégrer en Vba

[MuscatMimi]

Bonsoir le Forum

J'ai cette formule dans une Base de Données dans colonne V2: V65536

=SI(D14="";"";SI(D14>=3;"Suffisant";SI(D14=0;"Insuffisant";"Juste")))

Il ce trouve que quand je rentre des données via mon Usf ,et que valide
cette formule n'est plus présente dans la colonne V de la ligne qui vient d'être entré dans ma Bdd
Comment puis-je procéder pour que cette formule
soit conservée en colonne V????,,
merci de votre aide par avance
bonne soirée

 

[Excel-lent]

Re : Formule a intégrer en Vba

Bonsoir Vaucluse immo,

Difficile d'être catégorique sans voir ton fichier!!!

Mais à priori soit :
-> ta macro écrase la formule en mettant à la place une des valeur contenu dans ton USF
-> soit cette fonction n'est pas présente avant le remplissage de ton USF, et lorsque dans ta macro, tu lui dis d'écrire cette fonction dans cette cellule, tu as fais une faute de code, résultat des courses, il met la valeur donné par la formule, au lieu de mettre la formule!

Bonne soirée

 

[Compte Supprimé 979]

Re : Formule a intégrer en Vba

bonjour vaucluse immo,
Salut Excel-lent

Effectivement, peut être avec un pendule ou une boule de cristal 🙄

A+

 

[MuscatMimi]

Re : Formule a intégrer en Vba

Bonsoir Excel-Lent & BrunoM45

Je valide que les colonnes de A à U
dans la colonne V il y a bien la formule que j'ai indiqué plus haut ,et ce de V2 a V65536
Apparament rien n'est possible en Vba

 

[Excel-lent]

Re : Formule a intégrer en Vba

Bonsoir le fil, Vaucluse immo,

Une formule ne s'efface pas comme ça!!! Il y a forcément un code dans ta macro qui efface les formules colonne V!

Tu ne veux pas mettre ton fichier en ligne pour qu'on puisse y jeter un coup d'œil?

Bonne soirée

 

[MuscatMimi]

Re : Formule a intégrer en Vba

Re a tous

J'ai trouvé mon erreur

J'avais noté
Derlgn = .Range("A65536").End(xlUp).Row + 1

alors qu'il fallait noter
Derlgn = .Range("A2:U65536").End(xlUp).Row + 1

maintenant c'est bon ma formule est conservée
merci quand même Excel-Lent & Bruno
Bonne soirée

 

[Excel-lent]

Re : Formule a intégrer en Vba

Bonsoir,

J'avais noté
Derlgn = .Range("A65536").End(xlUp).Row + 1

alors qu'il fallait noter
Derlgn = .Range("A2:U65536").End(xlUp).Row + 1

Content que tu es trouvé une solution à ton problème! Mais ton nouveau code est vraiment bizarre!!!! De plus, je ne vois pas en quoi ton ancien code soit responsable de ton soucis de colonne V.

Il y a surement moyen de faire plus académique!

Bonne fin de semaine

 

[MuscatMimi]

Re : Formule a intégrer en Vba

Bonjour Excel-Lent

Mon code bizarre!!!!

Voici mon code pour cette validation

'--Validation dans feuil Produit
Private Sub CommandButton3_Click()
Dim Derlgn As Integer
With Sheets("Produits")
Derlgn = .Range("A2:U65536").End(xlUp).Row + 1
.Cells(Derlgn, 1) = Derlgn '- ligne de départ pour
.Cells(Derlgn, 1) = ComboBox1.Value
.Cells(Derlgn, 2) = TextBox1.Value 'Nom Produit
.Cells(Derlgn, 3) = TextBox2.Value 'Unité
.Cells(Derlgn, 5) = Format(TextBox4.Value, "dd mm yyyy") 'Date entrée en stock '
.Cells(Derlgn, 6) = Format(TextBox5.Value, "0000") 'Quantité entrée
'.Cells(Derlgn, 7) = Format(TextBox19.Value, "# ##0.00 €") 'Prix achat HT
If TextBox19 <> "" Then .Cells(Derlgn, 7) = CDbl(TextBox19) 'Prix achat HT
.Cells(Derlgn, 8) = TextBox6.Value 'Taux TVA
If TextBox7 <> "" Then .Cells(Derlgn, 9) = CDbl(TextBox7) 'Prix achat HT
If TextBox8 <> "" Then .Cells(Derlgn, 10) = CDbl(TextBox8) 'Prix achat HT
.Cells(Derlgn, 11) = Format(TextBox9.Value, "0000") 'réf produit
.Cells(Derlgn, 12) = Format(TextBox10.Value, "0000") 'code client
.Cells(Derlgn, 13) = TextBox11.Value '% remise fournisseur
.Cells(Derlgn, 14) = TextBox12.Value 'marge a réaliser
If TextBox13 <> "" Then .Cells(Derlgn, 15) = CDbl(TextBox13) 'Prix achat HT
.Cells(Derlgn, 16) = TextBox14.Value 'taux tva sur prix vente
If TextBox15 <> "" Then .Cells(Derlgn, 17) = CDbl(TextBox15) 'Prix achat HT
If TextBox16 <> "" Then .Cells(Derlgn, 18) = CDbl(TextBox16) 'Prix achat HT
.Cells(Derlgn, 19) = TextBox17.Value 'remise a accorder
If TextBox18 <> "" Then .Cells(Derlgn, 20) = CDbl(TextBox18) 'Prix achat HT
.Cells(Derlgn, 21) = Format(TextBox20.Value, "0000") 'quantité mini a commander
End With

End Sub

Dis-moi ce que tu en pense,sinon par défaud je met le Fichier
Bonne journée

 

[Compte Supprimé 979]

Re : Formule a intégrer en Vba

Bonjour à tous

Vaucluse immo,

Derlgn = .Range("A2:U65536").End(xlUp).Row + 1

N'a jamais donné la dernière ligne utilisée 😕

Tu peux essayer sur une feuille vide, tu mets des valeurs sur n'importe qu'elle ligne de la colonne A jusqu'à U

Et tu lances le test

Sub Test
Derlgn = Range("A2:U65536").End(xlUp).Row + 1
End Sub

Et dis nous le résultat !?

A+

 

[MuscatMimi]

Re : Formule a intégrer en Vba

Bonjour BrunoM45

Je suis Ok avec toi
c'est le nom de ma variable, code que j'ai copier dans une de mes archives
j'aurai dû changer le Nom de cette variable


Bon we
cordialement