[Résolu] Array pour stocker valeurs de chaque cellule du tableau

[fb62840]

Bonjour à toutes et à tous,

Voici ce que j'aimerais obtenir avec votre aide :

J'ai un tableau qui contient des données en lignes
J'aimerais récupérer dans une Array les valeurs contenues dans toutes les cellules de chacune des lignes non vides du tableau

J'aimerais ensuite pouvoir utiliser l'array pour :
- nommer l'onglet (données présentes en colonne A)
- placer les valeurs en Bi, Ci, Di en A3, en B4 et en E6

Merci pour votre aide

 

[tototiti2008]

Re : Array pour stocker valeurs de chaque cellule du tableau

Bonjour fb62842,

Pour récupérer les données de ton tableau dans un tableau VBA, tu peux faire un truc du genre

Dim Tablo
Tablo = sheets("Bios").range("A1").currentregion.value

pour la suite, je n'ai pas compris ce que tu souhaitais en faire...

 

[fb62840]

Re : Array pour stocker valeurs de chaque cellule du tableau

Bonjour,

Merci pour cette réponse rapide.

Je vais essayer d'expliquer plus clairement.

La feuille bios peut un plus grand nombre de lignes remplies (on ira peut être un jour jusqu'à 65535 lignes).
Pour chaque ligne il y a 4 informations à stocker (celles en colonne A, en colonne B, en colonne C et en colonne D).
Puis, avec les données stocker il faut :
créer dans un nouveau classeur :
- autant d'onglets que de lignes dans le tableau bios
- les nommer de ce que contient la ligne en colonne A
- placer la valeur de la ligne contenu en B, C, D respectivement dans la cellule A3, B4 et E6

J'espère que c'est plus clair ainsi.

merci pour ton aide

 

[tototiti2008]

Re : Array pour stocker valeurs de chaque cellule du tableau

Re,

ça sera joli un classeur de 65536 feuilles 😉

un essai

Sub test()
Dim Tablo, i As Long, Wkb As Workbook
    Tablo = ThisWorkbook.Sheets("Bios").Range("A1").CurrentRegion.Value
    Set Wkb = Workbooks.Add
    For i = Wkb.Sheets.Count To 2 Step -1
        Application.DisplayAlerts = False
        Wkb.Sheets(i).Delete
        Application.DisplayAlerts = True
    Next i
    For i = 2 To UBound(Tablo, 1)
        Wkb.Sheets(i - 1).Name = Tablo(i, 1)
        Wkb.Sheets(i - 1).Range("A3").Value = Tablo(i, 2)
        Wkb.Sheets(i - 1).Range("B4").Value = Tablo(i, 3)
        Wkb.Sheets(i - 1).Range("E6").Value = Tablo(i, 4)
        If i < UBound(Tablo, 1) Then Wkb.Sheets.Add After:=Wkb.Sheets(Wkb.Sheets.Count)
    Next i
End Sub

 

[fb62840]

Re : Array pour stocker valeurs de chaque cellule du tableau

Un très grand merci, c'est exactement ce dont j'ai besoin...
sans rire, ce sons plusieurs millions de données potentielles que je traite.

Bonne journée

 

[tototiti2008]

Re : [Résolu] Array pour stocker valeurs de chaque cellule du tableau

Re,

Je faisais juste remarquer qu'un classeur de 65536 feuilles, ça risque d'être très lourd à gérer
Pour m'amuser j'avais essayer d'insérer des feuilles dans un classeur à répétition (sans rien mettre dedans) et je crois à 6000 feuilles j'ai abandonné, trop long...
Juste une remarque à prendre en compte