Comment trouver dernière colonne ?

[Pierre]

Bonjour,

Comment trouver la dernière colone d'un tableau.
Je n'arrive pas à trouver l'équivalent de .End(xlDown).Row utilisé pour les lignes.

En fait mon besoin est de selectionner toutes les cellules d'un tableau dont je ne connais ni le nombre de colonnes ni le nombre de lignes.
De plus ce tableau ne commence pas en ligne 1.

Merci de vos aides.

Pierre

 

[JC de Lorient]

salut Pierre, le forum

regarde avec les fonctions :
.End(xlright)
.End(xlleft)


JC

 

[yvan]

Bonsoir,

Je ne sais pas si ceci peut t'aider.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range('B2:K51')) Is Nothing Then
[A54] = Cells(Target.Row + 57, Target.Column)
Exit Sub
End If
If Not Intersect(Target, Range('B59:K108')) Is Nothing Then
[A54] = Target.Value
Exit Sub
End If
[A54] = ''
End Sub

A+

 

[Bernard_XLD]

Bonjour Pierre, Jc de Lorient, Yvan

regarde cette commande, elle fait quelque chose comme cela.

A+

ActiveSheet.UsedRange.Select

 

[Bernard_XLD]

Re

sinon pour la commande consistant à trouver la dernière colonne utilisée d'une ligne, c'est celle la.

A+

Range('IV2').End(xlToLeft).Select

 

[Pierre]

Merci à vous tous pour votre aide.

La formule 'ActiveSheet.UsedRange.Select' me va très bien.