Insertion formule par double clic

Bonjour à tous,

J'aimerais un coup de main concernant l'insertion d'une formule par double clic.

Ma formule fonctionne si je l'insère directement dans la barre de formule. Cepandant, le code ne veut pas l'insérer.

Votre aide sera grandement appréciée car je me considère débutant avec le VBA.

Voir le code plus bas.

Merci.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Formule_janvier = "=PRODUIT(INDIRECT(ADRESSE(LIGNE();1;3));INDIRECT(ADRESSE(LIGNE();2;3)))"

With Target

If Not Intersect(.Cells, Me.Range("K1:K49, I1:I49")) Is Nothing Then

If .Value = Empty Then

.Formula = Formule_janvier

Else

.ClearContents

End If

End If

End With

End Sub

Bonjour

Je ne sais pas exactement ce que tu recherches mais essayes

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

  Formule_janvier = "=PRODUIT(INDIRECT(ADRESSE(LIGNE();1;3));INDIRECT(ADRESSE(LIGNE();2;3)))"

  With Target
    If Not Intersect(.Cells, Me.Range("K1:K49, I1:I49")) Is Nothing Then
      Cancel = True
      If .Formula = "" Then
        .FormulaLocal = Formule_janvier
      Else
        .Formula = ""
        .ClearContents
      End If
    End If
  End With
End Sub

Merci beaucoup Banzai64

Ça à fonctionné.