Macro - double clic dans cellule avec 6 chiffres

gourdin · 18 Octobre 2010

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 · 18 Octobre 2010

Re : Macro - double clic dans cellule avec 6 chiffres

Bonsoir gourdin,

Un petit essai avec:

Code:

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 · 18 Octobre 2010

Re : Macro - double clic dans cellule avec 6 chiffres

Merci,

Ca fonctionne

Bonne soirée

Macro - double clic dans cellule avec 6 chiffres

gourdin

XLDnaute Impliqué

mth

XLDnaute Barbatruc

gourdin

XLDnaute Impliqué

Discussions similaires

Macro - double clic dans cellule avec 6 chiffres

gourdin

XLDnaute Impliqué

mth

XLDnaute Barbatruc

gourdin

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency