Discussion :

[bernardassyst]

Bonjour,

Ceci est mon premier post et j'éspére étre claire .
C'est assez simple je cherche a ajouter une colonne a mon tableau que j'ai créé a partir d'un range .
Voici ce que je tente de faire :

Code :

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

1
2
3
4
5
6
7
8
Dim File2TAB As Variant
File2.Activate
Set ongletsearch = File2.Worksheets(TypeCI)
ongletsearch.Select
dercol2 = ongletsearch.Cells(1, Cells.Columns.Count).End(xlToLeft).Column
derligne2 = ongletsearch.Range("B" & Rows.Count).End(xlUp).Row
File2TAB = ongletsearch.Range(Cells(1, 1), Cells(derligne2, dercol2)) ' dercol2 =65
ReDim Preserve File2TAB(derligne2, 66)

Je modifie bien la derniére dimention comme le prévoit le Redim Preserve et j'ai quand même une ereur "indice n'appartient pas a la selection" .
Je ne comprends pas .
Merci de votre aide

[patricktoulon]

Bonsoir

il me semble ,d'autre te le confirmeront que le redim preserve redim que le premier argument en l'occurrence ici derligne2

il te faut donc construire ton tableau transposé horizontalement puis le transposer ou faire deux fois la manœuvre

1. récupération sur le sheets
2. transpose
3. redim preserve
4. transpose

[eriiic]

Bonjour,

