VB: If ... plusieurs conditions

Résolu

Condition

SH974 Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
SH974 Messages postés 4 Date d'inscription Statut Membre Dernière intervention - 4 mai 2013 à 10:10

Bonjour,
Je voudrais avoir de l'aide sur visual basic logiciel que je viens juste de commencer d'utiliser.
Je voudrais savoir comment faire pour pouvoir faire plusieurs conditions If.
Içi le sujet est simple : je voudrais faire afficher "Cap Nord Est" " Cap Nord Ouest" "Cap Sud Est" "Cap Sud Ouest" celons la valeur d'un angle.
Voilà l'essai que j'ai réalisé:
If Route > 0 And Route < 90 Then
Worksheets("feuil1").Range("H27").Value = "Nord Est"
End If
If Route > 90 And Route < 180 Then
Worksheets("feuil1").Range("H28").Value = "Nord Ouest"
End If
If Route > 180 And Route < 270 Then
Worksheets("feuil1").Range("H29").Value = "Sud Ouest"
End If
If Route > 270 And Route < 380 Then
Worksheets("feuil1").Range("H30").Value = "Sud Est"
End If

Malheureusement celà ne fonctionne pas :(((
Je m'explique : Si l'angle est compris entre 0° et 90° le programme m'affiche bien "Nord Est" mais pour les autres valeurs rien ne s'affiche ...
PS: Il s'agit d'un programme pour calculer la distance et le cap pour une route Loxodromique.

Merci de bien vouloir m'accorder votre temps ^^

Afficher la suite

A voir également:

Vba if plusieurs conditions
Vb - Télécharger - Langages
Vb cable - Télécharger - Audio & Musique
Vb editor - Télécharger - Langages
Vb runtime - Télécharger - Divers Utilitaires
Vb express - Télécharger - Langages

2 réponses

Réponse 1 / 2

lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention 1 191

Bonjour,
Ya beaucoup à dire sur ta formulations des conditions mais de prime abord tu devrais voir ta variable "Route" parce que malgrès tout ça devrais un peu fonctionner.
A+

SH974 Messages postés 4 Date d'inscription Statut Membre Dernière intervention

Hum sur ma formulation des conditions , c'est à dire? et ma variable "Route" : Dim Route As Double
Merci ^^

Réponse 2 / 2

lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention 1 191

Ca ne dit pas ce qu'il y a DANS ta variable route teste la, l'erreur principale vient de là.
Suivant ton code, et s'il y a 91 ou 181 ou 271 ?? c'est où qui vont se mettre !!!
Et pour le code..

    With Sheets("feuil1") 
        If Route > 270 Then 
            .Range("H30").Value = "Sud Est" 
        ElseIf Route > 180 Then 
            .Range("H29").Value = "Sud Ouest" 
        ElseIf Route > 90 Then 
            .Range("H28").Value = "Nord Ouest" 
        Else 
            .Range("H27").Value = "Nord Est" 
        End If 
    End With

Serait un peu plus adéquat.
ou, variante...

    With Sheets("feuil1")
        Select Case Route
        Case Is > 270: .Range("H30").Value = "Sud Est"
        Case Is > 180: .Range("H29").Value = "Sud Ouest"
        Case Is > 90: .Range("H28").Value = "Nord Ouest"
        Case Else: .Range("H27").Value = "Nord Est"
        End Select
    End With

A+

Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
Note: Je ne répond pas aux MP pour les questions techniques. Et ma boule de cristal est cassée .

SH974 Messages postés 4 Date d'inscription Statut Membre Dernière intervention

Merci D'avoir pris du temps pour moi Sa fonctionne =)

Discussions similaires

Mise en forme conditionnelle avec 2 conditions

Excel - Compter le nombre d'occurences d'un élément

Remplissage automatique sous condition

Copie automatique tableau Excel sans macro

colorier cellule sous condition

Couleur texte avec la fonction si

Votre réponse

Discussions similaires