Discussion :

[ecornut]

Bonjour - j'ai un tableau ( 10 colonne ) pour la lire et la mémoriser avec array aucun problème, pour copier les colonnes 1, 3 et 5 par exemple, j'ai un black out.. J'arrive à recopier la totalité des 10 colonnes .. je devrai ensuite supprimer les colonnes dont je n'ai pas besoin .. mais je pense qu il y a beaucoup plus simple, Merci pour votre aide ( Manu )

[patricktoulon]

Bonjour

oui en effet il y a beaucoup plus simple
voici un exemple qui copy ta plage A1:J10 sans les colonne 1,3,5
et les colle a partir de la ligne 15 su le même sheets

Code :

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

1
2
3
4
5
6
 
Sub Macro1()
    Range("A:A,C:C,E:E").EntireColumn.Hidden = True
Range("A1:J10").SpecialCells(xlCellTypeVisible).Copy Cells(15, 1)
Range("A:A,C:C,E:E").EntireColumn.Hidden = False
End Sub

tu devrais t'en sortir avec cela c'est pas trop compliqué
espérant que cela soit moins flou pour toi
modification pour cette méthode suite a mon ereur d'interprétation signaler par le vieux sanglier préhistorique

Code :

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

1
2
3
4
5
6
Sub Macro1()
   range ("A:J").EntireColumn.Hidden = True  
Range("A:A,C:C,E:E").EntireColumn.Hidden = false
 Range("A1:J10").SpecialCells(xlCellTypeVisible).Copy Cells(15, 1)
 range ("A:J").EntireColumn.Hidden = false
 End Sub

mille excuse au demandeur

[RyuAutodidacte]

Bonjour, coucou Patrick ,

autre solution à adapter :

Code :

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

1
2
3
4
5
6
7
8
Sub toto()
 
    With Feuil1.UsedRange
        VA = Application.Index(.Value, Evaluate("ROW(1:" & .Rows.Count & ")"), [{1,3,5}]) ' Code donné par Marc-L :1, 3 et 5 sont les colonnes choisies
    End With 'on peut aussi choisir l'ordre des colonnes comme [{5,3,1}] par exemple
    Feuil2.Range("A1").Resize(UBound(VA, 1), UBound(VA, 2)) = VA
 
End Sub

[patricktoulon]

bien RYU mais c'est l'inverse que l'on veut les colonnes 1,3,5 doivent sauter

tu t'es enfin permis d'utiliser app.index hein ca y est t'a compris

+1 car le code est propre

[RyuAutodidacte]

oui index c'est top et bien pratique dans des cas

Edit : astucieux l'idée de cacher les colonnes je t'ai mis

[patricktoulon]

re
ce que veux le demandeur

Code :

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

1
2
3
4
5
6
7
8
Sub toto()
 dim tableau 
    With Feuil1.UsedRange
        tableau = Application.Index(.Value, Evaluate("ROW(1:" & .Rows.Count & ")"), [{2,4,6,7,8,9,10}]) ' Code donné par Marc-L :1, 3 et 5 sont les colonnes choisies
    End With 'on peut aussi choisir l'ordre des colonnes comme [{5,3,1}] par exemple
    Feuil2.Range("A15").Resize(UBound(tableau, 1), UBound(tableau, 2)) = tableau
 
End Sub

@econut
les deux propositions sont parfaitement aptes a traiter des tableaux de grande taille il suffit d'adapter la plage

attention a usedrange quand même!!! des cellules non concernées par ton tableaux peuvent être prises en compte adapte plutôt ta plage textuellement

Code :

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

1
2
3
4
5
6
7
8
Sub toto()
 
    With Feuil1.range("A1:J"& cells(rows.count,1).end(xlup).row)
        VA = Application.Index(.Value, Evaluate("ROW(1:" & .Rows.Count & ")"), [{2,4,6,7,8,9,10}]) ' Code donné par Marc-L :1, 3 et 5 sont les colonnes choisies
    End With 'on peut aussi choisir l'ordre des colonnes comme [{5,3,1}] par exemple
    Feuil2.Range("A15").Resize(UBound(VA, 1), UBound(VA, 2)) = VA
 
End Sub

[ecornut]

Bonjour

oui en effet il y a beaucoup plus simple
voici un exemple qui copy ta plage A1:J10 sans les colonne 1,3,5
et les colle a partir de la ligne 15 su le même sheets

Code :

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

1
2
3
4
5
Sub Macro1()
    Range("A:A,C:C,E:E").EntireColumn.Hidden = True
Range("A1:J10").SpecialCells(xlCellTypeVisible).Copy Cells(15, 1)
Range("A:A,C:C,E:E").EntireColumn.Hidden = False
End Sub

tu devrais t'en sortir avec cela c'est pas trop compliqué
espérant que cela soit moins flou pour toi

Merci, c est une solution .. mon exemple était "simple" - je veux utiliser une fonction array pour une BD beaucoup plus volumineuse j ai d ailleurs utilisé le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
For i = 1 To 5
 
    ActiveCell.Value = vBD(i, 1)
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Value = vBD(i, 9)
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Value = vBD(i, 3)
    ActiveCell.Offset(1, -2).Select
 
Next i

[jurassic pork]

hello,
heu il est quand même fort le Patrick. De la demande initiale :

Bonjour - j'ai un tableau ( 10 colonne ) pour la lire et la mémoriser avec array aucun problème, pour copier les colonnes 1, 3 et 5 par exemple, j'ai un black out.

Il est arrivé à faire croire à tout le monde que c'était l'inverse qui était demandé (même au demandeur) :

bien RYU mais c'est l'inverse que l'on veut les colonnes 1,3,5 doivent sauter.

Où alors c'est moi qui ne comprend plus le français

Ami calmant, J.P

[patricktoulon]

tu a raison hihihihihi!!

je traite 2 sujet similaire en même temps l'autre c'est l'inverse


je ferais un bon Gourou moi hahahaha