Copier coller le contenu d'une cellule dans une plage
H
Bonjour Cher Membre du forum
je sollicites votre aide pour copier le contenu de B2 et de B3 (date et vendeur) dans la feuille (saisie des ventes) et de le coller dans les feuille (liste des ventes ) et (Kpi) a chaque nouvelle saisie .
Mon teste n'a pas fonctionner .
en pj le fchier .
Cordialement
g
Bonjour,
voir les cellules jaune dans "liste des ventes"
formule utilisée (en colonne A)
=SI(C31<>"";'Saisie des ventes'!B$3;"")et en colonne B
=SI(C31<>"";'Saisie des ventes'!B$2;"")En gros, sur une même ligne, dans que C est vide, A et B restent vide. Dès que quelque chose est écrit en C, A et B se remplissent selon les infos de "saisie des ventes.
B
Bonjour,
Voici ton code modifié afin qu'il puisse répondre à tes attentes.
Option Explicit
Private Sub Report_Click()
Dim WsS As Worksheet, WsC_V As Worksheet, WsC_K As Worksheet
Dim DerLigS As Long, DerLigC As Long, derligD As Integer
Set WsS = Worksheets("Saisie des ventes") 'Feuille source
Set WsC_V = Worksheets("Liste des ventes") 'Feuille cible "Liste des ventes"
Set WsC_K = Worksheets("Kpi") 'Feuille cible "Kpi"
Application.ScreenUpdating = False
' *********** REPORT DANS LA FEUILLE "Liste des ventes"
DerLigS = WsS.Range("A" & Rows.Count).End(xlUp).Row
If DerLigS > 12 Then
WsS.Range("A13", WsS.Cells(DerLigS, 7)).Copy
DerLigC = WsC_V.Range("D" & Rows.Count).End(xlUp).Row
WsC_V.Range("C" & DerLigC + 1).PasteSpecial Paste:=xlPasteValues
derligD = WsC_V.Range("D" & Rows.Count).End(xlUp).Row
WsS.Range("B2").Copy
WsC_V.Range("B" & DerLigC + 1 & ": B" & derligD).PasteSpecial Paste:=xlPasteValues
WsS.Range("B3").Copy
WsC_V.Range("A" & DerLigC + 1 & ": A" & derligD).PasteSpecial Paste:=xlPasteValues
WsS.Range("A13", WsS.Cells(DerLigS, 9)).ClearContents
End If
' *********** REPORT DANS LA FEUILLE "Kpi"
WsS.Range("A8:E8").Copy
DerLigC = WsC_K.Range("C" & Rows.Count).End(xlUp).Row
WsC_K.Range("C" & DerLigC + 1).PasteSpecial Paste:=xlPasteValues
WsS.Range("A8:E8").ClearContents
WsS.Range("B2").Copy
WsC_K.Range("B" & DerLigC + 1).PasteSpecial Paste:=xlPasteValues
WsS.Range("B3").Copy
WsC_K.Range("A" & DerLigC + 1).PasteSpecial Paste:=xlPasteValues
' ***********
Application.CutCopyMode = False
End SubA plus
H
Braters a écrit :Bonjour,
Voici ton code modifié afin qu'il puisse répondre à tes attentes.
Option Explicit Private Sub Report_Click() Dim WsS As Worksheet, WsC_V As Worksheet, WsC_K As Worksheet Dim DerLigS As Long, DerLigC As Long, derligD As Integer Set WsS = Worksheets("Saisie des ventes") 'Feuille source Set WsC_V = Worksheets("Liste des ventes") 'Feuille cible "Liste des ventes" Set WsC_K = Worksheets("Kpi") 'Feuille cible "Kpi" Application.ScreenUpdating = False ' *********** REPORT DANS LA FEUILLE "Liste des ventes" DerLigS = WsS.Range("A" & Rows.Count).End(xlUp).Row If DerLigS > 12 Then WsS.Range("A13", WsS.Cells(DerLigS, 7)).Copy DerLigC = WsC_V.Range("D" & Rows.Count).End(xlUp).Row WsC_V.Range("C" & DerLigC + 1).PasteSpecial Paste:=xlPasteValues derligD = WsC_V.Range("D" & Rows.Count).End(xlUp).Row WsS.Range("B2").Copy WsC_V.Range("B" & DerLigC + 1 & ": B" & derligD).PasteSpecial Paste:=xlPasteValues WsS.Range("B3").Copy WsC_V.Range("A" & DerLigC + 1 & ": A" & derligD).PasteSpecial Paste:=xlPasteValues WsS.Range("A13", WsS.Cells(DerLigS, 9)).ClearContents End If ' *********** REPORT DANS LA FEUILLE "Kpi" WsS.Range("A8:E8").Copy DerLigC = WsC_K.Range("C" & Rows.Count).End(xlUp).Row WsC_K.Range("C" & DerLigC + 1).PasteSpecial Paste:=xlPasteValues WsS.Range("A8:E8").ClearContents WsS.Range("B2").Copy WsC_K.Range("B" & DerLigC + 1).PasteSpecial Paste:=xlPasteValues WsS.Range("B3").Copy WsC_K.Range("A" & DerLigC + 1).PasteSpecial Paste:=xlPasteValues ' *********** Application.CutCopyMode = False End SubA plus
Merci Chef tu es le meilleur