Discussion :

[enoldi]

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 :

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

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

[DAUDET78]

probleme d affection en VB

C'est grave Docteur ?

[ProgElecT]

C'est grave Docteur ?

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 :

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

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 :

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

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 :

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

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]