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

L

LMA

Guest
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.
 
S

STéphane

Guest
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
 

Statistiques des forums

Discussions
311 732
Messages
2 081 995
Membres
101 857
dernier inscrit
mt60400