Tu ne spécifies pas l'indice de début qui est souvent 0 par défaut.
Or les ranges copiés démarrent à 1. (purée, j'avais fait 3 fautes dans cette phrase. Y'a patrick qui m'a contaminé :-) )
Essaie avec ReDim Preserve File2TAB(1 to derligne2, 1 to 66)
ou bien tu prends directement une colonne de plus sur la feuille.
Tu sais qu'il y aura des éventuellement données bidons dedans si la colonne est utilisée, à toi de penser à initialiser correctement si besoin celles qui n'ont pas été modifiées.
eric

[Invité]

Bonsoir,

Il n'est possible de redimensionner qu'une variable prédéfini en tableau!

Dim File2TAB() As VariantDe plus il n'est pas possible de redimensionner un tableau à plusieurs dimensions plusieurs fois!

[Pierre Fauconnier]

Salut.

[...]
Essaie avec ReDim Preserve File2TAB(1 to derligne2, 1 to 66)[...]

Je vais illustrer la réponse d'Eric pour montrer qu'un tableau d'indice 1 est bien créé lorsqu'on lui affecte une plage, qu'il a bien deux dimensions et que Preserve permet de modifier sa dernière dimension.


Lorsque tu crées un tableau sur base d'une plage, Excel crée un tableau de (1 to nbLignesPlage, 1 to nbColonnesPlage). Tu as donc un tableau à deux dimensions. Si tu crées un tableau sur base d'une plage de x lignes et de 1 colonne, tu auras aussi un tableau à deux dimensions, soit x lignes et 1 colonne, comme l'illustre le code suivant.

Pour pouvoir affecter une plage à une variable tableau, il faut déclarer la variable qui deviendra le tableau sans la typer ni la dimensionner, comme l'illustre le code. C'est l'affectation de la plage à cette variable qui en fait un tableau à deux dimensions, redimensionnable avec PRESERVE sur sa deuxième dimension.

Code :

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

1
2
3
4
5
6
7
8
Sub Test()
  Dim TableauUneDimension(1 To 3) ' Tableau à UNE dimension
  Dim TableauPlage
 
 
  TableauPlage = Range("a1:a3") ' Tableau à DEUX dimensions d'UNE colonne
  ReDim Preserve TableauPlage(1 To UBound(TableauPlage), 1 To 2)
End Sub

Voici un exemple de REDIM sur un tableau issu d'une plage de données. Tu peux constater qu'au départ, le tableau a deux dimensions mais une colonne (1 to 3, 1 to 1). Après le REDIM, il a deux dimensions mais deux colonnes (1 to 3, 1 to 2).

C'est cela que tu voulais?

Avant le REDIM


Après le REDIM sur la deuxième dimension

[patricktoulon]

pour compléter la réponse de Pierre Fauconier

tout est un question de dimensionnement et la je ne parle pas de la dimension tableau a proprement parler mais de la méthode

alors DIM ou REDIM ou REDIM PRESERVE tout est la en fait

exemple
dim tablo(3,4) 'tableau de 3 lignes sur 4 colonnes avec dim on est bloqué car on dimensionne le tablo définitivement

redim tablo(3,4) 'tableau de 3 lignes sur 4 colonnes avec redim on ne bloque pas un redimensionnement éventuel du tableau

mais attention il redimentionne il n'ajoute pas ce qui a pour effet de vider les valeurs existantes

redim preserve tablo(3,4) 'tableau de 3 lignes sur 4 colonnes re dimensionne le tablo en gardant les valeurs existantes

conclusion si on veux utiliser une variable tableau mufti dimension et qu'il est susceptible qu'il soit redimensionné ne pas utiliser DIM mais REDIM au début

exemple ici on va partir d' un tableau de 10 lignes su 2 colonnes et on terminera avec 10 lignes sur 3 colonnes

pour vérifier ce que je dis il suffit de supprimer le "Re" en rouge

essayez avec et sans

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
Sub test()
 Dim lig#,col#   
ReDim tablo(10, 2)' tout est la des le départ 
    'je remplie le tablo de 10 lignes sur 2 colonnes
    For lig = 0 To UBound(tablo)
        For col = 0 To 1
            tablo(lig, col) = "ligne " & lig & ": col" & col
        Next
    Next
    ReDim Preserve tablo(10, 3)    'redim preserve ne redimention qu'n seul argument ici on redim les colonnes (on ajoute une)
    'je ne rerempli la 3 colonne pour l'exemple
    For lig = 0 To UBound(tablo)
        tablo(lig, 2) = " ligne " & lig & ": new col" & 2
    Next
    Cells(1, 1).Resize(UBound(tablo), 3) = tablo
    
End Sub

voila

ps :
un petit détail qui a son importance aussi
redim a la même valeur en tant que déclaration que dim autrement dit si la mention "option explicit" se trouve en haut de module il n'y aura pas d'erreur "variable non définie"

[Pierre Fauconnier]

[...]

conclusion si on veux utiliser une variable tableau mufti dimension et qu'il est susceptible qu'il soit redimensionné ne pas utiliser DIM mais REDIM au début
[...]

Sauf qu'ici, on parle bien de créer un tableau sur base d'une plage.


On ne peut donc pas déclarer la variable avec REDIM puisqu'on ne peut pas donner de dimensions au tableau au moment de la déclaration.

REDIM Tablo générera une erreur de compilation à cause de l'absence de dimensions initiales. Pour déclarer une variable qui deviendra un tableau suite à l'affectation de la plage, il faut la déclarer sans type et sans dimensions => Dim Tablo...

On pourrait déclarer Dim Tablo As Variant mais je n'en voit pas l'intérêt puisque Dim Tablo sans typage déclare une variable de type Variant.

Juste pour terminer sur le REDIM... Utilisé sans Preserve, il permet de redimensionner le tableau sur une ou plusieurs de ses dimensions, puisqu'en fait il annule le tableau original pour en créer un nouveau.

[patricktoulon]

re
oui je viens de relire le bout de code du demandeur
alors non c'est pas possible

Code :

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

1
2
dim tablo
  tablo=range(.....)

a le même effet que

Code :

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

dim tablo(x,y)

son dimensionnement est définitif

[eriiic]

Bonjour,

son dimensionnement est définitif

du définitif très provisoire ;-) :

Code :

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

1
2
3
Dim tabl
tabl = [A1:D3].Value
ReDim Preserve tabl(1 To 3, 1 To 10)

Mais bon, autant prendre une colonne de plus au moment de la lecture, elle sera à dispo. Et comme en plus ça n'intéresse pas du tout le demandeur...
eric

[Pierre Fauconnier]

re
oui je viens de relire le bout de code du demandeur
alors non c'est pas possible

Code :

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

1
2
dim tablo
  tablo=range(.....)

a le même effet que

Code :

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

dim tablo(x,y)

son dimensionnement est définitif

Mais oui mais oui

