derniere cellule non vide de la colonne M

néné06

XLDnaute Accro

• 16 Mars 2013

• #2

Re : derniere cellule non vide de la colonne M

Bonsoir Cindy

Un exemple , si j'ai bien compris et si la colonne M contient des cellules occupées.

finM = Sheets("Feuil1").Range("M2").End(xlDown).Row 'donne num derniere ligne occupée col M

A+

René

 

Vote positif 0 Vote négatif

ralph45

XLDnaute Impliqué

• 16 Mars 2013

• #3

Re : derniere cellule non vide de la colonne M

Bonjour Cindy75015,

A tester, en supposant que ta sélection se fasse en feuille active... A+

Code:

Sub Cindy()
    Range("M1").Select
    Selection.End(xlDown).Select
End Sub

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 16 Mars 2013

• #4

Re : derniere cellule non vide de la colonne M

Bonjour à tous,

Peux-tu essayer ceci :

Range("M65000").End(xlUp).Select

Cliquez pour agrandir...

A+ à tous

 

Vote positif 0 Vote négatif

ralph45

XLDnaute Impliqué

• 16 Mars 2013

• #5

Re : derniere cellule non vide de la colonne M

Bonjour JCGL 🙂

"Up and Down, Boy you turn me..." Spéciale dédicace à Donna Summer 😛
Comme Cindy75015 l'a spécifié, elle "tourne" sur 2010, il y a donc une petite possibilité que la 65000ème ligne soit renseignée et que ton code retourne le curseur en M1.

A+

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 16 Mars 2013

• #6

Re : derniere cellule non vide de la colonne M

Bonjour à tous,
Salut Ralph,

Merci de tester ce fichier...

A+ à tous

 

Pièces jointes

• JC Up and Down.xlsm

  25.7 KB · Affichages: 38

Vote positif 0 Vote négatif

ralph45

XLDnaute Impliqué

• 16 Mars 2013

• #7

Re : derniere cellule non vide de la colonne M

Aïe !! 🙁

Week-end en campagne et je ne dispose que de 2003.
Je ferai le test ultérieurement... 🙄

A+

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 16 Mars 2013

• #8

Re : derniere cellule non vide de la colonne M

Bonjour à tous,

Une version *.xls

A+ à tous

 

Pièces jointes

• JC Up and Down.xls

  77 KB · Affichages: 37

Vote positif 0 Vote négatif

C

cindy75015

Guest

• 16 Mars 2013

• #9

Re : derniere cellule non vide de la colonne M

bonjour le fil
la bonne solution est
Range("l65000").End(xlUp).Select

j'ai en effet changer la colonne l pour la colonne m

Cindy

merci de vos réponses
+ 1 point a ce qui avait la bonne reponse

 

Vote positif 0 Vote négatif

C

cindy75015

Guest

• 16 Mars 2013

• #10

Re : derniere cellule non vide de la colonne M

bonjour JCGL
merci pour ton fichier je vais le garder sous le coude

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 16 Mars 2013

• #11

Re : derniere cellule non vide de la colonne M

Bonjour à tous,

Cindy : le xlDown pourrait fonctionner si toutes les cellules avant M3 étaient renseignées. Voilà pourquoi il est préférable de partir du bas... Et le 65 000 peut être remplacé par 1 400 000 si tu as plus de 65 000 lignes.

A+ à tous

 

Vote positif 0 Vote négatif