Comment trouver dernière colonne ?

JC de Lorient

XLDnaute Impliqué

• 21 Janvier 2006

• #2

salut Pierre, le forum

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


JC

 

Vote positif 0 Vote négatif

Y

yvan

Guest

• 21 Janvier 2006

• #3

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+

 

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

Modérateur

• 21 Janvier 2006

• #4

Bonjour Pierre, Jc de Lorient, Yvan

regarde cette commande, elle fait quelque chose comme cela.

A+

Code:

ActiveSheet.UsedRange.Select

 

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

Modérateur

• 21 Janvier 2006

• #5

Re

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

A+

Code:

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

 

Vote positif 0 Vote négatif

P

Pierre

Guest

• 21 Janvier 2006

• #6

Merci à vous tous pour votre aide.

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

 

Vote positif 0 Vote négatif