XL 2013 copier coller

[houcine23]

Bonjour,
Je souhaite copier coller une cellue de la feuille BC (cellule B11) dans la feuille BD à la suite de la derniere valeur de la rangé E n fois selon le nombre de ligne non vide de la rangé D21: D41 de la feuille BC.
Merci d'avance.

 

[Robert]

Bonjour Houcine, bonjour le forum,

Essaie comme ça :

Sub Macro1()
Dim BC As Worksheet 'déclare la variable BC
Dim BD As Worksheet 'déclare la variable BD
Dim NF As Byte 'déclare la variable NF (Nombre de Fois)
Dim PLV As Integer 'déclare la variable PLV (Première Ligne Vide)

Set BC = Worksheets("BC") 'définit l'onglet BC
Set BD = Worksheets("BD") 'définit l'onglet BD
NF = Application.WorksheetFunction.CountA(BC.Range("D21:D41")) 'définit le nombre de fois NF
PLV = BD.Cells(Application.Rows.Count, "E").End(xlUp).Row + 1 'définit la première ligne vide PLV de la colonne E de l'onglet BD
BC.Range("B11").Copy BD.Cells(PLV, "E").Resize(NF, 1) 'copie la cellule B11 de l'onglet BC et la colle dans la cellule ligne PLV colonne E redimensionnée à NF lignes de l'onglet BD
End Sub

 

[houcine23]

Sub Macro1() Dim BC As Worksheet 'déclare la variable BC Dim BD As Worksheet 'déclare la variable BD Dim NF As Byte 'déclare la variable NF (Nombre de Fois) Dim PLV As Integer 'déclare la variable PLV (Première Ligne Vide) Set BC = Worksheets("BC") 'définit l'onglet BC Set BD = Worksheets("BD") 'définit l'onglet BD NF = Application.WorksheetFunction.CountA(BC.Range("D2141")) 'définit le nombre de fois NF PLV = BD.Cells(Application.Rows.Count, "E").End(xlUp).Row + 1 'définit la première ligne vide PLV de la colonne E de l'onglet BD BC.Range("B11").Copy BD.Cells(PLV, "E").Resize(NF, 1) 'copie la cellule B11 de l'onglet BC et la colle dans la cellule ligne PLV colonne E redimensionnée à NF lignes de l'onglet BD End Sub

[COLOR=rgba(0, 0, 0, 0.87)]merci beaucoup Robert, ça marche parfaitement.[/COLOR]​

 

[Robert]

je sais pas vous, mais moi j'ai balisé grave en lisant la réponse de Houcine ...