Discussion :

[Piernod]

Bonjour,

J'ai un petit problème que je n'arrive pas à résoudre sous VBA. Sur cette application, je travaille uniquement avec VBA. Mon tableau napparaît pas dans Excel, Excel me sert uniquement d'interface.

Je travaille avec un tableau d'une dimension connue. J'ai un test sur une variable. Si ce test est positif, alors il me faut supprimer l'avant dernière colonne de mon tableau, c'est à dire changer la dimension de celui-ci. Ceci est placé dans une boucle et peut être itéré plusieurs fois. Je voudrai savoir si cela est possible dans VBA. Voilà schématiquement ce que je voudrais faire :

- Définir les valeurs de mon tableau
- Réaliser mon test
- Si mon test est positif, suppression de l'avant dernière colonne --> ma dernière colonne est elle conservée (décalée vers la gauche à la place de l'avant dernière colonne)
- La dimension de mon tableau est modifiée (il y a une colonne en moins)

J'ai pensé à quelque chose de faisable mais je trouve ça un peu lourd, je voudrai savoir s'il n'y a pas une fonction qui permettre directement de supprimer une colonne dans un tableau en VBA et de redimensionner ce tableau.

Merci d'avance

Configuration:
Windows XP
Microsoft Excel 2003

[Krovax]

Bonjour.
Je ne vois pas mieu que de copier ta dernière "colonne" a la place de l'avant dernière et d'utiliser redim preserve pour diminuer le nombre de "colonne" de 1

Un exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim test() As Integer
Dim j As Integer, i As Integer
ReDim test(1 To 4, 1 To 3)
'initialisation du tableau
For i = 1 To 4
For j = 1 To 3
test(i, j) = i * 10 + j
Next j
Next i
'copie de la dernière "colonne"
For i = 1 To 3
test(i, 2) = test(i, 3)
Next i
'suppression de la dernière "colonne"
ReDim Preserve test(1 To 4, 1 To 2)
Range("A1:C4") = test

Le tuto sur les tableau (tu y trouvera peut être mieu)
http://silkyroad.developpez.com/vba/tableaux/

[Piernod]

Merci beaucoup. Je ne connaissais pas la commande Redim Preserve. Je pense que ça devrait fonctionner. Je te remercie pour l'efficacité et la rapidité