Discussion :

[yalefe]

Bjr

j'ai un petit souci

j'ai un tableau a une dimension que je cherche a copier vers excel

Tab(0)= jaune
Tab(1)= vert
Tab(2)= rouge
....
et voila ce que je voudrais obtenir
A1 jaune
B1 vert
C1 rouge

j'ai fait un truc qui fonctionne mais qui est long ( Une boucle et j'utilise offset pour remplir chaque cellule )

existe-t-il une facon plus rapide ?

Par avance, merci

[Invité]

Bonjour et bienvenue sur le forum Office de DVP.

Peux-tu nous mettre le code du truc qui fonctionne et qui est long, il y a peut-être moyen de l'optimiser.

Philippe

[yalefe]

C'est pas que ce soit long ( j'ai ptet un peu exagéré)
mais je cherche à optimiser cette partie de traitement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
For j = LBound(tabres) To UBound(tabres) Step 1
    ActiveCell.Value = tabres(j)
    ActiveCell.Offset(0, 1).Activate
Next j

[Didier Gonard]

Bonjour,

Dans ce cas précis, en 1 ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A1:C1") = tabres

pour 3 données, si ton tableau en a plus, il n'y aura que 3 cellules remplies, tu peux dimentionner ta plage dynamiquement en fonction de Ubound, si ta plage est plus grande, tu auras des #N/A.

cordialement,

Didier

[yalefe]

merci de votre aide
mais dans votre exemple c'est assez statique

dans mon probleme ; le tableau est dynamique
et surtout la celllule de depart (" A1" dans votre exemple ) est également dynamique.

Sans trop rentrer dans les détails , ma macro cherche un n° de telephone dans une feuille et lorsque le n° est trouvé, elle colle les elements du tableau ( nom, rue, cp, ville, etc) dans les cellules adjacentes

[Didier Gonard]

Ben oui, pourquoi les réponses sont à côté de la plaque

Ben parcequ'elles répondent à la question posée et non pas à ce que le demandeur a dans l'idée...

J'ai précisé que l'on pouvait mettre des bornes dynamiques, ça dépend du reste du code. Exemple, en faisant intervenir un tirage au sort

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub DemoRempliCellRapide2()
Dim tablo As Variant
Dim I As Integer
Dim MaxI As Byte
Dim cible As Range
 
'Selectionnez une cellule vierge qui a 29 cell vierges à droite par exemple
 
MaxI = Int((30 * Rnd) + 1)
ReDim tablo(MaxI)
MsgBox MaxI
        For I = 0 To MaxI - 1 'demande un tableau à 1 dimention
            tablo(I) = Cells(I + 7, 3)
        Next I
Range(ActiveCell, ActiveCell.Offset(0, MaxI)) = tablo
End Sub

la partie construction du tableau m'es propre, c'est pour l'exemple, il y a simplement 30 données.

l'emplacement du "collage" dépendra de la cellule active (sélectionnée) et le Ubound variera de 1 à 30

PS : si tu as besoin d'explications sur ce code ou sur la façon d'adapter le tien, tu demandes...
PS2: Je n'utilise pas le même principe pour remplir mon tableau, ça marche aussi, mais me génère un tableau à 2 dimentions..

bon courage,

Didier