Autres Excel 2007 copier coller different , tableau sur un autre tableau

[jfcjfc]

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

 

[M12]

Re
A tester

 

[Phil69970]

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

 

[jfcjfc]

Ok, mais ça fait 5Ans que je n'y mis plus les pieds. Parce que je n'ai plus d'ordi depuis au moins 4ans ! ça c'est pour l'info ! Je vais essayer d'effacer le superflu. Et salut !

 

[job75]

Bonjour à tous,

En plus jfcjfc est obnubilé par le VBA.

Dès la 1ère discussion j'avais proposé une solution par formule qui fonctionne très bien ici.

Dans le fichier joint voyez cette formule très simple sur la plage B3:BS16 de Feuil2 :

=SIERREUR(RECHERCHEH(COLONNE()-1;Feuil1!$A1:$T1;1;0);"")

A+

 

[jfcjfc]

Bonjour à tous,

En plus jfcjfc est obnubilé par le VBA.

Dès la 1ère discussion j'avais proposé une solution par formule qui fonctionne très bien ici.

Dans le fichier joint voyez cette formule très simple sur la plage B3:BS16 de Feuil2 :

=SIERREUR(RECHERCHEH(COLONNE()-1;Feuil1!$A1:$T1;1;0);"")

A+

Merci, je vais essayer. je te tiens au courant.

 

[job75]

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" :

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+