Galère de code IF

Ken Hutchinson · 14 Novembre 2007

Hello,

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

Code:

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 · 14 Novembre 2007

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 · 14 Novembre 2007

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

Galère de code IF

Ken Hutchinson

XLDnaute Occasionnel

PascalXLD

XLDnaute Barbatruc

mutzik

XLDnaute Barbatruc

Discussions similaires

Galère de code IF

Ken Hutchinson

XLDnaute Occasionnel

PascalXLD

XLDnaute Barbatruc

mutzik

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency