Autres Excel 2007 copier coller different , tableau sur un autre 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 !

jfcjfc

XLDnaute Nouveau
Re bonjour,
je revois ma copie
fichier joint pour plus d'explication.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim a, b, c, d, e, f As Integer
a = 1
b = 1
c = 14
d = 20
e = 3
f = 2
Sheets("Feuil1").Select
Range(Cells(a, b), Cells(c, d)).Copy
Sheets("Feuil2").Select
Cells(e, f).Select
SELECTION.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Mais je souhaiterai que le "coller" se fasse sous la forme d'un autre tableau,
je précise que la longueur du tableau à copier peut varier.
Dans l'attente un grand merci !
cordialement
 

Pièces jointes

Bonjour @jfcjfc

Ouvrir un nouveau post toutes les 2 heures pour le même sujet ne peut être que contre productif et avoir l'effet inverse de l'effet désiré😡
*C'est le 4eme post aujourd'hui pour le même problème et le 3eme de puis 13h30 🤔 🤔

*Je te conseille de supprimé tous tes posts superflus (demande l'aide de @Yeahou le modérateur du forum de t'aider à déplacer/supprimer tes posts) et de concentrer sur un seul post ou tu expose ton problème avec les modification/précision que tu veux apporter.

*Cela fait quand même 5 ans que tu es inscrit sur le forum.....

@Phil69970
 
Si l'on veut du VBA on utilisera la même formule.

Voyez le fichier joint et cette macro dans le code de la feuille "Résultat" :
VB:
Private Sub Worksheet_Activate()
Dim dest As Range, nlig&, ncol%
Application.ScreenUpdating = False
Cells.Delete 'RAZ
Set dest = [B2] 'à adapter
With Sheets("Feuil1").[A1].CurrentRegion 'à adapter
    nlig = .Rows.Count
    ncol = Application.Max(.Cells)
    dest = 1: dest.Resize(, ncol).DataSeries 'numérotation
    dest(2).Resize(nlig, ncol) = "=IFERROR(HLOOKUP(COLUMN()-" & dest.Column - 1 & "," & .Rows(1).Address(0, 1, External:=True) & ",1,0),"""")"
    dest(2).Resize(nlig, ncol) = dest(2).Resize(nlig, ncol).Value 'supprime les formules, à mettre en commentaire pour les voir
End With
'---mise en forme---
With dest.Resize(nlig + 1, ncol)
    Range("A1", .Cells).ColumnWidth = 2.5
    .HorizontalAlignment = xlCenter
    .Borders.Weight = xlThin 'bordures
    .Rows(1).Interior.ColorIndex = 6 'jaune
End With
End Sub
Elle se déclenche quand on active la feuille.

A+
 

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

Réponses
18
Affichages
134
Réponses
10
Affichages
455
Réponses
2
Affichages
214
Réponses
17
Affichages
878
Retour