transcription formule en vba

Sauvage

XLDnaute Nouveau

• 31 Juillet 2013

• #2

Re : transcription formule en vba

Bonjour

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

Code:

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 :

Code:

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

 

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 31 Juillet 2013

• #3

Re : transcription formule en vba

Hello tout le monde

Moi j'ai compris ça...

Code:

    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

 

Vote positif 0 Vote négatif

L

lolodu74

XLDnaute Nouveau

• 31 Juillet 2013

• #4

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

 

Vote positif 0 Vote négatif