comment sauvgarder l'indice de l'avant derniere colonne activé

[LMA]

est ce qu'il y a une possibilité pour savoir la colonne avant derniere qui a etait activé.

je travail avec la fonction "Private Sub Worksheet_Change(ByVal range1 As Range)"

********************************************************
Private Sub Worksheet_Change(ByVal range1 As Range)
Dim sel As String
sel = ActiveCell.Column
If (sel = "18") Or (sel = "16") Or (sel = "19") Then
range1.Font.ColorIndex = 5
ActiveCell.Next.Select
Call CommandButton3_Click
End If
End Sub
*********************************************************

si la colonne 16 ou 18 ou 19 a subi des changement ça active un changement.
comment sauvgarder l'indice de l'avant derniere colonne activé

Merci
tt ça est bien mais il y a un probleme c que parfois mes trois colonne peuvent changer sans qu'il n'entre ds mon if.
car si on change une donnée ds la colonne 16 par exemple puis tu click sur une cellule d'une colonne autre que 16,18,19 ma variable au moment ou il rentre pour excécuter la procedure "Worksheet_Change" ma variable sel n'as pas la valeur de la colonne 16 mais la valeur de l'autre colonne clické deçu.

comment faire pour dévier ce probléme.

 

[STéphane]

utilise plutôt l'évènement SelectionChange de l'objet Worksheet

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If lastcol <> 0 Then col = lastcol
lastcol = Target.Item(1).Column

MsgBox lastcol
End Sub




Public col
Public lastcol
Sub Bouton1_QuandClic()
MsgBox "dernière" & lastcol
MsgBox "avant dernière" & col
End Sub

bye
stephane