[RÉSOLU] Trouver la dernière cellule

[aubelix]

Bonjour à tous amis du Forum.

Je reviens vers vous une fois de plus pour solliciter votre aide.
Mon problème est le suivant:

Je lance une macro qui teste s'il existe une date de vérification.
Si oui alors j'écris "J"
Si non alors j'écris "L"

Mon problème se situe pour trouver la dernière cellule vide avec:

For Each c In Range("G10:G"ide & Range("G65536").End(xlUp).Row)

Je suis obligé d'ajouter un "XX" en colonne G pour trouver la dernière cellule
vide, sinon la macro écrit sur le titre et s'arrête...

Avez-vous la solution pour contourner ce problème.
Par avance Merci pour votre aide.
Cordialement.

En sachant que je peux avoir une quantité variable d'enregistrements.
Mais qui commencent en G10

 

[Pierrot93]

Re : Trouver la dernière cellule

Bonjour,

ton code fonctionne très bien chez moi, même après avoir supprimé le contenu de la cellule xxx

bonne soirée
@+

 

[aubelix]

Re : Trouver la dernière cellule

Bonsoir Pieerot93

Merci pour ta réponse.
Ci-joint résultat si il n'y a aucune date.
Qu'en penses-tu ?

Cordialement

 

[Habitude]

Re : Trouver la dernière cellule

Bonjour

Pas sur d'avoir bien compris.

a essayer

Sub test()
For Each c In Range("G10").Resize(Rows.Count - 10, 1)
If c.Borders(xlEdgeBottom).LineStyle <> xlNone Then c.Offset(, 1) = IIf(CStr(c) <> "", "J", "L")
Next c
End Sub

 

[Pierrot93]

Re : Trouver la dernière cellule

Bonjour,

oui, évidement si colonne vide... peut être tester au préalable le numéro de ligne :

If c.Row > 10 Then

bonne journée
@+

 

[aubelix]

Re : Trouver la dernière cellule RESOLU

Bonjour Pierrot93 et Habitude et tous Amis du Forum.

Merci pour vos réponses.
Elles fonctionnent bien.
Mille Mercis.

Cordialement