Formule a intégrer en Vba

MuscatMimi · 24 Septembre 2009

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 · 24 Septembre 2009

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 · 24 Septembre 2009

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 · 24 Septembre 2009

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 · 24 Septembre 2009

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 · 24 Septembre 2009

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 · 25 Septembre 2009

Re : Formule a intégrer en Vba

Bonsoir,

vaucluse immo à dit:
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 · 25 Septembre 2009

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 · 25 Septembre 2009

Re : Formule a intégrer en Vba

Bonjour à tous

Vaucluse immo,

Code:

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

Code:

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

Et dis nous le résultat !?

A+

MuscatMimi · 26 Septembre 2009

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

Formule a intégrer en Vba

MuscatMimi

XLDnaute Accro

Excel-lent

XLDnaute Barbatruc

Compte Supprimé 979

Guest

MuscatMimi

XLDnaute Accro

Excel-lent

XLDnaute Barbatruc

MuscatMimi

XLDnaute Accro

Excel-lent

XLDnaute Barbatruc

MuscatMimi

XLDnaute Accro

Compte Supprimé 979

Guest

MuscatMimi

XLDnaute Accro

Discussions similaires

Formule a intégrer en Vba

XLDnaute Accro

XLDnaute Barbatruc

Compte Supprimé 979

Guest

XLDnaute Accro

XLDnaute Barbatruc

XLDnaute Accro

XLDnaute Barbatruc

XLDnaute Accro

Compte Supprimé 979

Guest

XLDnaute Accro

Discussions similaires

Privacy & Transparency

Privacy & Transparency