VBA - Tableau remplie à la base d'un formulaire

Bonjour à tous,
Je travaille sur la création d'un tableau qui se remplit sur la base d'un formulaire.
Le souci que je rencontre est au niveau de cette ligne de code et je ne trouve pas d'où vient l'erreur et comment la corriger

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sheets("Option avec dividendes").ListObjects(1).ListRows.Add Sheets("Option avec dividendes").Range("a" & dlt) = Now() Sheets("Option avec dividendes").Range("b" & dlt) = K Sheets("Option avec dividendes").Range("c" & dlt) = V Sheets("Option avec dividendes").Range("d" & dlt) = r & "%" Sheets("Option avec dividendes").Range("e" & dlt) = d & "%" Sheets("Option avec dividendes").Range("f" & dlt) = T Sheets("Option avec dividendes").Range("g" & dlt) = sigma Sheets("Option avec dividendes").Range("h" & dlt) = optiont Sheets("Option avec dividendes").Range("i" & dlt) = VO(TypeOption, V, K, r, d, T, sigma) Sheets("Option avec dividendes").Range("j" & dlt) = Delta_VO(TypeOption, V, K, r, d, T, sigma) Sheets("Option avec dividendes").Range("k" & dlt) = Gamma_VO(V, K, r, d, sigma, T) ThisWorkbook.Save ThisWorkbook.RefreshAll

---

option avec dividendes est la feuille sur laquelle je veux transmettre les données du formulaire le problème est dans la première ligne

Pourriez vous avoir la gentillesse de m'expliquer comment réparer ce bug ?
merci beaucoup d'avance.

Bonjour,

Multipliez vos variables "V,K,r,d,sigma,T" par 1

Code:

---

1 2 3 4 5 6

V = Val(V.Value) * 1 K = Val(K.Value) * 1 r = Val(r.Value) * 1 d = Val(d.Value) * 1 sigma = Val(sigma.Value) * 1 T = Val(T.Value) * 1

---

Mauvaise idée que d'avoir attribué le même nom d'une textbox à une variable.

Cdlt

Salut.

Voici un code qui illustre comment on ajoute des données à une nouvelle ligne d'un tableau structuré. Ce code s'appuie sur un tableau structuré nommé t_Contacts composé des colonnes Prénom, Nom, Date. On récupère l'index de la ligne ajoutée au tableau, puis grâce à l'utilisation des références nommées en VBA, on transfère les données dans les bonnes cellules de la ligne.

J'ai pris cet exemple avec les trois variables pour coller à ta réalité, mais on pourrait transférer directement les données du formulaire, que celui-ci soit un userform ou un formulaire "feuille de calcul"... Au fait, quelle est la nature de ton formulaire?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub AddContact() Dim Prenom As String, Nom As String, DateEntree As Date Dim Index As Long   Prenom = "Alain" Nom = "Térieur" DateEntree = Date   Index = Range("t_Contacts").ListObject.ListRows.Add.Index Range("t_Contacts[Prénom]")(Index).Value = Prenom Range("t_Contacts[Nom]")(Index).Value = Nom Range("t_contacts[Date]")(Index).Value = DateEntree End Sub

---

Un peu de lecture avec mes réponses à des questions similaires, une contribution et des billets de blog
https://www.developpez.net/forums/d2...via-recherche/
https://www.developpez.net/forums/d2.../#post11705265
https://www.developpez.net/forums/d2...eau-structure/
https://www.developpez.net/forums/bl...lacer-valeurs/

Salut

@Arturo,

Je ne comprends pas pourquoi tu effectues Val(...)*1. Val(...) transforme en double, il n'est donc pas nécessaire de réaliser un *1 derrière. C'est l'un ou l'autre, il me semble.

Par contre, les résultats ne sont pas identiques car le séparateur décimal utilisé dans la saisie va faire que Val et * 1 ne vont pas renvoyer les mêmes valeurs.

• Val("1.5") => 1,5
• Val("1,5") => 1
• "1.5" * 1 => 15
• "1,5" * 1 => 1,5

@Halima,

Puisque tu travailles avec un tableau structuré, je te conseillerais de travailler avec les références structurées plutôt qu'avec le code Sheets("Option avec dividendes").Range("a" & dlt) = Now() qui est un code que je considère comme obsolète. L'utilisation des références va détacher ton code des colonnes de la feuille, ce qui lui permet de continuer à fonctionner sans douleurs si tu dois ajouter, supprimer ou réorganiser des colonnes du tableau.

Bonjour Pierre,

Citation:

---

Je ne comprends pas pourquoi tu effectues Val(...)*1. Val(...) transforme en double, il n'est donc pas nécessaire de réaliser un *1 derrière. C'est l'un ou l'autre, il me semble.

---

Je n'ai pas trop creusé, mais j'avais constaté que la variable v dans Val("v.value") restait en string, ce qui générait une erreur dans la ligne de calcul suivante, d'où la simplicité de *1.

Cdlt

bonjour,
@Pierre
j'ai essayé d'appliquer le code que vous m'avez donné mais j'ai toujours pas réussi, je pense que je l'ai mal appliqué.

Pourrais-tu le mettre ici et mettre une copie d'écran?