Microsoft 365 (VBA) Copier/Coller problème

soan à dit:

Bonjour PatLaNouille,

bienvenue sur le site XLD !

ton fichier en retour ; tu peux voir que la 2ème feuille "Données" est inchangée ; va sur la 1ère feuille "Calculateur" ; regarde la ligne 6 ; fais Ctrl e ; vu ? retourne sur "Calculateur", et fais Ctrl e ; ok ? refais-le encore une fois ; ainsi, tu vois bien que ça se remplit ligne après ligne ; attention : la macro ne s'exécute qu'à partir de la feuille "Calculateur", et sur cette feuille, si C6 est vide, ça ne fera rien : pas de copier / coller !​

VB:

Option Explicit

Sub CpyData()
  If ActiveSheet.Name <> "Calculateur" Then Exit Sub
  If [C6] = "" Then Exit Sub 'si C6 est vide : y'a rien à copier/coller
  Dim lig&: Application.ScreenUpdating = 0
  With Worksheets("Données")
    lig = .Cells(Rows.Count, 2).End(3).Row + 1
    [C6].Resize(, 7).Copy: .Cells(lig, 2).PasteSpecial -4163
    Application.CutCopyMode = 0: .Select: [A1].Select
  End With
End Sub

si besoin, tu peux demander une adaptation.
à te lire pour avoir ton avis.

soan

Cliquez pour agrandir...

soan à dit:

@PatLaNouille

voici la nouvelle version ; utilisation : fais comme précédemment.

VB:

Option Explicit

Sub CpyData()
  If ActiveSheet.Name <> "Calculateur" Then Exit Sub
  If [C6] = "" Then Exit Sub 'si C6 est vide : y'a rien à copier/coller
  Dim lig&: Application.ScreenUpdating = 0
  With Worksheets("Données")
    lig = .Cells(Rows.Count, 2).End(3).Row + 1
    [C6].Resize(, 7).Copy: .Cells(lig, 2).PasteSpecial -4163
    Application.CutCopyMode = 0: .Cells(lig, 9) = [G14]
    .Select: [A1].Select
  End With
End Sub

soan

Cliquez pour agrandir...