OVH Cloud OVH Cloud

Dernière cellule remplie dans une colonne

2 réponses
Avatar
Françoise
Re-bonjour,

Je m'en sors presque !!! pour ceux qui suivent mes folles=20
aventures "macrobiotiques"...

Il me reste une question que je n'arrive pas r=E9soudre,=20
bien que ce soit certainement tr=E8s simple

Je veux s=E9lectionner la derni=E8re cellule contenant une=20
valeur de la colonne H

Voici la macro :
---
Dim DerCell As Long
DerCell =3D Range("H65536").End(xlUp)(2).Cells
Range("H" & DerCell).Offset(-1, 0).Select
---
j'ai l'erreur : la m=E9thode range de l'objet global a=20
=E9chou=E9 sur la derni=E8re ligne de la macro

O=F9 fais-je une erreur ?
Merci pour votre avis
A+
Fran=E7oise

2 réponses

Avatar
...Patrick
Légère modif ,Francoise:

Dim DerCell As Long
DerCell = Range("H65536").End(xlUp)(2).Row ' ICI
Range("H" & DerCell).Offset(-1, 0).Select

Bye


--
...Patrick


"Françoise" a écrit dans le message de
news:a83a01c435ed$70834970$
Re-bonjour,

Je m'en sors presque !!! pour ceux qui suivent mes folles
aventures "macrobiotiques"...

Il me reste une question que je n'arrive pas résoudre,
bien que ce soit certainement très simple

Je veux sélectionner la dernière cellule contenant une
valeur de la colonne H

Voici la macro :
---
Dim DerCell As Long
DerCell = Range("H65536").End(xlUp)(2).Cells
Range("H" & DerCell).Offset(-1, 0).Select
---
j'ai l'erreur : la méthode range de l'objet global a
échoué sur la dernière ligne de la macro

Où fais-je une erreur ?
Merci pour votre avis
A+
Françoise
Avatar
Pierre Fauconnier
Bonsoir

range("H65536").End(xlUp).select

Cela convient-il?


--
Pierre Fauconnier ()
Les sept laids tuent ( Lewis Carol )
Remplacez nospam.nospam par pfi.be pour répondre. Merci

Je m'en sors presque !!! pour ceux qui suivent mes folles
aventures "macrobiotiques"...

Il me reste une question que je n'arrive pas résoudre,
bien que ce soit certainement très simple

Je veux sélectionner la dernière cellule contenant une
valeur de la colonne H

Voici la macro :
---
Dim DerCell As Long
DerCell = Range("H65536").End(xlUp)(2).Cells
Range("H" & DerCell).Offset(-1, 0).Select
---
j'ai l'erreur : la méthode range de l'objet global a
échoué sur la dernière ligne de la macro

Où fais-je une erreur ?
Merci pour votre avis
A+
Françoise