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

Autres copier des colonnes de tableau dans un autre onglet

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 !

hervoul

XLDnaute Occasionnel
Hello,

Encore moi.
Apres avoir brillamment résolu mes problèmes de calculs dans un tableau, pouvez vous me fabriquer une macro ou code quelconque pour copier des colonnes (pas toutes) dans un tableau récapitulatif dans un autre onglet? SVP
Sur le doc exemple joint, les colonnes a copier sont en couleur...et les valeurs à copier sont issues de formules ...
Merci 😉
RVoul
 

Pièces jointes

Bonjour,
Une proposition par VBA en Pj
 

Pièces jointes

bonjour
Voici un code basé sur un tableau source et un tableau destination, et qui marche dans beaucopu de cas de figure
quelques variables à positionner suivant les cas
Public source, dest, colsource, coldest, lignedest, lignesource
Sub copiecolonnes()
colsource = Array(1, 2, 3)
coldest = Array(3, 4, 5)
Set source = Sheets("perf 3x500") 'feuille source
Set dest = Sheets("récap") ' feuille destination
lignesource = 3 'première ligne de la source
lignedest = 2 'Première ligne pour la destination
raz

For n = 0 To UBound(colsource)
Call macopie(colsource(n), coldest(n))
Next
With dest.UsedRange.Columns(5) 'traite la colonne5
For Each i In .Rows
If IsNumeric(i) = True Then i.Value = i.Value * 12
Next
End With
dest.Columns(3).NumberFormat = "dd/mm/yyy" 'traite la colonne3
dest.Activate
End Sub


Sub macopie(s, d)
With source
Set zonesource = .Range(.Cells(lignesource, s), .Cells(.Cells(lignesource, s).End(xlDown).Row, s))
zonesource.Copy
dest.Cells(lignedest, d).PasteSpecial (xlValue)
End With

End Sub

Sub raz()
With dest
Set zone = .Range(.Cells(2, 1), .Cells(.UsedRange.Rows.Count, .UsedRange.Columns.Count))
zone.ClearContents



End With

End Sub
 
RE..
La structure, n'est plus la même...... 🙄
J'ai enlever la fusion de la cellule A1
 

Pièces jointes

Dernière édition:
- 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

Réponses
1
Affichages
362
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…