equivalent [A65000].End(xlUp).Row pour une colonne

B

ballmaster

XLDnaute Occasionnel

• 3 Juillet 2008

• #2

Re : equivalent [A65000].End(xlUp).Row pour une colonne

Oui

[A1].End(xlright).Column

 

Vote positif 0 Vote négatif

S

sylv@in

Guest

• 3 Juillet 2008

• #3

Re : equivalent [A65000].End(xlUp).Row pour une colonne

et il s'utilise comme [A65000].End(xlUp).Row?
car je l'ai utilisé pour parcourir la première ligne d'un tableau et tester des entêtes mais il bug

Cells(1, 1).Select
fin = [A1].End(xlRight).Column
For colonne = 1 To fin
If Cells(1, colonne) = "REF" Then
Cells(1, colonne).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Sort Key1:=Range(Selection), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End If
Next colonne

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 3 Juillet 2008

• #4

Re : equivalent [A65000].End(xlUp).Row pour une colonne

Bonjour

Code:

Sub test()
Dim fin As Integer
Dim colonne As Integer
'dans l'autre sens ;)
fin = [IV1].End(xlToLeft).Column
For colonne = 1 To fin
If Cells(1, colonne) = "REF" Then
Cells(1, colonne).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Sort Key1:=Range(Selection), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End If
Next colonne
End Sub

Tu veux que ta macro fasse quoi exactement ?

 

Dernière édition: 3 Juillet 2008

Vote positif 0 Vote négatif

B

ballmaster

XLDnaute Occasionnel

• 3 Juillet 2008

• #5

Re : equivalent [A65000].End(xlUp).Row pour une colonne

Bonjour,

Essaie avec cà

Code:

Cells(1, 1).Select
fin = Range("a1").End(xlToRight).Column
For colonne = 1 To fin
Cells(1, colonne).Select
If Selection = "REF" Then
Cells(1, colonne).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Sort Key1:=Range(Selection), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End If
Next colonne

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 3 Juillet 2008

• #6

Re : equivalent [A65000].End(xlUp).Row pour une colonne

Bonjour ballmaster


Tu n'est pas partisan de

Code:

[IV1].End(xlToLeft).Column

?

 

Vote positif 0 Vote négatif

B

ballmaster

XLDnaute Occasionnel

• 3 Juillet 2008

• #7

Re : equivalent [A65000].End(xlUp).Row pour une colonne

Bonjour Stapple,

A vrai dire, j'ai l'esprit tordu................

Mais sérieusement, y-a-t-il un intérêt particulier à vouloir partir du début ou de la fin ?

PS : j'ai répondu alors qu'il n'y avait pas encore ta réponse, et comme je suis bcp plus lent que toi, forcement, je suis arrivé après la bataille....

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 3 Juillet 2008

• #8

Re : equivalent [A65000].End(xlUp).Row pour une colonne

Re

ballmaster
D'après ce que j'ai lu ici

Si il y a des "trous" sur la ligne 1

[IV1].End(xlToLeft).Column
Trouvera la véritable dernière colonne

[IA1].End(xlToRight).Column
s'arrêtera dès qu'il y aura une cellule vide

 

Vote positif 0 Vote négatif

S

sylv@in

Guest

• 3 Juillet 2008

• #9

Re : equivalent [A65000].End(xlUp).Row pour une colonne

théoriquement pas de trou sur ma ligne mais les deux formules marchent nikel merci beaucoup a tous

 

Vote positif 0 Vote négatif