dernière colonne en VBA

Staple1600

XLDnaute Barbatruc

• 4 Février 2008

• #2

Re : dernière colonne en VBA

Bonsoir


Pour la ligne 1 par exemple

Sub test()
'addresse
MsgBox [IV1].End(xlToLeft).Address(0, 0)
End Sub

Sub test_II()
'valeur
MsgBox [IV1].End(xlToLeft).Value
End Sub

Sur une Selection (ici ligne 1)
MsgBox Cells(1, Selection.Columns.Count).Value

 

Dernière édition: 4 Février 2008

Vote positif 0 Vote négatif

G

Guillaumega

XLDnaute Impliqué

• 4 Février 2008

• #3

Re : dernière colonne en VBA

Super merci Staple.

Je teste ca demain matin !

A+
Guillaume

 

Vote positif 0 Vote négatif

ya_v_ka

XLDnaute Impliqué

• 4 Février 2008

• #4

Re : dernière colonne en VBA

Salut

pour XL jusqu'à 2003 : Range("B35000").End(xlUp).Row

pour 2007 c'est legerement différent (y'a un count qqpart, mais je ne sais pas exactement)

Ya'v

Oups stapple collision !!!!!!

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 4 Février 2008

• #5

Re : dernière colonne en VBA

Bonsoir ya_v_ka

Collision en effet


Et nous n'avons pas compris la même chose 😉

Ton code identifie la derniére cellule non vide d'une colonne

Mes exemples identifient la dernière cellule non vide d'une ligne

 

Vote positif 0 Vote négatif

G

Guillaumega

XLDnaute Impliqué

• 4 Février 2008

• #6

Re : dernière colonne en VBA

Bonjour,

Merci pour vos réponse, vous avez été super. J'ai utilisé un dérivé de cette formule :
[IV1].End(xlToLeft).Value

Merci bcp et bonne journée,
Guillaumega

 

Dernière édition: 4 Février 2008

Vote positif 0 Vote négatif