Dernière ligne d'un Range

Résolu
touroul Messages postés 518 Statut Membre -  
touroul Messages postés 518 Statut Membre -
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
A voir également:

2 réponses

cs_Le Pivert Messages postés 8437 Statut Contributeur 729
 
Bonjour,

voir ceci:

https://forums.commentcamarche.net/forum/affich-37622001-vba-detection-de-cellule-vide-ligne-colonnne

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à
1
touroul Messages postés 518 Statut Membre 16
 
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 !
1