Copier dernière cellule d'une colonne

LionelF

XLDnaute Nouveau
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
 

Fichiers joints

youky(BJ)

XLDnaute Barbatruc
Re : Copier dernière cellule d'une colonne

Bonjour Lionel,
Dans Module1 mets cette macro
Code:
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

XLDnaute Accro
Re : Copier dernière cellule d'une colonne

Bonjour

Essaye ce code :
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

XLDnaute Accro
Re : Copier dernière cellule d'une colonne

Bonjour à tous

Y a des rapides :eek:

Ma contribution dans Feuil1

Code:
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

XLDnaute Nouveau
Re : Copier dernière cellule d'une colonne

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

Lionel
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas