OVH Cloud OVH Cloud

Dernière cellule d'une colonne

4 réponses
Avatar
Hervé
Bonjour,

quel est le code le plus efficace pour détecter la dernière cellule
renseignée d'une colonne ?

Merci

4 réponses

Avatar
Daniel
Bonsoir.
La méthode suivante fonctionne dans tous les cas :
Adresse = Range("A:A").Find("*", , xlFormulas, , , xlPrevious).Address
(et fonctionnera en outre avec XL2007)
Cordialement.
Daniel
"Hervé" a écrit dans le message de news:
%
Bonjour,

quel est le code le plus efficace pour détecter la dernière cellule
renseignée d'une colonne ?

Merci



Avatar
lSteph
Bonjour Hervé,
C'est assez vague, qu'entendre par "détecter"
quel est le code le plus efficace (cela dépend pourquoi et serait
prétentieux)
tu veux la désigner

dans un but bien précis (?lequel)
obtenir son adresse
(On pourrrait aussi envisager une fonction à laquelle on passe un range
plage cellule ou autre en paramêtre pour chercher sa dernière cellule
de la première colonne vet qui ramène une adresse.)
ou
la sélectionner


Donc faisons cette dernière supposition depuis le cellule active ...


Sub ziva()
With Cells(65536, ActiveCell.Column)
If Not IsEmpty(.Value) Then
.Select
Else
.End(xlUp).Select
End If
End With
If IsEmpty(ActiveCell) Then _
MsgBox "aucune cellule remplie"
End Sub

'Cdlt.

'lSteph



Hervé avait soumis l'idée :
Bonjour,

quel est le code le plus efficace pour détecter la dernière cellule
renseignée d'une colonne ?

Merci


--
- -

Avatar
Hervé
Bonsoir lSteph,

il n'y a aucune intention "prétentieuse" dans ma question. Par "éfficace",
je voulais dire le code le plus court permettant de connaître le numéro de
ligne de la dernière info au bas de la colonne.

Merci pour ta solution, ainsi qu'aux deux autres réponses. Vu les trois
possibilités différentes, je vais tester et comparer pour voir quelles sont
les différences et celle qui me convient le mieux.

Hervé


"lSteph" a écrit dans le message de news:

Bonjour Hervé,
C'est assez vague, qu'entendre par "détecter"
quel est le code le plus efficace (cela dépend pourquoi et serait
prétentieux)
tu veux la désigner

dans un but bien précis (?lequel)
obtenir son adresse
(On pourrrait aussi envisager une fonction à laquelle on passe un range
plage cellule ou autre en paramêtre pour chercher sa dernière cellule de
la première colonne vet qui ramène une adresse.)
ou
la sélectionner


Donc faisons cette dernière supposition depuis le cellule active ...


Sub ziva()
With Cells(65536, ActiveCell.Column)
If Not IsEmpty(.Value) Then
.Select
Else
.End(xlUp).Select
End If
End With
If IsEmpty(ActiveCell) Then _
MsgBox "aucune cellule remplie"
End Sub

'Cdlt.

'lSteph



Hervé avait soumis l'idée :
Bonjour,

quel est le code le plus efficace pour détecter la dernière cellule
renseignée d'une colonne ?

Merci


--
- -





Avatar
lSteph
Bonsoir,
C'est dans la réponse que je souhaitais dissiper tout risque de s'y
méprendre, nombre de chemins mènent à Rome.
;o)

Bonne soirée.

Hervé a formulé la demande :
Bonsoir lSteph,

il n'y a aucune intention "prétentieuse" dans ma question. Par "éfficace", je
voulais dire le code le plus court permettant de connaître le numéro de ligne
de la dernière info au bas de la colonne.

Merci pour ta solution, ainsi qu'aux deux autres réponses. Vu les trois
possibilités différentes, je vais tester et comparer pour voir quelles sont
les différences et celle qui me convient le mieux.

Hervé


"lSteph" a écrit dans le message de news:

Bonjour Hervé,
C'est assez vague, qu'entendre par "détecter"
quel est le code le plus efficace (cela dépend pourquoi et serait
prétentieux)
tu veux la désigner

dans un but bien précis (?lequel)
obtenir son adresse
(On pourrrait aussi envisager une fonction à laquelle on passe un range
plage cellule ou autre en paramêtre pour chercher sa dernière cellule de la
première colonne vet qui ramène une adresse.)
ou
la sélectionner


Donc faisons cette dernière supposition depuis le cellule active ...


Sub ziva()
With Cells(65536, ActiveCell.Column)
If Not IsEmpty(.Value) Then
.Select
Else
.End(xlUp).Select
End If
End With
If IsEmpty(ActiveCell) Then _
MsgBox "aucune cellule remplie"
End Sub

'Cdlt.

'lSteph



Hervé avait soumis l'idée :
Bonjour,

quel est le code le plus efficace pour détecter la dernière cellule
renseignée d'une colonne ?

Merci


-- - -





--
- -