Beug avec redim preserve

Résolu/Fermé

quent - 14 août 2014 à 13:49
quent - 14 août 2014 à 16:32

bonjour, il y a une erreur que je ne comprends pas :
lorsque j'utilise redim preserve 2 fois, le programme plante la deuxieme fois.
exemple, si je met :

dim tableau() as variante
redim preserve tableau(1 to 2,1 to 2)
redim preserve tableau(1 to 3,1 to 2)

ca beugue a la derniere ligne.

savez-vous pourquoi ?

A voir également:

Vba redim preserve 2 dimensions
2 ecran pc - Guide
Word numéro de page 1/2 - Guide
2 comptes whatsapp - Guide
Vba attendre 1 seconde ✓ - Forum VB / VBA
3 bip long 2 bip court hp - Forum BIOS

5 réponses

Réponse 1 / 5

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 751
Modifié par pijaku le 14/08/2014 à 13:56

Bonjour,

Vous utilisez ReDim Preserve pour pouvoir créer un tableau dynamique. Il faut savoir que seule la seconde dimension du tableau peux être incrémentée.
Par conséquent :

dim tableau() as Variant
redim preserve tableau(1 to 2,1 to 2)
redim preserve tableau(1 to 2,1 to 3)

Remarque : Tu peux redimensionner et préserver ton tableau en une fois, si tu connais ces bornes à l'avance.
Ainsi :

Dim tableau() As Variant
ReDim Preserve tableau(1 To 13, 1 To 5)

Cordialement,
Franck

Réponse 2 / 5

f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
14 août 2014 à 14:00

Bonjour,

vous ne pouvez redimensionner que la derniere dimension:

redim preserve tableau(1 to 2,1 to 2) 

redim preserve tableau(1 to 2,1 to 3)

Réponse 3 / 5

quent
14 août 2014 à 14:06

merci beaucoup, dans mon cas j'ai juste besoins d'inverser les dimensions mais imaginons que je veuille changer les deux dimension
par exemple :
dim tableau() as variante
redim preserve tableau (1 to 2,1 to 2)
redim preserve tableau (1 to 3,1 to 3)
comment devrai je faire ?

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 751
14 août 2014 à 14:21

Dans ce cas, la seule solution à ma connaissance est de passer par un tableau intermédiaire, d'effacer ton tableau et de le redimensionner.

Comme le montre cet exemple :

Sub test()
Dim tableau() As Variant, Temporaire() As Variant

ReDim Preserve tableau(1 To 2, 1 To 3)
For i = 1 To 2
    For j = 1 To 3
        tableau(i, j) = "Liste " & i & j
    Next j
Next i

ReDim Preserve Temporaire(1 To 2, 1 To 3)
Temporaire = tableau

Erase tableau

ReDim Preserve tableau(1 To 3, 1 To 3)

For i = 1 To 2
    For j = 1 To 3
        tableau(i, j) = Temporaire(i, j)
    Next j
Next i

Erase Temporaire

tableau(3, 1) = "ajout1"
tableau(3, 2) = "ajout2"
tableau(3, 3) = "ajout3"

Debug.Print tableau(1, 2) & " - " & tableau(2, 3) & "- " & tableau(3, 2)
End Sub

Réponse 4 / 5

f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
14 août 2014 à 14:18

Re,

mais imaginons que je veuille changer les deux dimension Pas possible

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 5

quent
14 août 2014 à 14:20

ok merci
mais c'est quand meme mal fait...

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 751
14 août 2014 à 14:56

Peut être que tu n'as pas vu ma réponse : https://forums.commentcamarche.net/forum/affich-30657091-beug-avec-redim-preserve#6

quent
14 août 2014 à 16:32

desoler, je ne l'avait pas vu. c'est une methode qui doit etre asser longue si on utilise de grands tableaux mais ca marche. merci beaucoup a vous deux !

Discussions similaires

Dimensions L x l x H : comment lire ces infos ?

Erreur d'exécution 13 Incompatibilité de type

Great Teacher Onizuka SAISON 2

Méthode find dans VBA - Recherche de données sous Excel

Comment faire le signe au carré ² sur iPhone ?