Galère de code IF

[Ken Hutchinson]

Hello,

Voilà je galère avec ce code. Je veux lancer une macro suivant ce qu'il y a dans une cellule :

Sub Choix_PR()


Sheets("Global").Select
If Range("AM3").Text = "blabla" Or "blibli" Then
    Call PR_TRANS
    End If
    
If Range("AM3").Text = "bloblo" Then
    Call PR_RAD
    End If

else do nothing

End Sub

Ca plante et je ne suis pas assez expert pour débugger...

merci de votre aide.

 

[PascalXLD]

Re : Galère de code IF

Bonjour

Sub Choix_PR()


Sheets("Global").Select
If Range("AM3") = "blabla" Or Range("AM3")="blibli" Then
Call PR_TRANS
ElseIf Range("AM3") = "bloblo" Then
Call PR_RAD
End If

End Sub

 

[mutzik]

Re : Galère de code IF

Bonjour Ken, Pascal

ou encore :
sub Choix_PR()
select case sheets("global").range("AM3")
case "blabla" or "bloblo"
PR_TRANS
case "bloblo"
PR_RAD
case else
msgbox "ne rien faire"
end select
end sub