Copier dernière cellule non vide

[Dju1]

Bonjour,
je cherche à copier la dernière cellule non vide de ma colonne A dans la cellule F3 par une macro. J'ai tout essayé avec End(xlup) mais rien à faire ça ne fonctionne pas, je dois oublier un élément.

Merci d'avance.

 

[Dju1]

Re : Copier dernière cellule non vide

Par la même occasion, je cherche une macro pour créditer la carte. Si vous voyez un moyen n'hésiter pas à me donner vos idées

 

[Robert]

Re : Copier dernière cellule non vide

Bonsoir Dju, bonsoir le forum,

je cherche à copier la dernière cellule non vide de ma colonne A dans la cellule F3 par une macro.

De quel onglet parle-t-on ? Dans quel module se trouve le code ? Aide-nous si tu veux qu'on t'aide...

 

[Dju1]

Re : Copier dernière cellule non vide

Bonsoir, il s'agit de l'onglet "Cartes" dans le module test. Désolé pour l'oubli... et Merci

 

[Robert]

Re : Copier dernière cellule non vide

Bonsoir Dju, bonsoir le forum,

Pour ton premier problème essaie comme ça :

Sub macro1()
Dim O As Object 'déclare la variable O (Onglet)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim LI As Integer 'déclare la variable LI (LIgne)

Set O = Sheets("Cartes") 'définit l'onglet O
DL = O.Cells(Application.Rows.Count, 1).End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne 1 (=A) de l'onglet O
For LI = DL To 8 Step -1 'boucle inversée de la dernière ligne Dl à la ligne 8
    If O.Cells(LI, 3) <> 0 Then Exit For 'si la cellule en colonne C de boucle est différente de 0, sort de la boucle
Next LI 'prochaine ligne de la boucle
O.Range("F3").Value = O.Cells(LI, 1).Value 'récupère en F3 la valeur correspondante en colonna A
End Sub

Pour le second, essaie d'expliquer mieux car, pour ma part, je n'ai rien compris...

 

[Dju1]

Re : Copier dernière cellule non vide

Ca fonctionne, merci beaucoup Robert, mais depuis j'ai trouvé autre chose et j'hésite à utiliser la fonction petite valeur.
Pour mon 2ème souci, je cherche en fait à pouvoir créditer le compte, en rajoutant une quantité à la dernière cellule non vide de la colonne A.
J'espère être compréhensible.