Discussion :

[kikie43]

Bonjour,

Je souhaite sélectionner la dernière ligne vide d'une plage de cellule.
Je sais que pour sélectionner la dernière ligne d'un tableau il y a la ligne de code suivante, mais je n'arrive pas à l'adapter à une plage de cellule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
NumDernLigne = Range("a" & Rows.Count).End(xlUp).Row
 NumDernLigne = NumDernLigne + 1

En fait, en fonction de mon résultat précédent, je devrais afficher le résultat soit sur la dernière cellule vide de la plage a1:a20 soit sur la dernière cellule vide de la plage a21:a30.

Je vous remercie par avance !
Cordialement

Et bonnes fêtes !!

[casefayere]

Bonjour,

dans ton cas "NumDernLigne" te donne la 1ère cellule vide et non la dernière, essaies ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub essai()
Dim NumDernLigne As Integer
NumDernLigne = Range("a" & Rows.Count).End(xlUp).Row
NumDernLigne = NumDernLigne + 1
MsgBox NumDernLigne
NumDernLigne = Range("a1").End(xlDown).Row
NumDernLigne = NumDernLigne + 1
MsgBox NumDernLigne
NumDernLigne = Range("a20").End(xlDown).Row
NumDernLigne = NumDernLigne + 1
MsgBox NumDernLigne
End Sub

ou ça, si je comprends mieux

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim NumDernLigne As Integer
Dim cel As Range
For Each cel In Range("a20:a28")
  If IsEmpty(cel) Then NumDernLigne = cel.Row
Next cel
MsgBox NumDernLigne

[kikie43]

Bonjour,

Merci pour le code ci dessus.

j'ai donc essayé. Il fonctionne bien pour la première partie de mon code à savoir pour la plage a1:a19.
Il me renvoie bien la dernière ligne vide.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
NumDernLigne = Range("a1").End(xlDown).Row
NumDernLigne = NumDernLigne + 1

Par contre, pour la plage a20:aXX, j'ai un dépassement de capacité !
erreur d'exécution 6
Dépassement de capacité !

Par contre, si je mets quelque chose dans la cellule, mettons A35 cela fonctionne.
Le fait de descendre à la fin de la feuille fait planter mon code.
Que puis je faire ?

Merci
Cordialement

[casefayere]

Bonjour,

il faudrait un peu plus d'explications, quel est, plus précisément, ton but ?, comment est structuré ton fichier ?, nombre de lignes ?, que cherches-tu exactement ?
J'avais proposé le code ci-dessous, n'est-il pas adaptable ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim NumDernLigne As Integer
Dim cel As Range
For Each cel In Range("a20:a28")'plage choisie
  If IsEmpty(cel) Then NumDernLigne = cel.Row
Next cel
MsgBox NumDernLigne

[kikie43]

Merci
J'ai adapté mon code.
Tu m'as donné une bonne piste.
Je te remercie.

Et vous souhaites de joyeux fêtes !
++
kiss

[Igloobel]

Bonjour,


Personnellement j'utilise :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dern_l = Cells.End(xlDown).Row

et j'ai pas de soucis de dépassement de capacité

A+