Code VBA cellule Unique

Bonjour à tous,

j'ai le code suivant pour l'insertion de la date suite à un double clic :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    With Target
        If .Column = 2 Then .Value = Date
    End With
    Cancel = True
End Sub

Je voudrais savoir comment le modifier pour qu'il ne fonctionne que dans la case B2 plutôt que dans toute la colonne 2 (où B).

Merci

Bonjour,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Address = "$B$2" Then
        Target = Date
        Cancel = True
    End If
End Sub

Cordialement,

Merci Sébastien pour ta réponse qui malheureusement ne fonctionne qu'en partie !

Je m'explique, car ton code n'a fonctionné que partiellement, la cellule référencée en B2 est en fait la fusion des cellule B2 et C2, si je laisse les cellules fusionnées le code ne marche pas mais si je les sépare le code fonctionne bien en B2.

Aurais tu une solution pour que cela fonctionne dans ma cellule fusionnée.

Merci d'avance

Essaie avec cette petite modification :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If ActiveCell.Address = "$B$2" Then
        Target = Date
        Cancel = True
    End If
End Sub

Merci Sébastien

Encore une question,

Le code que tu m'as donné a été mis dans fichier excel format xls (pas de problème de fonctionnement).

Par contre j'utilise mon code initiale dans un autre fichier mais celui là je ne peux l'enregistrer qu'en format xlsm.

J'aimerai comprendre pourquoi je ne peux pas l'enregistrer en xls.

Merci encore

arnos a écrit :

Par contre j'utilise mon code initiale dans un autre fichier mais celui là je ne peux l'enregistrer qu'en format xlsm

Je viens de l'enregistrer au format xls et il n'y a pas eu de problème ...

Je sais et c'est cela que je ne comprends pas, j'ai rajouté le code dans fichier xls ancien pour simplifier la saisie et je peux toujours l'enregistrer en xls mais quand je crée un nouveau fichier avec le même code (c'est le seul code que j'utilise sur cette feuille) la il ne m'accepte que le format xlsm pour l'enregistrer.

je vais essayer de joindre le fichier en question

Ce n'est pas lié au code VBA.

C'est probablement dû à la fonction SIERREUR non disponible avec les vieilles versions d'Excel ...

Merci Sébastien,

Je ne vais pas abuser de tes connaissances mais j'ai aussi utilisé la fonction sierreur dans le fichier qui lui veut bien s'enregistrer en XLS,

c'est pourquoi je ne comprends pas pourquoi mon fichier tout simple ne veut pas s'enregistrer en xls.

Bonne soirée

Arno

Je viens de faire le test en enregistrant en xls un fichier qui ne contenait qu'une formule SIERREUR et il y a bien eu le même message.

Après, ce message ne t'empêche pas d'enregistrer en xls (tu peux tout à fait enregistrer un classeur avec des SIERREUR en xls). Cet avertissement t'informe simplement qu'il y aura des problèmes de compatibilité avec les vieilles versions d'Excel ...