Détection de la derniere colonne

[Nevil]

Dim i As Integer
With Worksheets('tableau des RI')
i = Range('A65536').End(xlUp).Row
MsgBox 'La Dernière Ligne est:' & i
End With

Ce code marche impec pour trouver le numero de la derniere ligne, maintenant, jaimerais trouver le numero de la derniere colonne, si cela est possible et je suppose que ca l'est.

Dans le code ci-dessus si je remplace .Row par .Column ca ne mavance a rien.

Merci encore pour votre aide

Julien

 

[PascalXLD]

Bonjour

i = Range('IV1').End(xltoleft).column

Te donne le dernière colonne de la ligne 1

 

[Hervé]

bonjour nevil

Dim i As Integer
With Worksheets('tableau des RI')
i = Range('IV1').End(xlToLeft).Column 'pour la ligne 1
MsgBox 'La Dernière colonne est:' & i
End With
E

ce code te donne la derniere colonne utilisé en ligne 1, par contre celui-ci est retourné sous la forme numérique.

je ne sais pas à quoi ca va te servir, mais si c'est pour recherche une cellule, utilise après la syntaxe cells(ligne, colonne) au lieu de range(..).

salut

edition : salut pascal

Message édité par: Hervé, à: 20/12/2005 10:10

 

[Domi]

Bjr à tous,
Bjr Nevil,

Je vois deux méthodes :

1) tu adaptes ton code en indiquant la dernière cellule ligne1, et tu modifies End(xlToLeft

2) tu pars de (A1) et tu rédiges ta formule avecun End(xlToRight)

Celà dépend en fait de ton besoin ...

 

[ChTi160]

Salut Nevil
bonjour le fil

un test car je n'arrive plus à poster lol
bonne journée

New Edition
ils vont croire que je suis Ouffff
message de l'Horreur enfin L'Error
Internal Server Error
The server encountered an internal error or misconfiguration and was unable to complete your request.
Please contact the server administrator, tech@ovh.net and inform them of the time the error occurred, and anything you might have done that may have caused the error.
More information about this error may be available in the server error log.

Apache/1.3.33 Server at www.excel-downloads.com Port 80

Message édité par: Chti160, à: 20/12/2005 10:27

 

[Nevil]

Merci les gars ca marche encore impec

 

[excalibur]

bonjour nevil pascal jean marie dom herve le forum un autre code qui peut etre interessant Option Explicit
Sub Macro1()
MsgBox Cells.Find('*', , , , , xlPrevious).Row 'derniere ligne non vide
MsgBox Cells.Find('*', , , , , xlPrevious).Row + 1 'premiere ligne vide
MsgBox Cells.Find('*', , , , , xlPrevious).Column 'derniere colonne non vide
MsgBox Cells.Find('*', , , , , xlPrevious).Column + 1 'premiere colonne vide
End Sub'salutations

 

[ChTi160]

Salut jean Pierre
moi je prends Lol
Merci
bonne journée

 

[coco_lapin]

Bonsoir le forum

La réponse à ta question avait été donnée par myDearFriend! dans le fil suivant:

Dim DernLignTableau As Long
DernLignTableau = ActiveSheet.UsedRange.Cells(ActiveSheet.UsedRange.Count).Column

C'est l'idéal pour trouver la dernière ligne ou colonne utilisée.

Ce lien n'existe plus

 

[Monique]

Bonjour,

par formule (matricielle, à valider par ctrl, maj et entrée)
MAX(SI(Tablo différent de '';COLONNE(Tablo)))