VBA - Tableau remplie à la base d'un formulaire

**Halima-BTY** · 08/04/2021, 21h13

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

**ARTURO83** · 09/04/2021, 08h16

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Pierre Fauconnier** · 09/04/2021, 08h25

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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/

**Pierre Fauconnier** · 09/04/2021, 09h00

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.

**ARTURO83** · 09/04/2021, 09h15

Bonjour Pierre,

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