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

  1.  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.  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
      2. 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
      4. 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
        1. 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. 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