macro dans excel

Question

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

Heremion · Answer

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

Paf · Answer

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

Macro dans excel

2 réponses

Votre réponse

Discussions similaires

Newsletters