transcription formule en vba

[lolodu74]

Bonjour,

Je cherche à écrire cette formule en vba, si quelqu'un pouvait m'aider, ce serait sympa.

=SI(SOMMEPROD(($F$5:$F5=F5)*($A$5:$A5=A5))>1;0;1)

Je vous en remercie

Cordialement

Lolodu74

 

[Sauvage]

Re : transcription formule en vba

Bonjour

Dans la fenêtre VBA tapez ctrl + G
Dans la fenêtre d'execution qui s'ouvre saisissez :

debug.Print Sheets(?).range("?").formula

(en remplacant les ? par les coordonnées où se trouve votre formule)
Puis validez par la touche entrée.

Dans votre cas cela donne :

=IF(SUMPRODUCT(($F$5:$F5=F5)*($A$5:$A5=A5))>1,0,1)

 

[Hulk]

Re : transcription formule en vba

Hello tout le monde

Moi j'ai compris ça...

    Dim x, xx As Double
    
    If x = Evaluate("=SUMPRODUCT(($F$5:$F5=F5)*($A$5:$A5=A5))") > 1 Then
        xx = 0
    Else
        xx = 1
    End If
    
    MsgBox xx

Mais j'avoue ne pas comprendre cette formule

 

[lolodu74]

Re : transcription formule en vba

Bonsoir,

Merci pour votre aide, j'ai pu l'adapter dans mes macros, elle me sert dans mon tableau à identifier le nombre de valeur unique afin de créer un tdc.

Cordialement

Laurent