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

Réponse 1 / 2
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à
Réponse 2 / 2
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 !
Répondre Posez votre question