Creer un code sous condition d'une cellules

[creolia]

bonjour à tous

je reviens vers vous car je me trouvent confronté à un probleme

je souhaite lancer une macro sous sous la condition suivante:
que si dans ma feuille "BDD" dans la collone F la derniere ligne renseigner la valeur est 1 ma macro1 se lance dans le cas contraire ma macro2 s'execute.

un peut de ce genre pour un controleur mais ce coup si pour une feuille.

If textbox1.value= "1" then
Macro1.action
else
Macro2.action
end if 

donc mon but etant que si la derniere cellule de la collone F =1 Macro1 autrement Macro2

merci d'avance de votre aide à tres bientot

 

[Pierrot93]

Re : Creer un code sous condition d'une cellules

Bonjour,

essaye ceci :

If Sheets("BDD").Range("F65536").End(xlUp).Value = 1 _
    Then macro1 Else macro2

bon après midi
@+

 

[Dull]

Re : Creer un code sous condition d'une cellules

Salut creolia, le Forum

Peut être comme cela

Dim Derlig As Long
Derlig = Feuil1.Range("F" & Rows.Count).End(xlUp).Row
If Cells(Derlig, 6) = "1" Then Macro1 Else Macro2

EDITION: Salut Pierrot 🙂 ...SacréDécalageHoraire...😛
Bonne Journée

 

[Pierrot93]

Re : Creer un code sous condition d'une cellules

Re,
rien de nouveau.. juste pour saluer l'ami Didier🙂🙂.. Aarf, 6 minutes, ca va encore comme décalage...

 

[TempusFugit]

Re : Creer un code sous condition d'une cellules

Bonjour

Un autre façon avec Application.Run et IIF

Sub MacroTest()
Application.Run "Macro" & IIf(Sheets(1).[A1] = 1, 1, 2)
End Sub

Sub Macro1()
MsgBox "Macro1"
End Sub

Sub Macro2()
MsgBox "Macro2"
End Sub

 

[creolia]

Re : Creer un code sous condition d'une cellules

Bonjour Pierrot93,Dull et TempusFugit,

Merci à tous les trois pour votre aide apres avoir tester vos trois possibilités j'ai opter pour la solution de pierrot93 qui à mon niveau est plus comprehensible mais tous vos solutions sont parfaite merci à tous encore et à trés bientot