Microsoft 365 redim array ne marche pas

thenesol · 15 Novembre 2023

bonjour à tous

j'ai un array "tablo1" dont je ne voudrais garder que les 100 premières lignes

mais le code suivant ne le modifie pas, c'est à dire qu'il a toujours ses 8000 lignes
pourquoi ?

ReDim Preserve tablo1(1 To 100, 1 To ncol)

merci...

sylvanu · 15 Novembre 2023

Bonjour Thenesol,
Avec "Redim Preserve", on ne peut modifier que la dernière dimension. Dans votre cas vous ne pouvez redimensionner que le nombre de colonnes.

Si vous utilisez le mot clé "preserve", vous pouvez redimensionner uniquement la dernière dimension du tableau et que vous ne pouvez pas modifier le nombre de dimensions du tout.

Instruction ReDim (VBA)

Rubrique de référence sur Office VBA

learn.microsoft.com

Le plus simple est peut être de transférer les 100 première ligne du tablo1 dans un tablo2.

thenesol · 15 Novembre 2023

ok merci
c'est ce que j'ai fait, ça marche
mais laborieux, surtout que je dois conserver le nom Tablo1 pour la suite
et donc recopier tablo2 dans tablo1

sylvanu · 15 Novembre 2023

thenesol à dit:
donc recopier tablo2 dans tablo1

Ou renommer tablo1 en tablo2 dans la suite du code. Ce qui serait plus simple.

thenesol · 15 Novembre 2023

oui, mais non
comme je dois le faire sur differents tableaux, je vais faire une routine

patricktoulon · 15 Novembre 2023

Bonjour
c'est sans compter sur les idées farfelues à la patricktoulon
pour le coup je fait une macro redim_PreserveRow

demonstration

VB:

Sub test()
    Dim Tablo

    Tablo = Range("A1:CV25000").Value

    MsgBox "avant " & vbCrLf & "mon tableau a " & UBound(Tablo) & " lignes et " & UBound(Tablo, 2) & " colonnes "

    Redim_preserveRow Tablo, 1, 100

    MsgBox "apres " & vbCrLf & "mon tableau a " & UBound(Tablo) & " lignes et " & UBound(Tablo, 2) & " colonnes "
End Sub

Sub Redim_preserveRow(ByRef Tablo, minLig, MaxLig)
    Dim L
    L = Evaluate("ROW(" & minLig & ":" & MaxLig & ")")

    Tablo = Application.Index(Tablo, L, 0)
End Sub

thenesol · 15 Novembre 2023

interessant !
mais j'ai l'impression que ça ne marche pas avec un array de plusieurs colonnes ?

patricktoulon · 15 Novembre 2023

ben c'est justement le truc
alors si tu me dis que ca ne marche pas c'est que tu a un soucis

et pour info un array n'a pas de colonne il a des items
il faut savoir ;
c'est un array de x items ou une variable tableau 2 dimensions que tu veux redimer

thenesol · 15 Novembre 2023

ah, problème de sémantique,
je croyais qu'un array pouvait avoir plusieurs dimensions ?
alors disons tableau n dimensions
Merci...

patricktoulon · 15 Novembre 2023

ben si c'est un tableau alors mon truc marche
peut être que si tu donnait un fichier représentatif de problème on y verrais plus clair

thenesol · 15 Novembre 2023

voila un extrait du code :

Redim_preserveRow

ne conserve que la 1ere colonne

Sub Redim_preserveRow(ByRef Tablo, minLig, MaxLig)
Dim L
L = Evaluate("ROW(" & minLig & ":" & MaxLig & ")")

Tablo = Application.Index(Tablo, L, 0)
End Sub

Sub compare_3()
Dim ncol%, i%, j%, reduclg%, wb1 As Workbook
Dim tablo1, tablotemp As Variant
Dim ws1 As Worksheet
Dim Fichier1 As Variant

reduclg = 100
ncol = 10

Fichier1 = Application.GetOpenFilename("CSV Files (*.CSV), *.csv")
If Fichier1 = False Then MsgBox "Ouvrez '" & Fichier1 & "'...": Exit Sub ' pas de fichier on quitte

On Error Resume Next
Set wb1 = Workbooks.Open(Filename:=Fichier1, Local:=True)
If wb1 Is Nothing Then MsgBox "Ouvrez '" & Fichier1 & "'...": Exit Sub

tablo1 = wb1.Sheets(1).[A1].CurrentRegion.Resize(, ncol) 'matrice, plus rapide

Redim_preserveRow tablo1, 5, 10

End Sub

patricktoulon · 15 Novembre 2023

thenesol à dit:
voila un extrait du code :
Redim_preserveRow
ne conserve que la 1ere colonne

tu es serieux là ?

prends le botin et renseigne toi si il y a une place au alcolos anonymes

thenesol · 15 Novembre 2023

pardon ?
voilà ce que j'obtiens en sortie
à jeun

sylvanu · 15 Novembre 2023

Re,
@patrick,
Si l'array en question est strictement interne au VBA et non la copie d'un range, alors je n'ai pas trouvé comment votre fonction peut marcher.
Voir PJ. Je remplit un array 100*4 et je restitue un array 10*4, les deux restitutions sont les mêmes.
Où est le piège ?

thenesol · 15 Novembre 2023

pour ma part, plus précisement voici le contenu de tablo1 avant/après
si je lui demande de ne conserver que les lignes 5 à 10, il le fait mais ne garde que la 1ere colonne

Avant

après

Microsoft 365 redim array ne marche pas

thenesol

XLDnaute Junior

sylvanu

XLDnaute Barbatruc

Instruction ReDim (VBA)

thenesol

XLDnaute Junior

sylvanu

XLDnaute Barbatruc

thenesol

XLDnaute Junior

patricktoulon

XLDnaute Barbatruc

thenesol

XLDnaute Junior

patricktoulon

XLDnaute Barbatruc

thenesol

XLDnaute Junior

patricktoulon

XLDnaute Barbatruc

thenesol

XLDnaute Junior

patricktoulon

XLDnaute Barbatruc

thenesol

XLDnaute Junior

sylvanu

XLDnaute Barbatruc

Pièces jointes

thenesol

XLDnaute Junior

Discussions similaires