se deplacer a la derniere colonne

[vge]

Bonjour,
existe t il une fonction pour se deplacer vers la derniere colonne non
vide et recuperer le n° de colonne .
merci @+ vincent

 

[Robert]

Salut Vincent, Salut le forum,

Si l'on considère que toutes les lignes possèdent le même nombre de cellules et que la ligne A n'est pas vide, cette macro devrait te satisfaire :

Public Sub dep()
Range("IV1").End(xlToLeft).Select
ms = "Colonne Nº " & ActiveCell.Column
a = MsgBox(ms)
End Sub

À plus,

Robert

 

[vge]

oui merci robert,
en fait pour le deplacement je savais que je pouvais faire
Selection.End(xlToRight).Select
par contre il me manquait le
activecell.column
merci de ton aide
@+ vincent