Résultat de Split dans tableau 2D VBA

Résolu/Fermé

Galgante - 2 nov. 2010 à 14:17
Galgante - 3 nov. 2010 à 10:12

Bonjour,

Je cherche à récupérer des valeurs dans une feuille 1 (colonne 1) et les placer dans un tableau à 2 dimensions.

- Description du contenu de ma colonne feuille 1: 480 lignes, le contenu de chaque ligne est un ensemble de valeurs séparées par des virgules (sur 1 colonne)
Ligne 1 = [valeur1, valeur2, valeur3,... ,valeur 20]

Je cherche à mettre le résultat de

For i = 0 To 480
    tab1(i) = Split(Worksheets("feuille 1").Cells(i + 1, 1), ",") 'Séparation 
   Next i

Dans le tableau suivant:

Dim tab2(480,20)

NB: Lors d'un test d'espionnage de la variable tab1, le debugger me sort un tableau, mais je ne trouve pas comment y accéder en code...

A voir également:

Parcourir un tableau vba
Tableau word - Guide
Tableau ascii - Guide
Tableau croisé dynamique - Guide
Trier un tableau excel - Guide
Comment imprimer un tableau excel sur une seule page - Guide

3 réponses

Réponse 1 / 3

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
2 nov. 2010 à 15:02

Bonjour,

Par exemple :

Dim i As Integer
Dim j As Integer

     For i = 0 To 480
          For j = 0 To 20
               MsgBox tab2(i,j)
          Next j
     Next i

;o)

Galgante
2 nov. 2010 à 15:14

Bonjour,

Merci pour la tentative, mais mon problème n'est pas le fait de parcourir un tableau 2D, mais de récupérer dans un tableau 2D les données générées par la fonction "Split"

Réponse 2 / 3

Galgante
2 nov. 2010 à 15:13

A la place d'un code VBA, j'ai utilisé la fonction Excel suivante, qui fonctionne très bien:
Données/Convertir...
J'ai ensuite sélectionné ma colonne...

Si quelqu'un sait comment faire en VBA, je suis tout de même preneur.

Cdlt.

michel_m Messages postés 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 313
2 nov. 2010 à 15:58

bonjour

en VBA restitution en feuille2 (testé sur 3 lignes et 2 valeurs par ligne)

Sub decouper_lig()
Dim derlig As Integer
Dim tablo, temp
derlig = Range("A1000").End(xlUp).Row - 1
ReDim tablo(derlig, 19)
For cptr = 0 To derlig
    temp = Split(Sheets(1).Cells(cptr + 1, 1), ",")
    For col = 0 To UBound(temp)
        tablo(cptr, col) = temp(col)
    Next
Next
Sheets(2).Range("A1:B" & derlig + 1) = tablo

End Sub

Galgante
3 nov. 2010 à 08:48

Merci, je vais tester ça.

Réponse 3 / 3

Galgante
3 nov. 2010 à 10:12

Voici la version finale de mon code, tirée de la version de michel_m:

Sub decouper_lig()
    Dim derlig As Integer
    Dim tablo, temp
    Dim col As Integer
    
On Error GoTo Errorr
    derlig = Worksheets("VAR L39 ligne").Range("A1000").End(xlUp).Row - 1
    col = 0
    ReDim tablo(derlig, 19)
    For cptr = 0 To derlig
        temp = Split(Worksheets("VAR L39 ligne").Cells(cptr + 1, 1), ",")
        For col = 0 To 19
            tablo(cptr, col) = temp(col)
        Next col
    Next cptr
    Worksheets("Feuil2").Range("A1:T" & derlig + 1) = tablo
    Exit Sub
Errorr:
    MsgBox Err.Number & " " & Err.Description & vbCrLf & "Col: " & col & vbCrLf & "Lig: " & cptr & vbCrLf & "Derlig: " & derlig
    Worksheets("Feuil2").Range("A1:T" & derlig + 1) = tablo
End Sub

Encore merci.

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop

a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

Formule taux de marque

Bonjour,

Salut,

Dans un tableau Excel :

D23 (PA HT) = 100.00 €
C23 (Marque) = 30% (soit un coef de 1.429 pour l'exemple)
B23 (PV HT) = 142.86 €

Comment faire en sorte que lorsque je mets mon taux de marque (10, 20, 30, ou peu importe le taux) il me donne le résultat en B23 comme si j'avais appliqué le coef ?

Actuellement ma formule me donne 130.00 € en B23, hors c'est pas bon. Réellement ca fait 23.08% de marque.

Merci

Configuration: Windows 7 / Mozilla 11.0

--
L'esprit c'est comme un parachute, qui est utile seulement quand il est ouvert.

Trouver le nom d'un tableau avec sa photo.

Bonjour,

Comment trouver le nom d'un tableau et son peintre avec sa photo à partir de sa photo ??

Bibliothèque

Bonjour,
Je cherche le moyen de rétablir la bibliothèque sur mon écran de windows 10, qui a disparue suite à une mise à jour. Merci d'avance à celui qui peut me donner la solution.

--
Cosjac85

Impossible d'afficher le rapport de tableau croisé dynamique sur un rapport

Bonjour,
tous les mois je fais des indicateurs sécurité et ce mois ci j'ai un problème : je mets à jour ma base de donnée et ensuite je mets à jour les tableaux croisés dynamiques
celà fonctionne pour presque tous mes tableaux sauf pour 2 où la réponse est la suivante :
impossible d'afficher le rapport de tableau croisé dynamique sur un rapport existant
je n'arrive pas à trouver l'erreur que j'ai pu commetre
merci de votre aide