Transferer vers une autre feuille

[maval]

Bonjour,

Je suis à la recherche d'un pour copier les valeurs de la colonne "D" sur la feuil1 et de les coller sur 2 colonnes sur la feuil2.
Dans ma feuille de destination le résultat attendu, est : de copier les noms sur deux colonnes.
C'est à dire les insérer dans la cellule "D3:C3 & D4:C4 ect...

ex: sur mon fichier

D'avance merci à qui pourra m'aider.

Cordialement
Maval

 

[CHALET53]

Re : Transferer vers une autre feuille

Bonjour,

un essai
j'ai supprimé la fusion des cellules feuille 2 (qui posait pb)

a+

 

[Bebere]

Re : Transferer vers une autre feuille

bonjour MaVal,Chalet
code pour le bouton transferer

Sub Macro1a()
    Dim i As Long, DerL As Long, L As Long

    L = 3
    DerL = Range("d65536").End(xlUp).Row
    With Feuil2
        .Range("d3:E" & Range("d65536").End(xlUp).Row + 1).Clear
        For i = 3 To DerL Step 2
            .Range("d" & L) = Range("d" & i)
            .Range("e" & L) = Range("d" & i + 1)
            .Range("d" & L & ":E" & L).BorderAround Weight:=xlThin
            .Range("d" & L & ":E" & L).Borders(xlInsideVertical).Weight = xlThin
            L = L + 1
        Next i
    End With

End Sub

 

[maval]

Re : Transferer vers une autre feuille

Bonjour Chalet53, Bebere,

Je vous remercie beaucoup de votre aide, super sympa.
J'aurais une dernière chose a vous demander alors que j'aurai du le dire avant pour finir mon projet si vous le voulez bien.
Sur le transfère des valeurs est-il possible d'avoir en fonction de la validation de données qui se trouve en "B3" de la feuil1 un transfère en fonction du jeu.
ex: si la valeur de la cellule "B3" et sur le "1" transférer la colonne "D" vers la feuil2 sur une colonne en "D"
: si la valeur de la cellule "B3" et sur le "2" transférer la colonne "D" vers la feuil2 sur deux colonnes en "D : E"

D'avance merci à qui pourra m'aider.
Cordialement
Maval

 

[CHALET53]

Re : Transferer vers une autre feuille

Re

A tester

 

[maval]

Re : Transferer vers une autre feuille

Re Chalet

Je te remercie beaucoup Nickel!....

Bonne journée

@+
Max