Discussion :

[LeGrosWinnie]

Bonjour,

Je suis en train de décéder, mes neurones s'éteignent un par un...
J'essaie simplement de déclarer un tableau dynamique à 2 dimensions et de faire des redim dessus au fur et à mesure (nombre d'éléments inconnu).

A chaque fois que j'arrive sur la deuxième ligne ReDim Preserve il refuse l'indice... Alors que le but est justement de changer l'indice sinon ça sert à rien. Logique.

Code :

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

1
2
3
4
5
Option Base 1
Sub test()
Dim Tab() As String
 
ReDim Preserve Tab(1 To 1, 1 To 1)

Jusque là le système accepte bien et je vois que de taille "vide" il passe bien à une taille (1,1) et j'arrive à mettre une valeur.

Ensuite, je boucle, et j'arrive sur une ligne :

Code :

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

ReDim Preserve Tab(2, 1)

Et là il refuse : l'indice n'appartient pas à la sélection.
Si j'enlève le Preserve il accepte pourtant bien et dans la fenêtre espion je vois bien Tab(1,1) et Tab(1,2) avec Tab(1,2) qui prend bien la nouvelle valeur sur la ligne de code suivante...



Code complet :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Option Base 1
 
Sub Filtrer()
 
Dim Team() As String
 
i = 2
TeamCol = 5
newIndex = 1
Cells(i, TeamCol).Select
CurTeam = Selection.Value
 
ReDim Preserve Team(1 To 1, 1 To 1)
 
Do
    If CurTeam <> "" And newIndex = 1 Then
        Team(newIndex, 1) = CurTeam
        newIndex = newIndex + 1
    Else
        pos = Application.Match(CurTeam, Team(), False)
        If Not IsNumeric(pos) Then
            ReDim Preserve Team(2, 1)
            Team(newIndex, 1) = CurTeam
            newIndex = newIndex + 1
        End If
    End If
    i = i + 1
    Cells(i, TeamCol).Select
    CurTeam = Selection.Value
 
Loop While CurTeam <> ""
 
End Sub

J'ai donc l'impression que VBA n'accepte pas le redimensionnement d'un tableau dynamique à n-dimension...
Bizarre quand même.

[clementmarcotte]

Bonjour,
J'ai donc l'impression que VBA n'accepte pas le redimensionnement d'un tableau dynamique à n-dimension...

FAUX

Bizarre quand même.

Rien de bizarre là-dedans. C'est expliqué dans l'aide de VBA

Un clic sur Redim et

[LeGrosWinnie]

F1 ne fait rien chez moi (je suis en entreprise là). Ça ouvre l'aide de l'aide.

Si vous développez en VBA à l’aide d’Office 2007 ou Office 2010, cette rubrique vous indique comment accéder à l’aide F1 en mode hors connexion pour VBA.

Accéder à l’aide du développeur en mode hors connexion pour consulter les références de développeur VBA pour Office 2010 ou 2007

Et je vois pas l'intérêt de ce genre de réponse franchement...

Prendre les gens pour des manches quand on ne les connait pas...

[clementmarcotte]

C'est dans l'aide de VBA. Si le Service de Dictature Informatique ne veut pas que les pauvres mortels ordinaires n'aient pas accès à l'aide de VBA, ce n'est pas mon problème.

Et puis, il y a MSDN

[LeGrosWinnie]

À force de vouloir considérer les utilisateurs comme des imbéciles patentés, on risque de se mettre dans le trouble.

LOL ta signature !

Bien joué ! Tu le respectes vraiment bien !

Tu crois que j'ai pas regardé dans l'aide de VBA ? Je te dis juste qu'un copier coller ne fonctionne pas à partir de l'aide et des articles msdn !

Vive l'abrutis ! Je demande ce que je fais de mal, je te demande pas ton avis sur comment je dois chercher de l'aide.

Quand on n'y connait rien on ne répond pas à une question, ça n'a aucun intérêt. Merci.

[Marc-L]

Bonjour, bonjour !

C'est pourtant écrit noir sur blanc que ce soit dans l'aide VBA (ce n'est pas notre problème si tu n'en as pas en local,
voir donc avec le service informatique afin qu'il fasse enfin correctement son boulot !)
comme sur le lien sur MSDN (si tu traînes ici tu n'as donc aucune difficulté à le lire ‼) …

Voilà, voilà ! (Je réserve ma signature par défaut pour le prochain échange si tant est qu'il y en ait un …)

______________________________________________________________________________________________________
Je suis Paris, Charlie, Bruxelles, …

[clementmarcotte]

Tu crois que j'ai pas regardé dans l'aide de VBA ? Je te dis juste qu'un copier coller ne fonctionne pas à partir de l'aide et des articles msdn !

Je n'ai jamais dit de faire du copier-coller. Tout ce que tu as à faire c'est de lire l'article au complet. Cela devrait te permettre de comprendre qu'il n'y rien de bizarre dans ton affaire. Cela fait une éternité que VBA est comme cela. Et puis, si tu avais lu l'article au lieu de juste faire du copier-coller, tu aurais traité quelqu'un d'autre d'abruti.

[cerede2000]

Bonjour à tous,

Juste pour souligner que depuis au moins la version 2k13 d'Office les aides quelques qu'elles soient ne sont disponibles qu'en ligne....
Donc si l'entreprise est très restrictive sur l'accès Internet beaucoup d'utilisateurs ne sont plus en mesures d'y accéder, ce qui semble être le cas de notre ami ici.

[Marc-L]

On peut avoir aussi une partie de l'aide en local, si, si !

Voir donc cette discussion …

[cerede2000]

Oui mais le problème reste entier
Internet restreint + PC restreint en installation j'imagine, il va devoir faire appel au bon vouloir de son service informatique

[Marc-L]

Cela m'est déjà arrivé d'être dans cette situation : soit le S.I. comprenait et effectuait le nécessaire
soit je leur renvoyais toutes les demandes que je ne pouvais traiter par manque de ressources locales !

Même si j'ai eu droit à des réunions ayant au départ un air de remontage de bretelles,
une fois mon point de vue exposé et une démo sur l'étendue du langage, un complément d'installation était obtenu !

Souvent c'était le S.I. prenant Office comme accessoire d'une importance négligeable et
l'intervenant n'y connaissant rien ou ne voulant pas se fouler effectuait une installation par défaut.
C'est sûr une installation personnalisée en allant cocher le nécessaire demande un certain effort au cerveau !

[edelweisseric]

Bonjour à tous
Bonjour LeGrosWinnie

Je ne sais pas si tu as réglé ton pb, mais au cas où, lis cet excellent tuto :

http://silkyroad.developpez.com/vba/tableaux/

tu y trouveras certainement la réponse.

Je m'y réfère très souvent.

Eric