je veux faire une macro avec une condition voula le style
que je veux faire
Range("F33").Select
If Range("F33").Select < 5 Then
Sheets("Feuil2").Select
ElseIf Range("F33").Select > 5 Then
Sheets("Feuil3").Select
Else
Sheets("Feuil2").Select
End If
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
bonjour aussi, ne serait-ce pas plutôt : If Range("F33").value < 5 Then Sheets("Feuil2").Select ElseIf Range("F33").value > 5 Then Sheets("Feuil3").Select Else Sheets("Feuil2").Select End If En sachant qu'ici le else correspond donc au cas où F33 est égal à 5
-----Message d'origine----- je veux faire une macro avec une condition voula le style
que je veux faire
Range("F33").Select If Range("F33").Select < 5 Then Sheets("Feuil2").Select ElseIf Range("F33").Select > 5 Then Sheets("Feuil3").Select Else Sheets("Feuil2").Select End If
merci .
bonjour aussi,
ne serait-ce pas plutôt :
If Range("F33").value < 5 Then
Sheets("Feuil2").Select
ElseIf Range("F33").value > 5 Then
Sheets("Feuil3").Select
Else
Sheets("Feuil2").Select
End If
En sachant qu'ici le else correspond donc au cas où F33
est égal à 5
-----Message d'origine-----
je veux faire une macro avec une condition voula le
style
que je veux faire
Range("F33").Select
If Range("F33").Select < 5 Then
Sheets("Feuil2").Select
ElseIf Range("F33").Select > 5 Then
Sheets("Feuil3").Select
Else
Sheets("Feuil2").Select
End If
bonjour aussi, ne serait-ce pas plutôt : If Range("F33").value < 5 Then Sheets("Feuil2").Select ElseIf Range("F33").value > 5 Then Sheets("Feuil3").Select Else Sheets("Feuil2").Select End If En sachant qu'ici le else correspond donc au cas où F33 est égal à 5
-----Message d'origine----- je veux faire une macro avec une condition voula le style
que je veux faire
Range("F33").Select If Range("F33").Select < 5 Then Sheets("Feuil2").Select ElseIf Range("F33").Select > 5 Then Sheets("Feuil3").Select Else Sheets("Feuil2").Select End If
merci .
Chris MICHEL
Salut
On peut encore simplifier:
If [F33]<=5 then sheets("Feuil2").Select Else sheets("Feuil3").select End If
Chris.
-----Message d'origine----- bonjour aussi, ne serait-ce pas plutôt : If Range("F33").value < 5 Then Sheets("Feuil2").Select ElseIf Range("F33").value > 5 Then Sheets("Feuil3").Select Else Sheets("Feuil2").Select End If En sachant qu'ici le else correspond donc au cas où F33 est égal à 5
-----Message d'origine----- je veux faire une macro avec une condition voula le style
que je veux faire
Range("F33").Select If Range("F33").Select < 5 Then Sheets("Feuil2").Select ElseIf Range("F33").Select > 5 Then Sheets("Feuil3").Select Else Sheets("Feuil2").Select End If
merci .
.
Salut
On peut encore simplifier:
If [F33]<=5 then
sheets("Feuil2").Select
Else
sheets("Feuil3").select
End If
Chris.
-----Message d'origine-----
bonjour aussi,
ne serait-ce pas plutôt :
If Range("F33").value < 5 Then
Sheets("Feuil2").Select
ElseIf Range("F33").value > 5 Then
Sheets("Feuil3").Select
Else
Sheets("Feuil2").Select
End If
En sachant qu'ici le else correspond donc au cas où F33
est égal à 5
-----Message d'origine-----
je veux faire une macro avec une condition voula le
style
que je veux faire
Range("F33").Select
If Range("F33").Select < 5 Then
Sheets("Feuil2").Select
ElseIf Range("F33").Select > 5 Then
Sheets("Feuil3").Select
Else
Sheets("Feuil2").Select
End If
If [F33]<=5 then sheets("Feuil2").Select Else sheets("Feuil3").select End If
Chris.
-----Message d'origine----- bonjour aussi, ne serait-ce pas plutôt : If Range("F33").value < 5 Then Sheets("Feuil2").Select ElseIf Range("F33").value > 5 Then Sheets("Feuil3").Select Else Sheets("Feuil2").Select End If En sachant qu'ici le else correspond donc au cas où F33 est égal à 5
-----Message d'origine----- je veux faire une macro avec une condition voula le style
que je veux faire
Range("F33").Select If Range("F33").Select < 5 Then Sheets("Feuil2").Select ElseIf Range("F33").Select > 5 Then Sheets("Feuil3").Select Else Sheets("Feuil2").Select End If