Copier un extrait de tableau VBA dans Excel

gromit67 -
Zoul67 Messages postés 2001 Statut Membre - 25 févr. 2014 à 16:08

Bonjour à tous,

Voilà plusieurs jours que je cherche sans réel succès une méthode autre que une boucle pour copier une partie d'un tableau définie dans VBA dans une feuille Excel

Dim Tableau_f2 as Varient
Tableau_f2 = Feuil2.Range("A1:K1000").Value
Tableau_f2.range("A" & i & ":K" & j).Value=Feuil2.Range("A" & i & ":K" & j).value

J'aimerai savoir s'il y a un moyen simple d'écrire cette dernière ligne ou pas!

Merci d'avance de vos réponses

Afficher la suite

6 réponses

Réponse 1 / 6
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention 3 320
Qui + est:

Dim Tablo()
```
With Sheets(1)
     Tablo = .Range(.Cells(Debut, "A"), .Cells(Fin, "K")).Value
End With
```
Mets bien une zone excel en variable -tableau ou je suis débile ???

ET
```
With Sheets(2)
      .Range("A2").Resize(UBound(Tablo), 11) = Tablo
     .Activate
End With
```
-
retranscrit bien vers Excel à partir de A2 de la feuille2 les valeurs de la variable-tableau

RAS-LE BOL
C'est à décourager de filer des coups de mains

Zoul 67, Surtout excuse l'incruste
Michel
1
Réponse 2 / 6
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention 3 320

Bonjour

Tes explications sont floues:
D'après ton code tu copies un tableau de feuil2 dans le m^me tableau de feuil 2...

I et J correspondent à quoi ?

Michel
0
Réponse 3 / 6
gromit67

En fait le code ci-dessous n'est que ici que pour comprendre le fonctionnement de tableau VBA

Le but de ma macro est de copier une feuille dans un tableau VBA puis de pouvoir copier des extraits (plages) variables de ce tableau dans une autre feuille.

I et J correspondent aux lignes dans mon tableau que je souhaite copier. ces valeurs peuvent varier. exemple je souhaite copier la plage A100:K113 (i=100 j=113).
0
Réponse 4 / 6
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention 3 320
re,
j'vois pas le truc , en particulier copier un tableau pour ensuite dans la copie extraire une partie, mais....

la macro test permet de choisir facilement la hauteur du tableau
La macro extrait la partie entre debut et fin du tableau feuill1 et retranscrit les valeurs en feuille 2
```
Option Explicit
Sub Test()
'choix ligne debut et ligne fin
extraire_svt_choix 5, 122
End Sub

Sub extraire_svt_choix(Debut, Fin)
Dim Tablo()
With Sheets(1)
     Tablo = .Range(.Cells(Debut, "A"), .Cells(Fin, "K")).Value
End With

With Sheets(2)
     Application.ScreenUpdating = False
     .Range("A2: K10000").ClearContents
     .Range("A2").Resize(UBound(Tablo), 11) = Tablo
     .Activate
End With
End Sub
```
0
1. gromit67
  
  Merci de ta réponse michel_m mais ce n'est pas exactement ce que je cherche
  Pour être plus clair voici le code que je souhaite optimiser
  Cette macro consiste à trier ma feuille 2 en fonction de ma feuille 1. les plages trié sont alors copié dans la feuille 3.
  
  Sub test_optimise2()
  Dim k As Long
  Dim j As Long
  Dim l As Integer
  Dim t As Long
  Dim Tableau_j() As Variant
  
  t = Timer
  
  l = 0
  k = 1
  j = 21
  i = 21
  
  'Renvoie le nombre de plage de données (une plage correspond à 13 lignes)
  Do While Feuil2.Range("C" & j).Value > 0
  j = j + 13
  l = l + 1
  Loop
  
  ReDim Tableau_j(l)
  
  'Rentre dans un tableau vba les lignes qui sont balayé dans la feuille 2
  For k = 0 To l - 1
  Tableau_j(k) = 21 + (k * 13)
  Next k
  
  'La macro cherche la cellule "Ci" de la feuille 1 dans la feuille 2 en balayant les lignes donnés par le tableau vba (tableau_j)
  'Une fois trouvé la ligne est supprimé dans mon tableau VBA et donc elle n'est plus balayé par la suite
  'De plus lorsque la ligne est trouvé je recopie les valeurs de la feuille2 au niveau de la ligne trouvé dans la feuille trois
  'Au niveau de la cellule recherché de la feuille 1
  Do While Feuil1.Range("C" & i).Value > 0
  For k = 0 To l - 1
  h = Tableau_j(k)
  Set cellule = Feuil2.Range(Feuil2.Cells(h + 2, 2), Feuil2.Cells(h + 2, 6)).Find(What:=Feuil1.Range("C" & i).Value, lookat:=xlWhole, SearchDirection:=xlPrevious)
  If Not cellule Is Nothing Then
  Tableau_j(k) = Tableau_j(l - 1)
  l = l - 1
  ReDim Preserve Tableau_j(l)
  Feuil3.Range("A" & i & ":K" & i + 12).Value = Feuil2.Range("A" & cellule.Row - 2 & ":K" & cellule.Row + 10).Value
  Exit For
  Else
  End If
  Next k
  i = i + 13
  Loop
  
  Feuil3.Range("Q2") = Application.Round((Timer - t), 1) & " Sec"
  
  End Sub
  
  Mon idée est de rentrer les tableau de la feuille 1 et 2 dans un tableau VBA pour gagner en temps de calcul mais je ne sais pas comment faire des recherche dans des tableau VBA ni comment copier des plages de données à partir d'un tableau VBA.
  
  0
2. michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention 3 320
  
  Il faut bien te rendre compte que ce que tu demandes n'est pas forcément facile et que personne ne veut passer parfois plusieurs heures à essayer de résoudre un problème bénévolement pour se voir dire après coup « non vous n'avez pas compris mon problème (rarement, je n'ai pas bien expliqué, excuses moi) il faut en plus que.... »
  
  0
3. gromit67
  
  Je suis d'accord avec vous je me suis certainement mal exprimé. Ce que je cherche n'est pas forcément simple et n'existe peut être pas comme je le pense. Je m'excuse si cela a été mal compris.
  Je veux juste copier une plage d'une variable tableau dans une feuille excel sans passer par une boucle.
  Merci beaucoup de votre aide et d'avoir pris du temps pour me répondre
  
  0
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Réponse 5 / 6
gromit67

Merci Zoul67,
Je pense que ce n'est pas possible de faire comme je pensais!
Je vais être obligé de faire des boucle!
Je vais utiliser ton lien il est assez complet!
J'ai aussi trouver deux autres liens qui sont je pense intéressant
http://didier-gonard.developpez.com/tutoriels/office/excel/conceptualisation-variables-tableau-vba/
http://silkyroad.developpez.com/vba/tableaux/
Merci à tous d'avoir pris le temps de m'aider
0
1. Zoul67 Messages postés 2001 Statut Membre 149
  
  Pas besoin de boucle sur la page que je t'ai indiquée... :
  
  Sheets("intro").Range(Cells(1, 1), Cells(1, UBound(Tblo))).Value = Tblo
  
  0
2. gromit67
  
  Mais comment je fais si je veux par exemple que copier les valeurs de Tblo(4) à Tblo(10) dans Sheet.range("A5:A11").value?
  
  0
3. Zoul67 Messages postés 2001 Statut Membre 149
  
  Une partie de tableau ? --> je ne sais pas.
  Sans avoir les données sous les yeux, je ne comprends pas (à première vue, je me demande même pourquoi il faut une macro).
  
  0
4. gromit67
  
  L'idée c'est que j'ai un tableau de 52000 lignes et que je voudrais pouvoir en extraire 13 lignes de ce dernier puis les coller dans une feuille excel puis en prendre 13 autres et ainsi de suite.
  j'aimerai donc rentrer mes 52000 lignes dans une variable tablo puis arriver à prendre 13 lignes variables de ce dernier.
  pas simple ^^
  
  0
5. Zoul67 Messages postés 2001 Statut Membre 149
  
  Si ta feuille 3 contient les mêmes lignes que la feuille 2 (avec 52000 lignes), mais triées suivant l'ordre défini en feuille 1, j'aurais pensé qu'un tri suffirait (au besoin tu remplaces dans feuil1 et feuil2 les critères par des critères qui sont rangés en ordre alphanumérique - en préfixant avec un nombre).
  
  0
Réponse 6 / 6
Zoul67 Messages postés 2001 Statut Membre 149

Bonjour,

De Excel vers VBA et inversement :
http://www.excelabo.net/excel/arrays_feuille

A+
-1

Copier un extrait de tableau VBA dans Excel

6 réponses

Discussions similaires

Newsletters