dernière cellule d'un tableau (macro)

[Mike]

Bonjour,

comment doit on si prendre pour trouver la dernière ligne d'un tableau (dans une macro)

Merci d'avance pour toutes cos suggestions.

 

[john]

Salut,

Voici comment tu peux faire, mais il y a plusieurs façons 🙂

ligne = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count
Range('A' & ligne).Select

Bonne fin de journée.

John

Message édité par: john, à: 21/12/2005 15:40

 

[Mike]

Salut John,

Tout d'abord merci pour ta réponse.

Mais ya un problème, en effet, j'aimerai que la macro me donne la dernière cellule du tableau (la dernière ligne ayant un texte à l'interieur)

Qaund je teste le code que tu m'as passé, le 'curseur' se place à la ligne 67 alors que la dernière cellule du tableau est la 36.

As tu une explication.
Et encore merci pour la réponse.

Mike

 

[Mike]

Les lignes de codes suivantes fonctionnent mais (voir message precedent)

Ligne = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count
Range('A' & Ligne).Select

Par contre j'essai de selectionner par la suite une selectionner et la je coince et oui encore..

donc imaginons que ma dernière ligne soit la 36
Je veux donc sélectionner (A36:CX36).
J'ai donc essayé les lignes suivantes mais ca ne fonctionne pas.

Ligne = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count
Range('A' & Ligne:'CX' & Ligne).Select


J'ai d'ailleurs essayé plusieurs variante mais sans résultat:
Range('A & Ligne : CX & Ligne').Select
etc...

Comme vous pouvez vous en doutez je débute donc merci de votre aide

 

[john]

Re,

Voici comment faire :whistle:

Range('A' & Ligne & ':CX' & Ligne).Select

Dans ton exemple il y a une erreur !!! il manque 1 & car ligne est une variable et :CX est du texte donc pour les concaténer il faut obligatoirement le &

Pour ce qui est de ma formule pour trouver la première ligne vide après ton tableau, elle fonctionne sans problème, regarde si tu n'as pas un caractère qui traine sur la ligne 36.

Bonne soirée.

John

Message édité par: john, à: 21/12/2005 18:15

 

[Mike]

Je te remercie John ça marche parfaitement.