Condition sur le formatage de nombre d'une cellule

[licwimi]

Bonjour,

J'aimerais mettre une condition sur le formatage d'une cellule.
Je m'explique, je souhaiterais que pour toutes les cellules formatées en format date, lorsque je double clic dessus, il y ait un userform que j'ai créé qui apparaisse. (cela doit être valable aussi pour les cellules vides, mais formatées en format date).

Merci d'avance.

L.

 

[Pierrot93]

Re : Condition sur le formatage de nombre d'une cellule

Bonjour,

essaye peut être ceci, dans le module de la feuille concernée :

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.NumberFormat = "m/d/yyyy" Then Cancel = True: nomdetonusf.Show
End Sub

bon après midi
@+

 

[Robert]

Re : Condition sur le formatage de nombre d'une cellule

Bonjour Licwimi et bienvenu, bonjour le forum,

Essaie comme ça :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.NumberFormat = "m/d/yyyy" Then 'condition : si le format dans la cellule double-cliquée est (format à adapter...)
    Cancel = True 'évire le mode édition lié au double-clic
    UserForm1.Show 'ouvre l'UserForm1
End If 'fin de la condition
End Sub

[Édition]
Bonjour Pierrot on s'est croisé.

 

[licwimi]

Re : Condition sur le formatage de nombre d'une cellule

Ca ne marche pas désolé...
J'avais essayé avec ça avant:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If ActiveCell.NumberFormat = "jj/mm/aa" Then
  UserForm2.Show
  End If
End Sub

 

[Robert]

Re : Condition sur le formatage de nombre d'une cellule

Bonjour le fil, bonjour le forum,

Ha que si que ça marche ! Regarde en pièce jointe. Clique sur C11... Mais attention c'est en anglais j=d, m=m et a=y...

 

[licwimi]

Re : Condition sur le formatage de nombre d'une cellule

Ca marche, en fait il faut que je mette le premier format de date sinon ça n'a pas l'air de marcher.

merci du coup de pouce !! Et vive la rapidité.

L.