Détection de la derniere colonne

PascalXLD

XLDnaute Barbatruc

• 20 Décembre 2005

• #2

Bonjour

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

Te donne le dernière colonne de la ligne 1

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 20 Décembre 2005

• #3

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

D

Domi

Guest

• 20 Décembre 2005

• #4

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 ...

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 20 Décembre 2005

• #5

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

 

Vote positif 0 Vote négatif

N

Nevil

XLDnaute Occasionnel

• 20 Décembre 2005

• #6

Merci les gars ca marche encore impec 😉

 

Vote positif 0 Vote négatif

excalibur

XLDnaute Impliqué

• 20 Décembre 2005

• #7

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

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 20 Décembre 2005

• #8

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

 

Vote positif 0 Vote négatif

coco_lapin

XLDnaute Impliqué

• 21 Décembre 2005

• #9

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

 

Vote positif 0 Vote négatif

M

Monique

Nous a quitté

Repose en paix

• 21 Décembre 2005

• #10

Bonjour,

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

 

Vote positif 0 Vote négatif