Dernière ligne d'un Range

Résolu
touroul Messages postés 506 Date d'inscription   Statut Membre Dernière intervention   -  
touroul Messages postés 506 Date d'inscription   Statut Membre Dernière intervention   - 7 nov. 2020 à 12:38
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 7904 Date d'inscription   Statut Contributeur Dernière intervention   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 506 Date d'inscription   Statut Membre Dernière intervention   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