Excel Downloads Forums - Afficher un message

pierrejean · 09/01/2009, 10h36

bonjour tactic6

A tester

Code:

.....
If Target.Column = 2 Then
     Worksheets("Recherche").Select
    If TypeName(Selection) = "Range" Then
        UserForm2.Show
        Worksheets("SAISIE").Select
    End If
Else
 If Target.Address = "$G$5" Then Calendar.Show
End If
....

09/01/2009, 10h36	#2 (permalink)
pierrejean XLDnaute Barbatruc Date d'inscription: janvier 2006 Localisation: 69400 LIMAS Messages: 8 106	Re : Double clic en fonction de cellule bonjour tactic6 A tester Code: ..... If Target.Column = 2 Then Worksheets("Recherche").Select If TypeName(Selection) = "Range" Then UserForm2.Show Worksheets("SAISIE").Select End If Else If Target.Address = "$G$5" Then Calendar.Show End If ....