condition if et elseif (version 2017)

Version imprimable

bonjour je travail sur un projet VBA pour les cours mais j'ai débuté la programmation cette année.
mon objectif est le suivant : je veux afficher une image en fonction de la luminosité souhaité.
pour ça 4 choix possibles (très lumineux/ lumineux/ tamisé/ sombre) je récupère ensuite l'information dans une cellule excel et je la met dans une variable.
jusque la tout marche mais quand je veux mettre en place ma procédure avec des if imbriqués ou des elseif j'ai soit un message d'erreur me disant que je met trop de End if soit ma variable ne se test pas avec le premier if.
De plus dans mes if j'ai une deuxième condition qui doit être vérifié j'avais donc utiliser un bloc And.
j'espère que je suis compréhensible je vous met la partie du code qui me pose problème en dessous car mon fichier fait plusieurs Mo a cause des images.
merci d'avance pour votre aide mon travail est à rendre pour le 30 décembre...

1er code:
Code:

1 2 3 4 5 6 If lumiere = "lumineux" Then If meteo = "averse" Then I_50_75_averse.Visible = True ElseIf meteo = "ciel couvert" Then I_50_75_cielcouvert.Visible = True ElseIf meteo = "peu nuageux" Then I_50_75_peunuageux.Visible = True Else: I_50_75_brouillardbruinepluie.Visible = True End If
2nd code :
Code:

1 2 3 4 5 6 7 8 If lumiere = "très lumineux" And meteo = "Averses de pluie" Then I_50_75_averse.Visible = True ElseIf lumiere = "très lumineux" And meteo = "Ciel couvert" Then I_50_75_cielcouvert.Visible = True ElseIf lumiere = "très lumineux" And meteo = "Ciel peu nuageux" Then I_50_75_peunuageux.Visible = True ElseIf lumiere = "très lumineux" And meteo = "Ciel très nuageux" Then I_50_75_tresnuageux.Visible = True ElseIf lumiere = "très lumineux" And meteo = "Ciel serein" Then I_50_75_serain.Visible = True Else: I_50_75_brouillardbruinepluie.Visible = True End If

Bonjour, premièrement soyez gentil de mettre le code entre balises # ça le rend plus lisible.;)
Deuxièmement c'est pas clair du tout vos explications voici la forme que j'utiliserai pour le premier test

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub test()
      'Ce code n'est pas testé, vous devez le tester. pensez  a l'indentation qui vous permet de retrouver à vue les diverses parties des fonctions "Si" imbriquées.
If lumiere = "lumineux" Then
    If meteo = "averse" Then
        I_50_75_averse.Visible = True
    ElseIf meteo = "ciel couvert" Then
        I_50_75_cielcouvert.Visible = True
    ElseIf meteo = "peu nuageux" Then
        I_50_75_peunuageux.Visible = True
    Else:
        I_50_75_brouillardbruinepluie.Visible = True
    End If
Else
End If
End Sub

Deuxième partie non testée non plus.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub test2()
If lumiere = "très lumineux" And meteo = "Averses de pluie" Then
        I_50_75_averse.Visible = True
ElseIf lumiere = "très lumineux" And meteo = "Ciel couvert" Then
        I_50_75_cielcouvert.Visible = True
ElseIf lumiere = "très lumineux" And meteo = "Ciel peu nuageux" Then
        I_50_75_peunuageux.Visible = True
ElseIf lumiere = "très lumineux" And meteo = "Ciel très nuageux" Then
        I_50_75_tresnuageux.Visible = True
ElseIf lumiere = "très lumineux" And meteo = "Ciel serein" Then
        I_50_75_serain.Visible = True
Else
        I_50_75_brouillardbruinepluie.Visible = True
End If
End Sub

Testez déjà cela et tenez nous au courant des résultats.
Cordialement 8-)

27/12/2019, 11h09
thomas_pidoux

merci pour votre aide j'ai réussi a résoudre mon problème en m'aidant de votre premier code.