Problème d'affectation en VB

Voilà un bout de code; je veux savoir si c'est comme ça qu'on affecte le contenu d'un TextBox à une cellule d'un tableau en VB6

Code:

---

1 2 3 4 5 6 7

If (tab2(j, k) = "1") Then tab5(j, k) = txtElement.Text ElseIf (tab2(j, k) = "3") Then tab5(j, k) = txtElement.Text & "-" & txtElement2.Tex ElseIf (tab2(j,k)='2') then tab5(j, k) = txtElement.Text End If

---

Citation:

---

Envoyé par enoldi

probleme d affection en VB

---

C'est grave Docteur ? :pastaper:

Citation:

---

Envoyé par DAUDET78

C'est grave Docteur ? :pastaper:

---

:mouarf2:



A enoldi Il y a déjà un problème ligne 4, le T final de txtElement2.Tex , un autre problème ligne 5 ou il faut des guillemets non pas de simples apostrophes.
Ton code corrigé

Code:

---

1 2 3 4 5 6 7

If (tab2(j, k) = "1") Then tab5(j, k) = txtElement.Text ElseIf (tab2(j, k) = "3") Then tab5(j, k) = txtElement.Text & "-" & txtElement2.Text ElseIf (tab2(j, k) = "2") Then tab5(j, k) = txtElement.Text End If

---

qui pourrait aussi être écrit de cette façon

Code:

---

1 2 3 4 5

If (tab2(j, k) = "1") Or (tab2(j, k) = "2") Then tab5(j, k) = txtElement.Text ElseIf (tab2(j, k) = "3") Then tab5(j, k) = txtElement.Text & "-" & txtElement2.Text End If

---

Personnellement, quand il y a plus de 2 conditions sur une condition d'affectation, j'utilise un Select Case qui est très souvent plus facile à construire et à lire/comprendre.

Code:

---

1 2 3 4

Select Case tab2(j, k) Case "1", "2": tab5(j, k) = txtElement.Text Case "3": tab5(j, k) = txtElement.Text & "-" & txtElement2.Text End Select

---

ATTENTION ceci pour du littéral, car en imaginant que txtElement.Text = "25" et txtElement2.Text = "5"
txtElement.Text & "-" & txtElement2.Text aura pour résultat "25-5" (un String) et non pas 20 (un chiffre).
Si le résultat doit être l’opération de soustraction, voir cette discussion Erreur de Somme [Résolu]