Problème avec variable

erics83 · 11 Février 2018

Bonjour,

J'ai un fichier : en A des noms, en B des dates, en C le nom d'une activité

J'essaye de mettre en mémoire (pour ré-utilisation plus tard dans un diagramme Gantt) les informations.
J'ai fait

Code:

dim ident (50,100) ' nbr de noms,  , Nbr de dates

for i = 2 to 10000
ident(cells(i,1).value,cells(i,2).value)=cells(i,3)
next

Mais le code bloque car (je pense) on arrive pas à mettre une valeur alphanumérique (ici les noms) dans le tableau....
je pense que c'est tout simple, mais....pas trouvé....

Merci pour votre aide et/ou pistes

Staple1600 · 11 Février 2018

Bonjour le fil, le forum

@erics83

J'ai un fichier

Et nous on a que dalle!

Pas même l'ombre de la queue d'un petit fichier exemple fourni par tes soins

Theze · 11 Février 2018

Bonjour,

Ce serait plutôt ça que tu veux faire ?

Code:

Sub Test()

    Dim ident(1 To 3, 1 To 100)
   
    For i = 2 To 101
   
        ident(1, i) = Cells(i, 1).Value
        ident(2, i) = Cells(i, 2).Value
        ident(3, i) = Cells(i, 3).Value
       
    Next
   
End Sub

erics83 · 11 Février 2018

Merci Staple1600,

Effectivement avec un fichier test, c'est mieux....glups....sorry...

Merci Theze,
En fait, je pensais passer par un tableau, car ensuite, comme indiqué, je souhaite mettre tout ça sous forme de Gantt : en ligne 1 les dates et ensuite ligne 3 (le nom1), ligne 5(le nom2), etc... et ensuite écrire et/ou mettre en couleur la cellule (pour l"instant, je l'ai fait avec un sommeprod (cf Feuil2), mais je pense qu'il y a plus rapide, d'où cette idée de passer par un tableau

Staple1600 · 11 Février 2018

Re,

Pourquoi ne pas envisager d'utiliser un TCD?

erics83 · 11 Février 2018

Merci Staple1600,

Effectivement mon fichier test pourrait le suggérer, mais c'est un classeur test....j'ai de nombreuses colonnes et je souhaitais voir comment utiliser et/ou ré-utiliser les données (cf diagramme de Gantt), d'où l'idée de passer par des tableaux....

Merci pour ton aide,

Problème avec variable

erics83

XLDnaute Impliqué

Staple1600

XLDnaute Barbatruc

Theze

XLDnaute Occasionnel

erics83

XLDnaute Impliqué

Pièces jointes

Staple1600

XLDnaute Barbatruc

erics83

XLDnaute Impliqué

Discussions similaires