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.
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
Comment écrire une boucle tant que tableau non vide ? (suite à utilisation de la procedure précédente)

Merci