Dernière ligne d'un Range [Résolu]

Signaler
Messages postés
394
Date d'inscription
mardi 5 octobre 2010
Statut
Membre
Dernière intervention
21 novembre 2020
-
Messages postés
394
Date d'inscription
mardi 5 octobre 2010
Statut
Membre
Dernière intervention
21 novembre 2020
-
Bonjour le forum !

Je ne parviens pas à comprendre l'erreur que je fais et je m'adresse à vous.

Je cherche à définir une variable Lig correspondant à la première cellule vide d'un RANGE.
Ma macro semble ne rien trouver.
Dans d'autres essais sans With, j'obtiens "variable objet ou variable de bloc with non définie".
Un classeur d'exemple : https://www.cjoint.com/c/JKhkYPSMNVn

Sub DerligRange()
Dim Lig As Range
If Not Lig Is Nothing Then
Lig = Range("C2:C9").Find("*", , , , xlByColumns, xlPrevious).Row + 1
MsgBox (Lig)
Else
MsgBox "Rien"
End If
End Sub


Puis-je solliciter votre aide svp ?
Merci par avance

Configuration: Windows / Firefox 82.0

2 réponses

Messages postés
7377
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
12 mai 2021
635
Bonjour,

voir ceci:

https://www.commentcamarche.net/faq/32220-vba-toutes-versions-detection-de-cellule-vide-ligne-colonne

ce qui donne ceci:

Sub DerligRange()
Dim Lig As Long
Lig = 1 'première ligne à vérifier
Do While Not IsEmpty(Range("C" & Lig))
    Lig = Lig + 1
Loop
MsgBox "La première ligne vide colonne C est la ligne : " & Lig
End Sub


Voilà
Messages postés
394
Date d'inscription
mardi 5 octobre 2010
Statut
Membre
Dernière intervention
21 novembre 2020
10
Bonjour Monsieur

Merci beaucoup pour votre aide.
Ça fonctionne ainsi.
Dommage que je ne sois pas tombé sur ce post plus tôt.

Très bonne journée !