macro pour la copie partiel d'un tableau

Créer une discussion
Répondre

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
C

ced91300

XLDnaute Occasionnel
bonjour à tous

apres multiple recherches je trouve toujours pas mon truc, j'ai un tableau qui est relativement grand (longueur) donc j'ai besoin de donner à des tiers juste certain éléménts du 1er tableau je cherche à pouvoir faire sur une autre feuille la copie des colonnes dans cet odre si possible I/J/Q/H/L/M
ex: mon 1er tableau A/B/C/D/E/F/G/I/J/K/L/M/N/O/P/Q
et dans mon 2eme tableaux je voudrais juste voir apparaitre /I/J/Q/H/L/M

j'ai un macro mais etant novice j'arrive pas à le modifier etant donner que celui fait bien une copie des colonne mais prend en charge les colonne de la premiere à la derniere moi j'ai besoin de pouvoir faire la copie que de certaines colonnes mais les colonne que je avoir dans le 2eme tableau sont pas à la suite dans le 1er tableau
j'espere que je vais etre compris

merci à tous
cordialement
cedric
 
Trier par date Trier par votes
Re : macro pour la copie partiel d'un tableau

merci alex oui j'avais bien recu ton macro j'ai pas encore repondu pour te remercier car j'essai de comprendre le truc sa commence à rentré dans mon cerveau petit à petit

j'ai pas compris ta phrase :"Tu multiplis tes fils pas bien"

cedric
ps: grave ton lien pour maxime ma deduction l'erreure est humaine parcontre la fièrté n'est pas un erreure! ils auraient peut etre sauvé et soulager maxime en demandant à d'autre medecins leurs avis et de l'aide "ya pas de honte à pas savoir" "ya honte à pas demander" surtout pour sauver un goss!
 
Vote positif 0 Vote négatif
Re : macro pour la copie partiel d'un tableau

Re,
multiplier les fils= créer plusieurs discutions pour le même sujet😉
Cela dit ce n'est pas grave lol.


Bonne journée.

