Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Copier un Range dans une variable

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
W

Will-e-coyote

XLDnaute Occasionnel
Bonjour le Forum,

Je n'arrive pas a copier une selection (Filtrée) dans une variable sous VBA.

La variable (My_Transactions) est de type Range et est censée accueillir une selection issue d'un filtre (de la zone nommée TR_Table). Je m'en sers en fait de tampon pour me permettre de ne selectionner que les colonnes (champs) qui m'interressent avant d'etre collée dans un tableau récapitulatif.

Le filtrage se passe bien et j'ai testé en copiant directement sur une autre feuille, j'ai le resultat escompté. Je pourrai manipuler ce resultat mais le problème c'est que j'ai une deuxième sélection à faire ailleurs et ou les champs ne sont pas ordonnés de la même façon....

Ca parait simple mais je n'y arrive pas et j'enrage. Quelqu'un a une idee ?

Code: 
    Sheets("Budget Transactions").Select
    Range("TR_Table").Select
    Selection.Copy Range("My_Transactions")

La derniere ligne fait planter sachant que j'ai aussi essayé en ne mettant que Selection.Copy My_Transactions....

Merci par avance pour votre aide 😱

Will
 
Trier par date Trier par votes
Re : Copier un Range dans une variable

Bonjour,

regarde peut être ceci si cela peut t'aider, sans plus de détails...
Code: 
Dim p As Range
Set p = Range("_FilterDatabase")
If WorksheetFunction.Subtotal(3, p.Offset(1).Resize(p.Rows.Count - 1, 1)) > 0 Then
    p.Offset(1).Resize(p.Rows.Count - 1).Copy Sheets("Feuil2").Range("A1")
End If

bon après midi
@+
 
Vote positif 0 Vote négatif
Re : Copier un Range dans une variable

Salut Pierrot,

Merci pour ta reponse mais ce n'est pas ce que je recherche.
Je veux pouvoir manipuler la variable pour n'en garder que les colonnes qui m'interessent avant de copier dans mon tableau recap. car je dois fusionner deux sources qui n'ont pas le meme ordonnancement dans les colonnes.

Je pourrai copier dans des feuilles temporaires faire mes manip separément avant de fusionner mais je trouve pas cela tres elegant et en plus fastidieux...

Mais merci quand meme car ton post ne m'aura pas ete inutile ! 😎
 
Vote positif 0 Vote négatif
Re : Copier un Range dans une variable

Re

Je te remercie Pierrot, mais cela ne sera pas necessaire.

J'ai adapte ton code pour que cela fonctionne... un peu bourrin mais le resultat est la.... Comme quoi il faut parfois savoir adapter son algorithme ...😉

Code: 
    Sheets("Budget Transactions").Select
    Range("TR_Table").Select
    Set My_Trs = Range("TR_Table")
    If WorksheetFunction.Subtotal(3, My_Trs.Offset(1).Resize(My_Trs.Rows.Count - 1, 1)) > 0 Then
        My_Trs.Offset(1, 14).Resize(My_Trs.Rows.Count - 1, 1).Copy Sheets("String History").Range("A1")
        My_Trs.Offset(1, 12).Resize(My_Trs.Rows.Count - 1, 1).Copy Sheets("String History").Range("B1")
        My_Trs.Offset(1, 13).Resize(My_Trs.Rows.Count - 1, 1).Copy Sheets("String History").Range("C1")
        My_Trs.Offset(1, 15).Resize(My_Trs.Rows.Count - 1, 1).Copy Sheets("String History").Range("D1")
        My_Trs.Offset(1, 16).Resize(My_Trs.Rows.Count - 1, 1).Copy Sheets("String History").Range("E1")
    End If

Bon ben c'est pas le tout mais la d'ou je suis, j'ai 3h30 d'avance sur vous.... alors je vous dit bonne nuit 🙄
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Excel VBA: manipuler des fichiers partagés via Teams / Sharepoint
Réponses
2
Affichages
130
Eric 888
M
  • Question Question
XL 2021 VBA Excel Erreur 2023
Réponses
2
Affichages
399
MICHIS
M
S
  • Résolu(e)
XL 2013 Copier-Coller une ligne dans tableau variable, et la manipuler.
Réponses
4
Affichages
375
StéphaneDeLà
S
H
  • Résolu(e)
XL 2016 Copier cellule dans un autre onglets
2
Réponses
16
Affichages
1 K
Phil69970
S
  • Résolu(e)
Microsoft 365 VBA Concaténer contenu de plusieurs cellules dans une seule avec séparateurs / évolutifs
Réponses
3
Affichages
633
spike29
S
Z
  • Question Question
XL 2016 Macro pour copier plusieurs cellules vers un fichier :(
Réponses
3
Affichages
534
zendb
Z
R
  • Résolu(e)
XL 2019 creer une macro pour copier des info d un onglet a un autre dans le meme classeur
Réponses
4
Affichages
803
robpellan52
R
F
  • Résolu(e)
XL 2021 Réaliser une macro pour copier une ligne avec formule ?
Réponses
4
Affichages
751
fanou06
F
R
  • Question Question
Microsoft 365 Ecraser onglet par copier coller [RESOLU]
Réponses
4
Affichages
647
romubzh35
R
I
  • Résolu(e)
Microsoft 365 VBA EXCEL Utilisation d'une variable avec données dans un tableau
Réponses
4
Affichages
1 K
mapomme
E
  • Question Question
XL 2019 Copier tout un tableau d'une feuille et le coller sur une autre feuille.
Réponses
1
Affichages
765
Staple1600
A
  • Résolu(e)
XL 2016 Selection.replace inopérante
Réponses
4
Affichages
669
albuqs
A
S
  • Résolu(e)
Microsoft 365 VBA pour copier/coller une plage de cellule dans un autre onglet en fonction de la date
Réponses
8
Affichages
1 K
Sylvain. B
S
F
  • Résolu(e)
XL 2010 Importer des données de plusieurs fichiers sans les ouvrir
Réponses
9
Affichages
2 K
Hasco
D
  • Question Question
XL 2013 envoi mail va excel : faire une boucle avec 10 destinataires à chaque envoi
Réponses
5
Affichages
1 K
david54520
D
P
  • Question Question
XL 2013 Copier une formule dans un cellule depuis une cellule d'un onglet nouvellement crée en macro VBA
Réponses
8
Affichages
953
pascalou1
P
A
  • Question Question
Microsoft 365 Copier/coller en boucle avec un nb variable de ligne
Réponses
4
Affichages
1 K
A-F
A
P
  • Question Question
XL 2016 Découpage Fichier Excel en plusieurs Fichiers selon une clé - VBA
Réponses
1
Affichages
2 K
fanch55
B
  • Résolu(e)
Microsoft 365 Variable qui perd sa valeur dans une procédure
Réponses
13
Affichages
944
bioteau
B
C
  • Résolu(e)
XL 2016 Remplir automatiquement un tableau d'après des conditions et des valeurs
Réponses
11
Affichages
2 K
ERIC S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…