Macro dans excel

Fermé
irettigam - Modifié par irettigam le 11/08/2011 à 17:54
 Paf - 1 sept. 2011 à 16:53
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

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
1
Heremion Messages postés 539 Date d'inscription vendredi 20 mai 2011 Statut Membre Dernière intervention 1 juin 2022 101
1 sept. 2011 à 14:58
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
0