P.s: pour Maxime, il faut lire tout le blog pour une compréhension globale.Je ne porte aucun jugement. Ils ont effectivement demandé conseils à plusieurs médecins, regarde bien (médecin de famille, médecin qui l'avait suivi plus tôt).🙁
 
Vote positif 0 Vote négatif
Re : macro pour la copie partiel d'un tableau

vi désolé pour la multiplication de messages.
sur se que tu m'as donner (macro) j'arrive à faire prendre en charge plus de colonne mais pas a selectionner uniquement les colonnes que je desir comme expliquer dans mon 1er message je sais pas trop ce que je dois modifier en fait le macro
merci
 
Vote positif 0 Vote négatif
Re : macro pour la copie partiel d'un tableau

Re,

Code: 
Option Explicit
Sub Copy_plage()
Dim pl, dl, plc As Long
Dim pc, dc, pcc As Integer
 
'1ère ligne de la plage à copier (modifier si nécessaire)
pl = 2
'dernière ligne de la plage à copier (modifier si nécessaire)
dl = Range("A65536").End(xlUp).Row
[COLOR="Red"]'1ère colonne de la plage à copier (modifier si nécessaire)
pc = 1 
'dernière colonne de la plage à copier (modifier si nécessaire)
dc = 3 [/COLOR]
'1ère ligne de la plage qui reçoit la copie (modifier si nécessaire)
plc = 2
'1ère colonne de la plage qui reçoit la copie (modifier si nécessaire)
pcc = 1
 
    Sheets("Feuil1").Activate
    Range(Cells(pl, pc), Cells(dl, dc)).Select
   Selection.Copy
   Sheets(Array("Feuil1")).Select
    Sheets("Feuil2").Activate
    Range(Cells(plc, pcc), Cells(plc, pcc)).Select
    ActiveSheet.Paste
    Range("A1").Select
    Sheets("Feuil1").Select
    Range("A1").Select
    Application.CutCopyMode = False

End Sub

Donc si tu veux les colonnes I à M il faut modifier ceci:
Code: 
[COLOR="red"]'1ère colonne de la plage à copier (modifier si nécessaire)
pc = 1 par 9 ' = colonne I
'dernière colonne de la plage à copier (modifier si nécessaire)
dc = 3 par 13 ' = colonne M[/COLOR]
 
Vote positif 0 Vote négatif
Re : macro pour la copie partiel d'un tableau

merci alex pour ton aide
je comprend pas trop ce que tu veux dire par "deux plage à copier" ou plutot ne c pas trop comment faire et surtout peur de faire une bourde
car je suis novice dans excel ce que j'ai besoin c'est de reproduire dans une ordre bien defini (I/J/Q/H/L/M) par apport au premier tableau car je dois donner que certain élémént du 1er tableau c'est pas evident de m'expliquer

merci
cedric
 
Vote positif 0 Vote négatif
Re : macro pour la copie partiel d'un tableau

ced91300 à dit:
re
comment je fais pour rajouter un plage à copier dans le macro?
desolé suis pas trop doué
Cliquez pour agrandir...
Re,
regarde:
Code: 
Option Explicit
Sub Copy_plage()
Dim pl, dl, [COLOR="blue"]plc[/COLOR], [COLOR="Red"]plc1[/COLOR], [COLOR="Green"]plc2[/COLOR] As Long
Dim [COLOR="blue"]pc, dc, pcc[/COLOR], [COLOR="red"]pc1[/COLOR], [COLOR="green"]pc2[/COLOR], [COLOR="Red"]dc1[/COLOR], [COLOR="Green"]dc2[/COLOR], [COLOR="red"]pcc1[/COLOR], [COLOR="green"]pcc2[/COLOR] As Integer
 
'1ère ligne de la plage à copier (modifier si nécessaire)
pl = 1
'dernière ligne de la plage à copier (modifier si nécessaire)
dl = Range("A65536").End(xlUp).Row
[COLOR="Blue"]'1ère colonne de la plage à copier (modifier si nécessaire)
pc = 9 'colonne I
'dernière colonne de la plage à copier (modifier si nécessaire)
dc = 10 'colonne J
'1ère ligne de la plage qui reçoit la copie (modifier si nécessaire)
plc = 1
'1ère colonne de la plage qui reçoit la copie (modifier si nécessaire)
pcc = 1[/COLOR]
[COLOR="red"]'1ère colonne de la plage à copier (modifier si nécessaire)
pc1 = 17 'colonne Q
'dernière colonne de la plage à copier (modifier si nécessaire)
dc1 = 17 ' Colonne Q
'1ère ligne de la plage qui reçoit la copie (modifier si nécessaire)
plc1 = 1
'1ère colonne de la plage qui reçoit la copie (modifier si nécessaire)
pcc1 = 3[/COLOR]
[COLOR="Green"]'1ère colonne de la plage à copier (modifier si nécessaire)
pc2 = 12 'colonne L
'dernière colonne de la plage à copier (modifier si nécessaire)
dc2 = 13 ' colonne M
'1ère ligne de la plage qui reçoit la copie (modifier si nécessaire)
plc2 = 1
'1ère colonne de la plage qui reçoit la copie (modifier si nécessaire)
pcc2 = 4[/COLOR]
Application.ScreenUpdating = False
 
    [COLOR="Blue"]Sheets("Feuil1").Activate
    Range(Cells(pl, pc), Cells(dl, dc)).Select

   Selection.Copy
   Sheets(Array("Feuil1")).Select
    Sheets("Feuil2").Activate
    Range(Cells(plc, pcc), Cells(plc, pcc)).Select

    ActiveSheet.Paste[/COLOR]    

    [COLOR="Red"]Sheets("Feuil1").Activate
    Range(Cells(pl, pc1), Cells(dl, dc1)).Select
    
   Selection.Copy
   Sheets(Array("Feuil1")).Select
    Sheets("Feuil2").Activate
    Range(Cells(plc1, pcc1), Cells(plc1, pcc1)).Select
    
    ActiveSheet.Paste[/COLOR]   
 
   [COLOR="Green"]Sheets("Feuil1").Activate
   Range(Cells(pl, pc2), Cells(dl, dc2)).Select
    
   Selection.Copy
   Sheets(Array("Feuil1")).Select
    Sheets("Feuil2").Activate
    Range(Cells(plc2, pcc2), Cells(plc2, pcc2)).Select
   
    ActiveSheet.Paste[/COLOR]
    Range("A1").Select
    Sheets("Feuil1").Select
    Range("A1").Select
    Application.CutCopyMode = False
    
Application.ScreenUpdating = True


End Sub
Te rest plus qu'à coder H.

Il y a sûrement plus simple mais cela fonctionne.😛
 
Vote positif 0 Vote négatif
Re : macro pour la copie partiel d'un tableau

Bonjour cedric,
Il te suffitsait de rajouter ceci (j'avaisi volontairement laissé les commentaires):
Code: 
Dim pl, dl, plc, plc1, plc2, [COLOR="Indigo"][B]plc3[/B][/COLOR] As Long
Dim pc, dc, pcc, pc1, pc2, [COLOR="indigo"][B]pc3[/B][/COLOR] dc1, dc2, [B][COLOR="indigo"]dc3[/COLOR][/B], pcc1, pcc2, [B][COLOR="indigo"]pcc3[/COLOR][/B] As Integer

Puis:
Code: 
'1ère colonne de la plage à copier
[COLOR="Purple"]pc3 = 8 'colonne H[/COLOR]
'dernière colonne de la plage à copier
[COLOR="purple"]dc3 = 8 ' colonne H[/COLOR]
'1ère ligne de la plage qui reçoit la copie
[COLOR="purple"]plc3 = 1[/COLOR]
'1ère colonne de la plage qui reçoit la copie
[COLOR="purple"]pcc3 = 4[/COLOR]

et pour finir:

Code: 
[COLOR="purple"]Sheets("Feuil1").Activate
   Range(Cells(pl, pc3), Cells(dl, dc3)).Select
    
   Selection.Copy
   Sheets(Array("Feuil1")).Select
    Sheets("Feuil2").Activate
    Range(Cells(plc3, pcc3), Cells(plc3, pcc3)).Select[/COLOR]

Et c'est fait. Bon il y sûrement un code plus simple, mais il fonctionne.

Je t'ai mis le code sur le fichier. Un petit plus, la macro s'enclenche également avec clic droit. Si tu ne le veux pas il te suffit de supprimer le mot copy_plage dans le code de la feuille1. Et toujours avec crtl+a.
A toi de voir.

Bonne journée.
 

Pièces jointes

Vote positif 0 Vote négatif
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

D
  • Question Question
Microsoft 365 faire un tableau de suivi d'activité sur la base d'un TCD avec filtre
Réponses
0
Affichages
209
Daniel200666
D
yaka
  • Question Question
Microsoft 365 faire une copie d'un fichier stocké dans un sous sous... sous répertoire
Réponses
8
Affichages
141
Valtrase
Valtrase
piga25
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
565
piga25
piga25
A
  • Résolu(e)
XL 2019 Grouper lignes colorées
Réponses
3
Affichages
130
aredo
A
M
  • Résolu(e)
Microsoft 365 Formules (imbriquées) pour suivi action
Réponses
4
Affichages
248
AtTheOne
AtTheOne
Y
  • Question Question
XL 2019 macro pour dupliquer un tableau
Réponses
3
Affichages
407
Yogean
Y
T
  • Question Question
Microsoft 365 Traitement
Réponses
7
Affichages
154
TTI75
T
C
  • Question Question
XL 2021 comment augmenter la capacité de colonnes sur croisé dynamique
Réponses
2
Affichages
367
chris
chris
B
  • Question Question
Microsoft 365 Colonnes apparentes selon critères
Réponses
7
Affichages
593
Phil69970
Phil69970
M
  • Résolu(e)
XL 2016 changement de formule
Réponses
2
Affichages
105
marc94600
M
A
  • Question Question
XL 2016 MFC avec plusieurs conditions
2
Réponses
25
Affichages
699
ALVE
A
R
  • Question Question
XL 2010 Copie de plusieurs plages de cellules spécifiques dans le presse-papier
2
Réponses
20
Affichages
610
Dranreb
Dranreb
J
  • Question Question
XL 2021 transfert listview vers feuille excel
Réponses
9
Affichages
547
Piment
P
D
  • Résolu(e)
Microsoft 365 Assistance pour optimisation d'un code VBA qui ne fonctionne pas comme souhaité
2
Réponses
21
Affichages
619
desto
D
T
  • Question Question
XL 2013 Impression, choix de feuilles et nombre de copie
Réponses
11
Affichages
574
AtTheOne
AtTheOne
S
  • Résolu(e)
XL 2013 Copier-Coller une ligne dans tableau variable, et la manipuler.
Réponses
4
Affichages
250
StéphaneDeLà
S
M
  • Question Question
Microsoft 365 Comptabilité : Création d'un fichier automatique d'analyse de comptes
Réponses
2
Affichages
755
Max
M
A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
395
sylvanu
sylvanu
M
  • Question Question
Microsoft 365 Analyse de données, copie conditionnée
Réponses
7
Affichages
707
Max
M
A
  • Résolu(e)
Microsoft 365 Insérer un résultat dans une cellule d'un tableau
Réponses
5
Affichages
246
Alain 79
A
Retour