VBA supprimer l'indice 0 d'une liste

[kenzo1245]

Bonjour,

J'aimerais savoir si c'est possible d'enlever l'indice 0 d'une liste array en vba ?

Exemple:

liste = Array(36, 24, 5, 8, 9)
ReDim Preserve liste(LBound(liste) + 1 To UBound(liste))

Ca ne fonctionne pas, mais par contre retirer le dernière élément ça fonctionne.
Auriez-vous une idée de comment je pourrais faire?

Merci d'avance.

 

[camarchepas]

Re : VBA supprimer l'indice 0 d'une liste

Bonjour ,

Pour lui indiquer en début de programme

Dim Liste(1 To 10) As String

mais pour le retire le seul moyen , je pense sera de passer par une 2eme liste

 

[kenzo1245]

Re : VBA supprimer l'indice 0 d'une liste

Pourriez-vous me dire comment faire avec une 2eme liste alors?

Car je ne peux pas le faire manuellement à chaque fois.

Faut-il le faire avec une boucle ou-bien existe-il une autre façon ?

Merci!

 

[camarchepas]

Re : VBA supprimer l'indice 0 d'une liste

Oups ,
répondu un peu vite ,

pour forcer à un tu peux faire comme cela

Option Explicit
Option Base 1
Sub test()
Dim liste0() As Variant

 liste0 = Array(36, 24, 5, 8, 9)

End Sub

 

[ROGER2327]

Re : VBA supprimer l'indice 0 d'une liste

Bonjour à tous.

Pas claire, cette affaire.

​

• S'il s'agit que le plus petit indice de liste soit 1 dès le chargement, écrire

  Option Base 1

  en tête du module, comme le suggère camarchepas.
  
  
• S'il s'agit d'éliminer le premier élément de la liste et de diminuer de 1 l'indice des autres éléments :

  Sub tata()
  Dim i&, liste()
    liste = Array(36, 24, 5, 8, 9)
    For i = 1 + LBound(liste) To UBound(liste): liste(i - 1) = liste(i): Next
    ReDim Preserve liste(UBound(liste) - 1)
  End Sub

  
  
• S'il s'agit d'éliminer le premier élément de la liste sans que l'indice des autres éléments soit modifié :

  Sub toto()
  Dim i&, liste(), tmp()
    liste = Array(36, 24, 5, 8, 9)
    ReDim tmp(1 + LBound(liste) To UBound(liste))
    For i = 1 + LBound(liste) To UBound(liste): tmp(i) = liste(i): Next
    liste = tmp
    Erase tmp
  End Sub

ℝOGER2327
#7523

Dimanche 22 Phalle 141 (Sainte Dragonne, pyrophage - fête Suprême Seconde)
15 Fructidor An CCXXII, 7,1592h - truite
2014-W36-1T17:10:56Z

 

[kenzo1245]

Re : VBA supprimer l'indice 0 d'une liste

Super, Merci pour vos réponses. A bientôt!