C'est pour cela qu'Eric a donné la solution dans le message 3

[...]
Essaie avec ReDim Preserve File2TAB(1 to derligne2, 1 to 66)[...]

Solution que j'ai illustrée et commentée dans ma réponse, qui montre bien que la variable, déclarée en simple variant, était bien devenue un tableau après avoir reçu le range et qu'on lui avait bien ajouté une colonne après le redim...

Donc, il y a bien moyen de redimensionner, au contraire de ce que tu prétends (As-tu lu et essayé la proposition d'Eric ou la mienne? J'en doute)

[...]
Et comme en plus ça n'intéresse pas du tout le demandeur...
eric

Eric, je n'ai pas compris ce passage de ta réponse...

[unparia]

Bonjour
Ce qui m'interpelle personnellement est cette partie du message du demandeur :

C'est assez simple je cherche a ajouter une colonne a mon tableau que j'ai créé a partir d'un range .

Le but de ce rajout (l'utilisation de cette colonne ajoutée) n'est pas exposé. Ne l'est pas non plus l'utilisation du tableau ainsi transformé.
Il n'est pas impossible que l'exposé de ces aboutissants conduise à procéder différemment.

[eriiic]

Bonjour,

Et comme en plus ça n'intéresse pas du tout le demandeur...
eric
Eric, je n'ai pas compris ce passage de ta réponse...

Oui, mal formulé, il était tard ;-) Je voulais dire :
Mais comme de toute façon ça n'intéresse pas du tout le demandeur...
Qu'on pouvait lui faire toutes les propositions du monde, bonnes ou mauvaises, il ne semble pas beaucoup s'intéresser aux réponses.
eric

[Pierre Fauconnier]

[...]
Il n'est pas impossible que l'exposé de ces aboutissants conduise à procéder différemment.

Sage réflexion. En fait, c'est toujours la question que nous devrions nous poser avant de répondre sur le plan technique:le pourquoi avant le comment...

Cela dit, au vu des réponses erronées formulés par certains, j'ai souhaité préciser les possibilités du Redim sur un tableau créé sur base d'une plage

Bonsoir,

Il n'est possible de redimensionner qu'une variable prédéfini en tableau!

Dim File2TAB() As VariantDe plus il n'est pas possible de redimensionner un tableau à plusieurs dimensions plusieurs fois!

Hum... Le code suivant fonctionne pourtant très bien et TableauPlage est bien redimensionné deux fois

Code :

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

1
2
3
4
5
6
7
8
9
Sub Test()
  Dim TableauUneDimension(1 To 3) ' Tableau à UNE dimension
  Dim TableauPlage As Variant
 
 
  TableauPlage = Range("a1:a3") ' Tableau à DEUX dimensions d'UNE colonne
  ReDim Preserve TableauPlage(1 To UBound(TableauPlage), 1 To 2)  ' Première modification de la seconde dimension
  ReDim Preserve TableauPlage(1 To UBound(TableauPlage), 1 To 20)  ' Seconde modification de la seconde dimension
End Sub

[patricktoulon]

Bonjour
oui autant pour moi j'ai complètement zappé le fait que l'on est en base 1 avec une plage

j'essayais redim preserve(0 to x,0 to y)

[bernardassyst]

Merci à tous de vos réponses , j'ai testé :

Code :

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

redim préserve (File2TAB (1 to der ligne, 1 tout 66)

et cela fonctionne ,j ai bien ma colonne supplémentaire

Je vais relire tous vos commentaires pour mieux comprendre les tableaux.
Encore merci

[unparia]

Bonjour

(1 to der ligne, 1 tout 66)

L'"Anglais sans peine" peut aller se rhabiller, avec son classique "from two to two to two"

[Pierre Fauconnier]

Bonjour

L'"Anglais sans peine" peut aller se rhabiller, avec son classique "from two to two to two"

Je suis dernièrement tombé sur les "sorcières suédoises transsexuelles" en anglais...

[CODE](1 to der ligne, 1 tout 66) /CODE]

Ceci dit, Jacques... C'est merveilleux le VBA, non? Parce qu'essayer avec cette ligne et que ça fonctionne, ça tient du miracle...