manipulation des tableaux en vba

Version imprimable

12/04/2016, 21h29
tigeline01

1 pièce(s) jointe(s)

manipulation des tableaux en vba
Bonjour tout le monde
Mon code marche bien mais je veux le modifier et je cherche de l'aide,
Au niveau de mon macro je veux juste mettre toutes données dans le tableau avant de le transférer sur la feuile.
Actuellement mon code récupére une ligne dans le tableau et le transfère au même moment ,mais je veux qu'il recupere le tout dans le tableau et à la fin de la boucle le transfere sur la feuille.
je veux pas que ce bout de code se trouve dans la boucle
Code:

1 2 3 4 5 6 With Feuil3 Set Plg2 = .Range("A" & j & ":O" & j) 'Set Plg2 = .Range("A1:N1") Plg2.Value = MonTab1 End With
12/04/2016, 21h34
joe.levrai

Bonjour,

sans voir la procédure complète, en précisant la partie que tu souhaites modifier, ça va être difficile
13/04/2016, 02h31
clementmarcotte

Le texte de Pierre Fauconnier est pourtant bien clair.

Puis in fichier de macros c'est encore pire.
13/04/2016, 02h39
tigeline01

Bonjour
la procedure complete est sur la feuille excel en piece jointe ,ouvrez le fichier et mettez ALT +F11 tu trouvera tout le code
Merci
13/04/2016, 16h43
joe.levrai

Bonjour,

c'est sympa d'avoir pris le temps de nous expliquer comment consulter le code VBA rédigé dans un classeur Excel.

Cependant, si tu avais pris ce temps pour plutôt ouvrir toi-même le VBE et copier le code pour le coller dans le message, on aurait eu ce qu'on attendait.

Pour des raisons de sécurité dans un premier temps (macros virus), de respect des règles du forum dans un second temps, c'est au demandeur d'apporter les éléments nécessaires à la compréhension du problème, sans obliger les contributeurs à télécharger un fichier.
Qui plus est, il n'y a plus de notion de partage si on s'échange des classeurs sans publier les codes dans les messages. Il faut penser au futurs visiteurs qui auraient les mêmes questions.

Les contributeurs bénévoles ne vont pas en plus multiplier les actions à faire pour comprendre le problème et tenter de le résoudre.

A toi de jouer

Bonjour.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Option Explicit
 
Public Sub recup2()
 
    Dim MonTab1 As Variant
    Dim Plg1 As Range
    Dim ligDest
    Dim Z
    Dim nbr
    Dim i
    Dim col
 
    With Feuil1
 
        .Range("A1:O1").Copy Feuil3.Range("A1")
        ligDest = 2
 
        Set Plg1 = .Range("A2:O" & .Range("A" & .Rows.Count).End(xlUp).Row)
 
        MonTab1 = Plg1.Value
 
        ReDim lign(1 To 1)
 
        For i = LBound(MonTab1, 1) To UBound(MonTab1, 1)
 
            Z = MonTab1(i, 9)
            If Z = "c" Then
 
                nbr = nbr + 1
                ReDim Preserve lign(1 To nbr)
                lign(nbr) = i
 
            End If
 
        Next i
 
    End With
 
    ReDim matab2(1 To nbr, 1 To UBound(MonTab1, 2))
 
    For i = 1 To nbr
 
        For col = 1 To UBound(MonTab1, 2)
            matab2(i, col) = MonTab1(lign(i), col)
        Next
 
    Next
 
    Feuil3.Cells(ligDest, 1).Resize(UBound(matab2, 1), UBound(matab2, 2)).Clear
 
    Feuil3.Cells(ligDest, 1).Resize(UBound(matab2, 1), UBound(matab2, 2)).Value = matab2
 
End Sub