[VBA-E] Récupérer la derniere cellule d'un range

**ashurai** · 08/06/2006, 11h27

Bonjour à tous,

Je sais que ca parrait trés bête, mais je m'arrache les cheveux la dessus, et comme je commence à plus en avoir, je fais appel a vous...

Alors voila je souhaite récupérer les coordonée de le dernière cellule d'un range.

Quand mon range a plus de 1 colonne, pas de problème, quand il en a 1, ca va pas...

Voila ce que j'utilise :

Code :

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

1
2
3
 
intColLastCell = rngRange.End(xlToRight).Column
intRowLastCell = rngRange.End(xlDown).row

Pour la colonne c'est bon, mais pour la ligne, j'ai des mauvaise valeurs dans le cas ou j'ai plus d'une collone dans le range..

Je comprend rien..

Merci d'avance.

**AlainTech** · 08/06/2006, 11h37

Si tu cherches la dernière utilisée de la feuille,

Code :

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

Cells.SpecialCells (xlLastCell)

fonctionne très bien.
Il n'y a qu'à en demander le .Row ou .Column si besoin.

**ashurai** · 08/06/2006, 11h39

Non, justement, j'ai essayé avec ca, mais j'ai besoin de récupérer la derniere cellule d'un range particulier compris n'importe ou dans la feuille, pas la dernière cellule de la feuille.

**ouskel'n'or** · 08/06/2006, 11h56

Code :

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

    DernièreColonne = ActiveCell.End(xlToRight).Column

Tu peux remplacer Activecell par la cellule

A+

**ashurai** · 08/06/2006, 11h59

Je n'ai pas un problème sur la dernière colonne, mais sur la dernière ligne du range...
Je sais, je suis ch....

Et avec le xldown, il y a des décalages avec ce que j'attend.

**ouskel'n'or** · 08/06/2006, 12h06

Si tu peux avoir des cellules vides dans ta ligne ou ta colonne, utilise plutôt

Code :

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

1
2
    DernièreColonne = ActiveSheet.Range("IV1").End(xlToLeft).Column
    DernièreLigne = Range("A65535").End(xlUp).Row

A+

**ouskel'n'or** · 08/06/2006, 12h17

Hello illight,
Tu préfères montrer tes bêtises à tout le monde ? Soit :

Code illight :

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

DernièreColonne = range("A65535").End(xlup).row 'ou column

Je voulais juste t'épargner ça

Tu juges

**ashurai** · 08/06/2006, 12h46

J'ai essayé avec les 4 solution...

Code :

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

1
2
3
4
5
 
    intRowLastCell = rngRange.End(xlDown).row ' renvoi 2589
    intRowLastCell = rngRange.End(xlUp).row ' renvoi 2191
    intRowLastCell = rngRange.End(xlToRight).row ' renvoi 2192
    intRowLastCell = rngRange.End(xlToLeft).row ' renvoi 2192

Ma dernière ligne du range en question es 2587...
Ma première (pour info) est 2192

Aucune de ces méthode ne me renvoi la bonne valeur

**ouskel'n'or** · 08/06/2006, 12h55

As-tu essayé la mienne ?
Parce que, si tu as des cellules vides dans ta ligne (ou dans ta colonne), les tiennes ne fonctionnent pas !

Tu dis

A+

Là, je vais me restaurer, je te reprends après si besoin est

**AlainTech** · 08/06/2006, 12h58

En tout cas, il ne faut pas aller vers la droite ou la gauche pour trouver une ligne.

**ashurai** · 08/06/2006, 13h00

Excuse moi, mais j'ai l'impression qu'on utilise la même méthode non ?

Voici un peu plus de code

Code :

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

1
2
3
4
 
    Set rngRange = ActiveSheet.Range("MonRange")
 
    intRowLastCell = rngRange.End(xlDown).row '2589

"MonRange" est un range nommé sous Excel. Il commenca à la ligne 2192, fini à la ligne 2587, de la colonne 4.
Il ne contient et ne pourra jamais contenir de cellules vides...

