Stocker des données dans un tableau VBA

Bonsoir, voici mon nouveau pb sur lequel je bute:

Je voudrais stocker des données trouvées grâce à un for next dans un tableau dans un autre feuille.

Cette autre feuille s'appelle formulaire et je voudrais stocker les données dans un tableau appelé "donnees"

voici mon code

If Left(ISIN, 2) = "FR" Then
        Worksheets("CAC 40").Activate
        For j = 2 To 238
            If Range("A" & j) = "ISIN" Then
                Range("B" & j).Value = donnees
                Range("C" & j).Value = donnees
                Range("D" & j).Value = donnees
                Range("E" & j).Value = donnees
                Range("F" & j).Value = donnees
                Range("G" & j).Value = donnees
            End If
        Next

    Else
        Worksheets("NASDAQ 100").Activate
        For j = 2 To 595
            If Range("A" & j) = "ISIN" Then
                Range("B" & j).Value = donnees
                Range("C" & j).Value = donnees
                Range("D" & j).Value = donnees
                Range("E" & j).Value = donnees
                Range("F" & j).Value = donnees
                Range("G" & j).Value = donnees
            End If
        Next

    End If

Après le .value faut-il directement mettre "donnees" ou comment indiquer que je voudrais qu'excel le stock dans un endroit spécifique?

Codialement

Bonjour,

Si tu pouvais joindre un fichier cela te permettra d'avoir une réponse rapide et de maitriser les boucles et d'assurer par la suite la maintenance du code..

Pour moi hélas ton code présente des anomalies majeures ainsi qu'une petite astuce pour pisser du code vba plus rapidement qui te sont exprimées ci-après :

'Je change le nom des feuilles suivantes (je pourrai t'expliquer dans ton fichier par la suite comment faire) : 
'Worksheets("CAC 40") par SH1
'Worksheets("NASDAQ 100") par SH2

 'question : ou est ta donnée que tu souhaites récupérer ?  
'car ici toutes les lignes et colonnes  visitées par tes deux boucles auront pour valeur = donnees

If Left(ISIN, 2) = "FR" Then
        For j = 2 To 238
            If SH1.cells(1, j) = "ISIN" Then
                SH1.cells(2, j) = donnees                                                                                                                                
                SH1.cells(3, j) = donnees
                SH1.cells(4, j) = donnees
                SH1.cells(5,j) = donnees
                SH1.cells(6,j) = donnees
                SH1.cells(7, j) = donnees
            End If
        Next

    Else

        For j = 2 To 595
            If Sh2.cells(1, j) = "ISIN" Then
                Sh2.cells(2, j)= donnees
                Sh2.cells(3, j) = donnees
                Sh2.cells(4, j) = donnees
                Sh2.cells(5, j) = donnees
                Sh2.cells(6, j) = donnees
                Sh2.cells(7, j)= donnees
            End If
        Next

    End If

Au plaisir de te relire

Amitié

Air_2

Merci pour votre temps passé..

En fait je m'explique: j'ai crée un userform où l'utilisateur choisit une action boursière, ensuite apparait le code ISIN de l'action dans le userform.

Si le code ISIN présent dans le userform commence par FR, VBA doit aller chercher dans la feuille CAC 40 les données correspondants au code ISIN. Pour cela j'ai fait un For Next, VBA analyse la colonne A et si le nom est égal au code ISIN du userform, alors Là je voudrais qu'il sotck les valeurs des colonnes B,C,D,E et F dans le tableau présent dans la feuille formulaire.

Comme il n'y a que 5 lignes par code ISIN (les 5 dates du 31 au 7 du mois suivant), je voudrais faire un nbcompte pour qu'au bout de 5 valeurs trouvées VBA s'arrete de chercher.

Une fois que les 5 lignes de valeurs sont dans le tableau l'utilisateur clic qur le bouton graphique et là j'ai trouvé un code pour générer un graphique.

Ci joint mon fichier.

merci d'avance

fichier en pièce jointe

mon fichier était trop gros..

Bonjour,

Tu as mis un fichier xlsm qui correspond a une fichier enregistré depuis MSO Excel 2007 embarquant des macros.

Hélas, je suis en 2003 si tu pouvais enregistrer ton fichier au format xls, je pourrai d'aider.

A très vite

Amitié

Air_2

Salut le forum

Air_2, depuis le temps que le pack de compatibilité est disponible, tu ne l'a pas encore installé.

Le lien Microsoft :

Mytå

Mytå a écrit :

Salut le forum

Air_2, depuis le temps que le pack de compatibilité est disponible, tu ne l'a pas encore installé.

Le lien Microsoft :

Mytå

Bonjour à tous et toutes et Grand MERCI Grand Maître Mytå,

Le patch vient d'être installé, je vais donc pouvoir performer.

Bonne journée et bonne fin de semaine

Air_2

Au cas où, je t'envoie le fichier en .xls..

Bonjour,

Tu trouveras ci-joint une proposition.

Au plaisir de te lire

Amitié

Air_2

Salut Air_2, franchement je sais pas quoi dire si ce n'est Merci.. Je vais essayer de comprendre comment tu as fais, c'est vraiment passionnant toutes les possibilités!

Tu as appris comment à utiliser VBA?

Encore merci j'espère être bientôt capable d'en faire autant..