Vba : tableau vers Range sans boucle "For ... next"

Résolu
ClaudeDordogne -  
Bonjour,
je désire transférer un tableau numérique vers un plage de cellules excel
exemple 
Tab(1)=5
Tab(2)=18
Tab(3)=12
Tab(4)=42

comment obtenir 
with activesheet
cells(3,5)=tab(1)
cells(3,6)=tab(2)
cells(3,7)=tab(3)
cells(3,8)=tab(4)
end with

sans utiliser de boucle "for next" ni de liste de commandes itératives(comme ds mon exemple)
ceci car j'ai des dizaines de milliers de données ... et que les boucles "for next" sont très longue...
j'ai essayé 
.range("C3:F3")=tab

j'obtient le même nombre dans chaque cellule (ce qui fonctionne si tab serait un "range"...)
ps je suis sous excel 2007
merci d'avance
Claude

EDIT : Ajout des balises de code (jordane)

8 réponses

  2.  f894009
    Bonjour Jordane45 et ClaudeDordogne

    tab ne peut pas etre utililise en variable, mot reserve VBA, VB et autre

    declarer un tableau et pour le resize si meme ligne, pas de nombre a mettre pour ligne 

    Sub test()
    Dim tabl(4)

    tabl(0) = 5
    tabl(1) = 18
    tabl(2) = 12
    tabl(3) = 42
    With ActiveSheet
        .Range("C3").Resize(, UBound(tabl)) = tabl
    End With
End Sub
    1. ClaudeDordogne Auteur
      Bonjour Jordane45

      pour la coloration syntaxique, il n'y a pas le choix VBA lorsque l'on clique la flèche du 4eme bouton, et je n'arrive pas à mettre la coloration syntaxique ici dans :
      Dim tabl(4)
      tabl(4) = 42

      il ne fait que rajouter 
      Dim tabl(4)
         tabl(4) = 42


      merci pour ton aide

      de plus, je suis particulièrement agréablement surpris de l'EFFICACITE et de la promptitude des réponses sur ce forum

      encore MERCI
      Claude
      1. pijaku Modérateur
        Salut,

        La bonne couleur, pour le VBA, comme pour tous les VB est le choix : basic dans la liste déroulante de coloration syntaxique.

        A+
      2. ClaudeDordogne Auteur
        @pijakuSalut,
        j' essaie à nouveau:
        j'ai fait
        Dim tabl(4)
        tabl(4) = 42
        je choisi "basic" et...
        cela a donné 
        Dim tabl(4) 
tabl(4) = 42

        et Cela MARCHE!
        l'erreur que j'ai faite était de mettre des espaces avant tabl(4)=42 pour essayer de "tabuler"!
        donc ici je n'ai pas mis d'espace ... et cela fonctionne!
        merci encore, et cela me confirme dans l'efficacité de ce forum!!! :))
        Claude de Dordogne
    2. ClaudeDordogne Auteur
      Bonjour Jordane45 et f894009

      Génial, cela fonctionne :)

      juste un point

      Dim tabl(4)
      tabl(4) = 42

      42 (soit tabl(4)) n'apparait pas, on a que les 3 premiers (5,18,12)
      si on met tabl(5) meme si on ne défini pas tabl(5) : on a tout
      le dernier element de tab n'est il pas pris en compte?

      en ce qui concerne la coloration syntaxique, étant donné que c'est ma premiere question sur le forum je ne savais pas que cela existait, maintenant je l'utiliserai.
      on se sent VRAIMENT moins seul... :))
      TRES CORDIALEMENT
      Claude
      2. ClaudeDordogne Auteur
        rebonjour,
        je viens de m'apercevoir que les données sont mises en ligne
        ici en c3, d3, e3...
        en fait, je voudrais les mettre en colonne
        c3 ,c4,c5....

        Merci de votre aide ... si précieuse :))
        Claude
        1. f894009
          Re,

          ceci doit le faire, si meme colonne pas de nombre pour les colonnes 

          With activesheet 
   .Range("C3").Resize(UBound(Tab)) = Tab
End With
          1. ClaudeDordogne Auteur
            bonjour,
            Merci,
            mais cela ne fonctionne pas,
            en effet, rien n'est afficher.
            cordialement
            Claude
          2. f894009
            Re

            autant pour moi (copier/coller sans modifie le Tab 

            With activesheet 
   .Range("C3").Resize(UBound(tabl)) = tabl
End With
          3.  f894009
            Re,

            aurait ete mieux si j'avais pris le temps de tester 

            With ActiveSheet
        .Range("C3").Resize(UBound(tabl)) = Application.Transpose(tabl)
    End With
          4. ClaudeDordogne Auteur
            @f894009bonsoir
            Super , cela fonctionne
            juste un petit truc: 

            Resize(UBound(tabl) )

            ne permet d'afficher que 5,18,12 (c'est à dire qu'il manque le dernier élément du tableau)

            en mettant : 
            Resize(UBound(tabl) + 1)

            on affiche 5,18,12,42 (c'est à dire tout le tableau, y compris le dernier élément)

            je ne sais pas pourquoi .... 

            Dim tabl(4)
tabl(1) = 5
tabl(2) = 18
tabl(3) = 12
tabl(4) = 42
With ActiveSheet
.Range("C3").Resize(UBound(tabl) + 1) = Application.Transpose(tabl)
End With


            En tout cas Mille Merci
            Très Cordialement
            Claude
          5. f894009
            @ClaudeDordogneBonjour,
            ce que j'ai ecrit le 13/01/2015 a 11:37, avec petite rectification ensuite sur l'ecriture des cellules

            Dim tabl(4) cela va de tabl(0) a tabl(3) donc 4 elements 

            Sub test()
    Dim tabl(4)

    tabl(0) = 5
    tabl(1) = 18
    tabl(2) = 12
    tabl(3) = 42
    With ActiveSheet
        .Range("C3").Resize(, UBound(tabl)) = tabl
    End With
End Sub


            With ActiveSheet
.Range("C3").Resize(UBound(tabl)) = Application.Transpose(tabl)
End With
        2.  f894009
          Re,

          pour le resize, il faut tenir compte aussi des dimensions du tableau: tableau simple ex 
          tabl(4)

          tableau deux dimensions ex 
          ReDim tabl(NbLignes, NbColonnes)


          Sub tableau_LC()
    Dim tabl() As Double
    
    NbLignes = 24 'exemple, en fait varie à chaque appel de cette Sub
    NbColonnes = 10 'exemple, en fait varie à chaque appel de cette Sub
    ReDim tabl(NbLignes, NbColonnes)
    ' ici on rempli le tableau Tabl
    For x = 0 To 23
        For y = 0 To 9
            tabl(x, y) = x + 1
    Next y, x
    With ActiveSheet
        .Cells(1, 1).Resize(UBound(tabl, 1), UBound(tabl, 2)).Value = tabl
    End With
End Sub
          1. claudedordogne
            MERCI
            Vous êtes SUPER!
            en plus j'ai appris que on pouvait mettre 
            next y,x

            à la place de 
            next y
next x

            Discussions similaires

            Méthode find dans VBA - Recherche de données sous Excel
            baissaoui

            0 réponse
            erreur d'execution 9, l'indice n'appartient pas à la sélection
            isidoh

            18 réponses
            "L'indice n'appartient à la sélection" + VBA
            fleur.31

            2 réponses
            VBA excel : résoudre problème de capacité.
            Juan Pedro

            9 réponses
            [Excel] Méthode Autofill dans une macro
            Arn's

            2 réponses