Re à Tous,
Est-ce que vous pourriez m'aider à adapter ce script que j'ai trouvé pour supprimer l'élément d'un tableau à 2 dimensions ?
Je ne maitrise toujours pas l'utilisation du Redim Preserve.
Comment écrire une boucle tant que tableau non vide ? (suite à utilisation de la procedure précédente)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 Public Sub DeleteElement(ByRef WhatArray As Variant, ByVal WhichElement As Integer) Dim ndx As Integer For ndx = LBound(WhatArray) + WhichElement To UBound(WhatArray) WhatArray(ndx - 1) = WhatArray(ndx) Next ReDim Preserve WhatArray(UBound(WhatArray) - 1) End Sub
Merci
Partager