Je peux me mettre à pleurer c'est ca ?

**ashurai** · 08/06/2006, 13h01

Envoyé par AlainTech

En tout cas, il ne faut pas aller vers la droite ou la gauche pour trouver une ligne.

Je sais bien, mais c'était juste pour montrer que j'avais tout tenter... Quand c'est presque peine perdue, on essaie tout :o)

**AlainTech** · 08/06/2006, 13h08

Erreur!

En programmation, il ne faut pas essayer, il faut comprendre.

Si je n'ai pas cherché plus sur ton problème, c'est que je n'ai pas tes données.

Cherche un peu (dans l'aide) sur Region ou ActiveRegion (de tête, pas vérifié).

**ashurai** · 08/06/2006, 13h16

Le probléme c'est que je ne comprend pas.

C'est quand même pas simple à comprendre quand ca marche dans certains cas, et pas dans d'autres.

Des fois j'ai la bonne ligne, des fois il me renvoi 2,3 ou 4 ligne plus bas, alors qu'elle ne font pas parties du range avec lequel je travaille..

Et j'ai utilisé l'aide avant, et aussi éfféctué des recherches en vain, je n'aurais pas poster la question sinon.

Bref, merci quand même.

**AlainTech** · 08/06/2006, 13h23

Je viens de trouver pour la region.

Cherche sur CurrentRegion.

**ashurai** · 08/06/2006, 13h33

Tu va peut être me dire que je cherche pas asser

, mais pourtant je l'ai fait.

Voila ce que j'ai "essayer" (excuse moi je trouve pas d'autre mots

)

Code :

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

1
2
3
4
 
  Set rngRange = ActiveSheet.Range("MonRange")
  intRowLastCell = rngRange.CurrentRegion.End(xlDown).row ' renvoi 2188
  intRowLastCell = rngRange.CurrentRegion.End(xlUp).row 'renvoi 9

Alors que j'attend toujours 2587.

Est-ce que tu me disputes si je dis que je comprend pas ?

**AlainTech** · 08/06/2006, 13h43

Moi, il y a une chose qui me turlupine...

Au départ, tu connais ton Range ("MonRange")?

C'est une des raisons qui m'ont fait ne pas continuer à chercher.

J'ai l'impression que tu ne nous donnes pas toutes les infos.

**ashurai** · 08/06/2006, 13h50

Désolé si je ne suis pas asser clair.

"MonRange" est le nom d'un range que j'ai crée en le seléctionnant dans Excel, et en le nommant ainsi.

Comme ca, j'accede directement à cette zone en faisant

Code :

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

1
2
 
  Set rngRange = ActiveSheet.Range("MonRange")

Ensuite, le but ultime est de parcourir toutes les cellules de cette zone comme ca :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
For Each cellCurrentCell In rngRange
 
  strLine = cellCurrentCell.Text
 
  ' Pour la derniere cellule du range, j'ai une action pariculière à faire dessus
  ' Je dois donc tester si c'est la dernière cellule
  If cellCurrentCell.Column = intColLastCell And _
    cellCurrentCell.row = intRowLastCell Then
    ' Mon action particulière
  End If
 
  Print #intFileQuery, strLine
 
Next cellCurrentCell

Mon problème étant la determination de cette dernière cellule, ca marche les 2/3 du temps comme je le fais, et des fois il y a un petit décalage...

Je ne peux pas en dire plus la ..

**illight** · 08/06/2006, 14h06

Tu peux pas nous mettre un fichier Excel avec 2 feuilles, un cas qui marche et l'autre qui ne marche pas ?

**AlainTech** · 08/06/2006, 14h24

Tiens, un petit truc dont tu pourrais t'inspirer:

Code :

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

Msgbox Split(Range("MonRange").Address, ":")(1)

[VBA-E] Récupérer la derniere cellule d'un range

Macros et VBA Excel

Discussions similaires

Partager

Partager