SUPPRIMER UN ÉLÉMENT D'UN TABLEAU

Commentaire de sanyohan13 le 08/06/2006 11:48:35

salut
je débute et je voudrais savoir comment faire pour écrire seulement "1234567890ABCDEF" et que les autres caractères ne s'écrivent pas m^me si on appuie dessus...
merci

Commentaire de peug le 16/11/2007 12:14:53

Worst, je suis un peu d'accord mais dans ton idée il faut bien renvoyé le tableau sans l'item. Comment vois-tu la chose ?

zieut ca :
    Dim i As Integer
    Dim k As Integer
    
    'Creation du tableau temporaire
    Dim tbTemp() As String 'doit être idem que tb :(
    ReDim tbTemp(UBound(Tabl))
    
    For i = 0 To UBound(Tabl)
        If i <> item Then
            'on copie dans le nouveau tableau sauf l'item a effacer
            tbTemp(k) = Tabl(i)
            k = k + 1
        End If
    Next
    
    'on refait le tableau de base
    ReDim Tabl(UBound(tbTemp))
    For i = 0 To UBound(tbTemp)
        Tabl(i) = tbTemp(i)
    Next

Commentaire de Worst le 16/11/2007 18:00:24

Je voyais le truc tout simple : créer un 2ème tableau avec directement la bonne taille (max - 1), et mettre dedans les valeurs au fur et à mesure. Mais effectivement, à la fin faut le remettre dans le 1er tableau, et là on est comme des flans.

Y'a bien l'option "on crée une fonction qui retourne le nouveau tableau", mais là ça doit être VB qui crée une copie du tableau avant de le retourner...

Public Function array_remove(ByRef t() As String, ByVal val As String)

    Dim max As Integer          ' Taille de l'ancien tableau
    max = UBound(t)

    Dim cur_val As String       ' Valeur lue dans l'ancien tableau
    Dim ind_anc As Integer      ' Indice de déplacement dans l'ancien tableau
    Dim ind_nouv As Integer     ' Indice de déplacement dans le nouveau tableau
    
    Dim nouv_tab() As String ' Nouveau tableau
    ReDim Preserve nouv_tab(max - 1)
    
    ind_nouv = 0
    For ind_anc = 0 To max
        cur_val = t(ind_anc)
        If cur_val <> val Then
            nouv_tab(ind_nouv) = cur_val
            ind_nouv = ind_nouv + 1
        End If
    Next ind_anc
    
    array_remove = nouv_tab

End Function



'''''''' Exemple ''''''''

Dim t(10) As String
For i = 0 To 10
    t(i) = i
Next i

nouv_t = array_remove(t, 5)

Dim val As Variant
For Each val In nouv_t
    Debug.Print val
Next


Donc, finalement je suis d'accord, y'a 2 parcours. J'ai dit des bêtises. Au temps pour moi.
Par contre, juste : pourquoi tu mets plein de UBound() dans tes boucles for() ? Ca serait pas plus efficace de récupérer la taille une première fois avant d'entrer dans la boucle, plutôt que de le recalculer à chaque fois ??

Commentaire de the_little_big_man le 17/08/2010 11:31:04

la solution de ANDALO est nickel... merci mec