comment supprimer une valeur d'un tableau???Résolu

Question

salut tout le monde!! 

je veux supprimer une valeur d'un tableau et mon code ne fonctionne pas
correctement...si vous pouvez verifier ou est la faute ..

voila le CS:

For i = 0 To size Step
1                
                   
         ' avec size la fin du tableau

    If Label1(i) = Val(Text1.Text) Then   
                    '
text1.text est la valeur a supprimer

      For j = i To size Step
1                   
                 
   ' une boucle pour decrementer les valeurs a 

                                                                                 
'guauche de  celle a supprimer 

       Label1(j + 1).Caption =
Label1(j)                      
'  la case j+1 prend la valeur de j

      Next j

    End If

   Next i

et merci d'avance

Gobillot · Accepted Answer

faut lire le tableau &#224; l'envers.









 For i = Size To 0 Step -1

      If Label1(i) = Val(Text1.Text) Then

         Size = Size - 1

         For j = i To Size

              Label1(j).Caption = Label1(j + 1)

              Next j

        End If

      Next i


Daniel

Gobillot · Answer

&#224; moins qu'il peut n'y avoir qu'un seul double.

dans ce cas tu peut faire autrement:





 For i = 0 To Size

     If Label1(i) = Val(Text1.Text) Then Exit For

     Next i

 If i < Size + 1 Then

    Size = Size - 1

    For i = i To Size

        Label1(i).Caption = Label1(i + 1).Caption

        Next i

    End If


Daniel

pixela · Answer

For i = Size To 0 Step -1

       If Label1(i) = Val(Text1.Text) Then     ' ca manque .caption apres label1(i) non?

               
              
              
              
   'en plus g une erreur lors de l'exec: type incommpatible
sans ou avec le .caption

          Size = Size - 1

          For j = i To Size

  
          
Label1(j).Caption = Label1(j + 1) ' ici aussi le .caption

               Next j

         End If

       Next i





merci ! [javascript:Insert_Emoticon('/imgs2/smile_blush.gif'); ]

Gobillot · Answer

pour la .caption qui manque, c'est parce que j'ai recopi&#233; ton code, et que tu l'avais pas mis non plus.

mais dans le deuxi&#232;me code, je l'ai rajout&#233;.

gros effort parce que d'habitude je le met pas, c'est la propri&#233;t&#233; par d&#233;faut, donc pas obligatoire.

pour l'erreur, je sais pas, Val() ne fait pas d'erreur et renvoie un
num&#233;rique, par contre Label.Caption c'est un String, donc double
conversion.

le Val() est-il n&#233;cesaire ?

Daniel

pixela · Answer

merci pour ton aide gobillot !

Comment supprimer une valeur d'un tableau???

5 réponses

Discussions similaires