Dernière ligne d'un Range

Résolu
touroul Messages postés 509 Date d'inscription   Statut Membre Dernière intervention   -  
touroul Messages postés 509 Date d'inscription   Statut Membre Dernière intervention   -
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

Réponse 1 / 2
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
Réponse 2 / 2
touroul Messages postés 509 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

Discussions similaires

input signal out of range
marlene -
usman000 -

14 réponses
Que veut dire "correspondant occupé" lors d'un appel ?
veroaaa -
Pat -

10 réponses
comment désactiver out of range
lzri98 -
jeannets -

3 réponses