XL 2016 Transposer colonnes sur lignes

soumus · 9 Octobre 2024

Bonjour cher tous
Je sollicité votre soutien pour résoudre un problème excel. J ai un fichier Excel avec 3 feuilles. Je voudrais un code vba qui va me permettre de copier les données en colonnes sur ma feuille "Cotation "et de les coller en lignes sur la feuille "Base" et ensuite se positionner à la 1ere ligne vide suivante pour la prochaine copie-coller à faire et ainsi de suite.
Merci de votre soutien.

soumus · 26 Octobre 2024

gbinforme à dit:
Bonjour,
Il me semble que cela devrait pourtant fonctionner car je n'ai pas de souci.

Bonsoir Monsieur
Je me permets de revenir encore sur mon fichier ci.
Juste avoir un code vba permettant de sélectionner toujours dans la feuille "CLIENT " la dernière ligne renseignée colonne A jusqu'à E

gbinforme · 29 Octobre 2024

Bonsoir,

Voici le code qui devrait résoudre la demande :

VB:

Private Sub Copy_base_Click()   ' copie cotation transposée
Dim cli As Long
Dim der As Long
    der = Sheets("Base").Cells(Rows.Count, 6).End(xlUp).Row + 1
    With Sheets("CLIENT")
        cli = .Cells(Rows.Count, 1).End(xlUp).Row
        .Cells(cli, 1).Resize(1, 5).Copy
    End With
    Sheets("Base").Cells(der, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Base").Cells(der, 1).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Cotation").Range("F10:F36").Copy
    Sheets("Base").Cells(der, 7).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
    Sheets("Base").Cells(der, 7).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
    Sheets("Cotation").Range("G10:G36").Copy
    Sheets("Base").Cells(der + 1, 7).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
    Sheets("Base").Cells(der + 1, 7).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
    Sheets("Base").Cells(der + 1, 6).Value = "Taux (%0)"
    Sheets("Cotation").Range("H10:H36").Copy
    Sheets("Base").Cells(der + 2, 7).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
    Sheets("Base").Cells(der + 2, 7).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
    Sheets("Base").Cells(der + 2, 6).Value = "Primes"
    Application.CutCopyMode = False
    Sheets("Base").Activate
    Sheets("Base").Cells(der, 1).Activate
End Sub

Bonne utilisation

Cordialement

soumus · 2 Novembre 2024

gbinforme à dit:

Bonsoir,

Voici le code qui devrait résoudre la demande :

VB:

Private Sub Copy_base_Click()   ' copie cotation transposée
Dim cli As Long
Dim der As Long
    der = Sheets("Base").Cells(Rows.Count, 6).End(xlUp).Row + 1
    With Sheets("CLIENT")
        cli = .Cells(Rows.Count, 1).End(xlUp).Row
        .Cells(cli, 1).Resize(1, 5).Copy
    End With
    Sheets("Base").Cells(der, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Base").Cells(der, 1).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Cotation").Range("F10:F36").Copy
    Sheets("Base").Cells(der, 7).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
    Sheets("Base").Cells(der, 7).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
    Sheets("Cotation").Range("G10:G36").Copy
    Sheets("Base").Cells(der + 1, 7).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
    Sheets("Base").Cells(der + 1, 7).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
    Sheets("Base").Cells(der + 1, 6).Value = "Taux (%0)"
    Sheets("Cotation").Range("H10:H36").Copy
    Sheets("Base").Cells(der + 2, 7).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
    Sheets("Base").Cells(der + 2, 7).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
    Sheets("Base").Cells(der + 2, 6).Value = "Primes"
    Application.CutCopyMode = False
    Sheets("Base").Activate
    Sheets("Base").Cells(der, 1).Activate
End Sub

Bonne utilisation

Cordialement

Bonjour mon cher,
Merci pour tes solutions (codes) toujours parfaites.Mon problème est résolu. Merci encore

XL 2016 Transposer colonnes sur lignes

soumus

XLDnaute Junior

Pièces jointes

soumus

XLDnaute Junior

gbinforme

XLDnaute Impliqué

soumus

XLDnaute Junior

Discussions similaires