Macro - double clic dans cellule avec 6 chiffres

[gourdin]

Bonjour,

Je souhaite en double cliquant sur les cellules contenant 6 chiffres déclencher une action.

J'ai essayé de "bidouiller" dans une macro évènementielle, ci après, le code NumberFormat = "000000" mais celà n'est pas correcte

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Cells(1, 1).NumberFormat = "000000" Then
etc.

End If
End Sub

Merci de votre aide

 

[mth]

Re : Macro - double clic dans cellule avec 6 chiffres

Bonsoir gourdin,

Un petit essai avec:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Len(Target) = 6 And IsNumeric(Target) Then
        [COLOR=green]'ton code[/COLOR]
    End If
End Sub

 

[gourdin]

Re : Macro - double clic dans cellule avec 6 chiffres

Merci,

Ca fonctionne

Bonne soirée