Double click cellule ne fonctionne pas

Bonsoir à tous.

J'ai rajouter a certaine de mes feuilles le code suivant

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Dim sDate As Date
  'If IsDate(Target) Then Cancel = True Else Exit Sub
  Cancel = True
  ' Récupérer la date de la cellule et l'inscrire dans le champ masqué

    If Not Intersect(Target, Range("D17")) Is Nothing Then

  vDate = IIf(IsDate(Target.Value), Target.Value, Date)
  ' Afficher l'USF
  UsFCalendrier.Show

End If

End Sub

qui me permet d'ouvrir en double cliquant dans certaine cellule un calendrier. Cependant lorsque je souhaite modifié une autre cellule le double clik ne fonctionne plus je suis obligé de passer par la barre blanche pour modifié le contenu;

Quelqu'un aurais une idée? je continue d'essayer de decoder le code pour voir le petit mot qui fera tout changer

Bonjour,

Pour faire un test, mets ... Cancel = True ... en commentaire pour le désactiver ...

gelinotte

Re,

Tu as mis Cancel à True pour tous les cas, tu ne peux plus éditer la cellule ainsi.

Il faut le mettre dans la condition.

ok du coup je met quoi?

cancel = ?

Tu mets True, mais tu mets l'instruction entre le If et le End If.

ca veut dire quoi mettre l'instruction?

Je deplace cancel = true?

Je dois le mettre où je ne voit pas de IF tout seul

Si tu indentais tu verrais !

If Not Intersect(Target, Range("D17")) Is Nothing Then
    Cancel = True
    vDate = IIf(IsDate(Target.Value), Target.Value, Date)
   ' Afficher l'USF
   UsFCalendrier.Show
End If

C'est quand cette condition est vérifiée que tu dois annuler l'effet habituel du double clic.

identais?

indentais

If et End If dans le même alignement et ce qui est entre en retrait (sauf s'il y avait un Else).

Tu vois tout de suite où commence et finit la condition...

Ok n'etant pas tres expert en la matiere, pourrais tu me dire ce qu'il faut que je modifie dans mon code?

Bonjour,

Je t'ai indiqué où il fallait que tu mettes : Cancel = True.

As-tu vérifié que cela fonctionnait bien comme tu voulais ainsi.

Bonne journée.

Ouppsss ah oui je n'avais pas vu le changement dans ton code.

Ca fonctionne merci beaucoup

Bonne journée.