Macro dans excel
irettigam
-
Paf -
Paf -
Bonjour,
Je n'arrive pas à écrire dans une MACRO:
si a1=b1 et a2=b2 OK message sonor
si a1<>b1 et a2<>b2 FAUX autre message sonor
Merci beaucoup pour vos conseils
Denis
Je n'arrive pas à écrire dans une MACRO:
si a1=b1 et a2=b2 OK message sonor
si a1<>b1 et a2<>b2 FAUX autre message sonor
Merci beaucoup pour vos conseils
Denis
2 réponses
-
bonjour
d'abord faire la déclaration suivante en tête de module:Private Declare Function Beep& Lib "Kernel32" (ByVal Fq&, ByVal Tm&)
qui permet d'utiliser beep de la façon suivante:
Beep 200, 300 où 200 est la tonalité et 300 la durée du son
puis dans la macro:
if a1=b1 and a2=b2 then Beep 100, 300 elseif a1<>b1 and a2<>b2 then Beep 1000, 600 end if -
Si A1,A2,B1,B2 sont tes cellules alors dans une macro, tu dois écrire :
If (Range("A1").Value = Range("B1").Value) And (Range("A2").Value = Range("B2").Value) Then Beep MsgBox "OK" Else Beep MsgBox "ERREUR" End If
Sinon il te suffit de remplacer les Range... par les noms tes variables
