Dernière ligne d'un Range

Résolu/Fermé
touroul
Messages postés
414
Date d'inscription
mardi 5 octobre 2010
Statut
Membre
Dernière intervention
21 avril 2022
- Modifié le 7 nov. 2020 à 11:51
touroul
Messages postés
414
Date d'inscription
mardi 5 octobre 2010
Statut
Membre
Dernière intervention
21 avril 2022
- 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

2 réponses

cs_Le Pivert
Messages postés
7800
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
6 août 2022
714
7 nov. 2020 à 12:06
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
414
Date d'inscription
mardi 5 octobre 2010
Statut
Membre
Dernière intervention
21 avril 2022
14
7 nov. 2020 à 12:38
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