Label et ActiveCell

[MIKE]

Hello le forum !!!

Voici mon probleme

Je veux pouvoir faire des changements ds mon tableau dans les colonnes F et G
En double cliquant sur une cellule de F ou G cela lance mon UF3
Je voudrais qu'en fonction de la colone, le label1 affiche tel ou tel message. J'ai fais ca sous cette forme:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Application.Intersect(Target, Range('F6:G21')) Is Nothing Then Exit Sub

adresse = Target.Row
If ActiveCell.Column = F Then
UserForm3.Label1.Caption = 'message1'
End If
If ActiveCell.Column = G Then
UserForm3.Label1.Caption = 'message2'
End If
UserForm3.TextBox1.Value = adresse

UserForm3.Show

End Sub

Mais bien sur ca ne marche pas !!! 🙁

ou est le probleme ???

Merci d avance !!!

 

[michel_m]

Bonjour,

essaies de remplacer

ActiveCell.Column = F

par

ActiveCell.Column = 6

la propriété column étant du type long

A+
Michel

 

[MIKE]

MERCI MICHEL !!!! 🙂