Faire des tests avant d'effectuer une macro

[k4RADOC]

Bonjour à tous,

Dans ma question du jour je souhaiterais créer une commande vérifiant que deux cellules soient égales à ce que je souhaite (voir fichier joint). En gros je veux que lorsque je clique sur mon bouton différentes macros s'effectuent. Cependant je souhaite qu'avant toute chose ma macro vérifie que la cellule A1 soit bien égale à "Test 1" et la cellule P1 soit bien égale à "Test2". Si c'est le cas alors on appelle à la chaine les macros (call macro1, call macro2 etc). Sinon une fenètre s'ouvre disant "vous n'êtes pas autorisé à effectuer cette action".

 

[Pierrot93]

Re : Faire des tests avant d'effectuer une macro

Bonjour,

pas ouvert ton fichier, de toute façon les fichiers "xlsx" ne prennent pas en charge les macros... mais egarde peut être ceci :

With Sheets("NomFeuille")
    If .Range("A1").Value = "Test1" And .Range("P1").Value = "Test2" Then
        Call macro1
        Call macro2
    End If
End With

bonne journée
@+

 

[Guest]

Re : Faire des tests avant d'effectuer une macro

Bonjour,


Voir du côté de If ... Then ... Else ... Endif

A+

[edit] hello Pierrot

 

[Pierrot93]

Re : Faire des tests avant d'effectuer une macro

Re,

avec un message

Option Explicit
Sub test()
With Sheets("NomFeuille")
    If .Range("A1").Value = "Test1" And .Range("P1").Value = "Test2" Then
        Call macro1
        Call macro2
    Else
        MsgBox "pas le droit..."
    End If
End With
End Sub

Edition : bonjour Hasco

 

[k4RADOC]

Re : Faire des tests avant d'effectuer une macro

Ca m'a l'air pas mal tout ça je teste et je vous tiens au courant
Ps le fichier est en xlsx mais c'est juste un "exemple

 

[k4RADOC]

Re : Faire des tests avant d'effectuer une macro

J'ai finalement eu le temps de tester ton code marche parfaitement Pierrot merci à toi