Macro pour changer la copie d un fichier en ligne par colonne Résolu/Fermé

Question

Bonjour,

j'ai actuellement une macro qui enregistre une saisie de la feuille 1  ( D2 à D24) vers la feuille 2 mais sur la 1° ligne libre. je souhaiterai faire la même chose mais que ces données soient enregistrer dans la 1° colonne libre.
ci dessous la formule actuelle:
Sub EnregistrerLigne()

' Enregistrer une Ligne
'
Dim i%
    Application.ScreenUpdating = False
    '--- Contrôle champs saisis ---
    With Sheets("feuille1")
        For i = 2 To 24
        
            If .Cells(i, "D") = "" Then
                .Cells(i, "D").Activate
                MsgBox ("Champ  " & .Cells(i, "e") & "  Obligatoire")
                Exit Sub
            End If
        Next i
    
    '--- enregistre ---
        Application.ScreenUpdating = False
            .Range("D2:D24").Copy
            Sheets("feuille 2").Range("a65536").End(xlUp)(2) _
            .PasteSpecial Paste:=xlPasteValues, Transpose:=True
            Application.CutCopyMode = False
            .Range("D2:D24").ClearContents         
            
    End With
End Sub  

que me faut il modifier pour effectuer ce changement?
En vous remerciant
Cordialement

FMas09600 · Answer

Bonjour Michel,

j'ai un message d'erreur :
Erreur de compilation: Attendu : paramètre nommé
et ces 2 lignes sont en rouge:
 Sheets("Détails Brt").Range("a65536").End(xlUp)(2) _
            .PasteSpecial Paste:=xlPasteValues,

il s'agit d'une vielle macro que j'ai repris pour la remettre dans un nouveau dossier. si tu as mieux, je suis preneur.

pour être précis, avant cette Macro de cliquer sur cette macro, j'utilise une autre macro qui insère la date et qui rechercher le dernier n° d'ordre dans la Feuille 2 et qui l’insère dans la feuille 1 en position D2.

ENCORE MERCI.

ccm81 · Answer

Bonjour 

essaies ceci
Sub ok()
Dim co As Long, li As Long
li = 4
Sheets("feuille 1").Range("D2:D24").Copy
Sheets("feuille 2").Select
co = Cells(li, Columns.Count).End(xlToLeft).Column + 1
Cells(li, co).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
' etc ...
End Sub
Cdlmnt

ccm81 · Answer

Salut michel .... ça baigne ;-)
pour Fmas
ce que j'ai compris : pour coller (en colonne) à partir de la ligne li
Sub ok()
Dim co As Long, li As Long
li = 4
Sheets("feuille 1").Range("D2:D24").Copy
Sheets("feuille 2").Select
co = Cells.Find("*", , , , xlByColumns, xlPrevious).Column + 1
Cells(li, co).Select
Selection.PasteSpecial Paste:=xlPasteValues
' etc ...
End Sub
Cdlmnt

Macro pour changer la copie d un fichier en ligne par colonne

3 réponses

Discussions similaires