Discussion :

[Nico13]

Bonjour, mon problème est le suivant, je n'arrive pas à récupérer le contenu de certaines cellules, je m'explique, dans ma première boucle que j'ai codée comme ceci et je n'ai pas eu de problème:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Do While g.range("N" & k).Value > 0
montant_Euro1 = "impossible"
If section_theo_Euro1 <= g.range("N" & k).Value Then
montant_Euro1 = g.range("D" & k).Value
section_Euro1 = g.range("N" & k).Value
ray_gir_y_Euro1 = g.range("J" & k).Value
ray_gir_z_Euro1 = g.range("M" & k).Value
Exit Do
Else
k = k + 1
End If
 
Loop

Les valeurs qui me sont renvoyées sont bonnes et tout fonctionne impécablement.

J'ai voulu reprendre la même chose dans un select case et là ça me renvoie 0.
Je vous mets mon code pour le select case :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Select Case choix_profil_2
    Case Is = "IPE 80"
        section_CM2 = g.range("N" & l).Value
        ray_gir_y_CM2 = g.range("J" & l).Value
        ray_gir_z_CM2 = g.range("M" & l).Value
        Inertie_y_CM2 = g.range("H" & l).Value
        Inertie_z_CM2 = g.range("K" & l).Value
 
    Case Is = "IPE 100"
        section_CM2 = g.range("N" & (l + 1)).Value
        ray_gir_y_CM2 = g.range("J" & (l + 1)).Value
        ray_gir_z_CM2 = g.range("M" & (l + 1)).Value
        Inertie_y_CM2 = g.range("H" & (l + 1)).Value
        Inertie_z_CM2 = g.range("K" & (l + 1)).Value

Les valeurs qui me sont renvoyées sont outes égales à 0.
Pourquoi?

Merci d'avance

[mayekeul]

Bonjour,
alors, a chaud!

je ne vois qu'une solution
ton case n'est pas résolu
si tu rajoute un case else
il te renvoie aussi 0?

[Nico13]

Merci beaucoup, mais je viens de le résoudre, en fait mauvaise déclaration dans la première ligne du case.

Encore merci.