Copier la dernière cellule non-vide d'une ligne

[elephantdemer]

Bonjour,

Je me permets de vous solliciter car je suis débutant sur VBA.Je souhaite copier la dernière valeure de chaque ligne de la feuille 2 dans la colonne "B" de la feuille1.

Après des recherches non fruturieuse sur différents forums, je sollicite votre aide pour avancer sur l'élaboration de ce macro.

Je vous joins mon extrait de mon tableau.

Je vous remercie d'avance de vos apports personnels.

AP

 

[VDAVID]

Re : Copier la dernière cellule non-vide d'une ligne

Bonjour elephantdemer,

Ne te serais tu pas trompé avec la pièce jointe?
Je ne vois aucune donnée dans la feuil2
Bonne journée

 

[ROGER2327]

Re : Copier la dernière cellule non-vide d'une ligne

Bonjour elephantdemer

Je ne vois rien à traiter dans l'onglet Feuil2.

Le bout de code du module Module2 devrait pouvoir s'écrire simplement :​

Sub essai()
    With Sheets("Feuil1").[C51].End(xlUp)
        If .Row > 16 Then
            MsgBox "La dernière cellule non vide de la plage C17:C50 est :" & Chr(10) & .Address(0, 0)
        Else
            MsgBox "Aucune valeur dans la plage C17:C50."
        End If
    End With
End Sub

ROGER2327
#6205

Vendredi 20 Tatane 139 (Saint Tiberge, frère quêteur - fête Suprême Quarte)
15 Thermidor An CCXX, 3,9397h - brebis
2012-W31-4T09:27:19Z


P.s. : Bonjour VDAVID.

 

[elephantdemer]

Re : Copier la dernière cellule non-vide d'une ligne

Salut VDavid,

Tu as raison, j'ai joins le mauvais fichier, je venais juste de me rendre compte lorsque tu as envoyé le message. Je joins cette fois-ci le bon fichier.

AP

 

[elephantdemer]

Re : Copier la dernière cellule non-vide d'une ligne

Je te remercie de ta raison, je viens d'envoyer le bon fichier à l'instant. Je vais regarder si ton code s'adapte à mes besoins.

AP