Copier dernière cellule d'une colonne

[LionelF]

Bonjour à tous en ce Lundi.
Quelqu'un pourrait il m'aider à résoudre mon problème?
J'ai un fichier avec 2 colonnes.
La colonne A contient une série de cellules non vides.
La colonne B contient une série de cellules non vides .

J'aimerai copier la dernière cellule non vide de la colonne A , et la coller dans toutes les autres cellules de la colonne A , tant que il y a des cellules non vides dans la colonne B.

Mon tableau s'agrandissement au fils du temps .

Je vous joint mon petit fichier.

Bien à vous.

Lionel

 

[youky(BJ)]

Re : Copier dernière cellule d'une colonne

Bonjour Lionel,
Dans Module1 mets cette macro

Sub recopie()
ladate = [A65000].End(3)
deb = [A65000].End(3).Row + 1
bas = [B65000].End(3).Row
For lig = deb To bas
If Cells(lig, 1) = "" And Cells(lig, 2) <> "" Then Cells(lig, 1) = ladate
Next
End Sub

Bruno

 

[Chris401]

Re : Copier dernière cellule d'une colonne

Bonjour

Essaye ce code :

Sub Rempli()
Dim PremligA As Integer, DerligB As Integer
PremligA = Range("A" & Rows.Count).End(xlUp).Row
DerligB = Range("B" & Rows.Count).End(xlUp).Row
Range("A" & PremligA).Copy Range("A" & PremligA & ":A" & DerligB)
End Sub

Cordialement
Chris

 

[M12]

Re : Copier dernière cellule d'une colonne

Bonjour à tous

Y a des rapides

Ma contribution dans Feuil1

Sub copie()
Dim i As Integer
Dim DernLigneA As Long
Dim DernLigneB As Long
DernLigneA = Range("A" & Rows.Count).End(xlUp).Row
DernLigneB = Range("B" & Rows.Count).End(xlUp).Row
    For i = DernLigneA To DernLigneB
               If Cells(i, 2) <> "" Then
            Cells(i, 1) = Cells(DernLigneA, 1)
            End If
    Next i
End Sub

 

[LionelF]

Re : Copier dernière cellule d'une colonne

Merci Beaucoup à tous les trois.
Passez une bonne journée.

Lionel