macro pour la copie partiel d'un tableau

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 !

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
 
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!
 
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).🙁
 
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
 
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]
 
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
 
Re : macro pour la copie partiel d'un tableau

re
comment je fais pour rajouter un plage à copier dans le macro?
desolé suis pas trop doué
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.😛
 
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

- 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 Traitement
Réponses
7
Affichages
130
Réponses
25
Affichages
615
Retour