Problème boucle If égalitéRésolu

Question

Bonjour,

Je me tourne vers vous car j'ai un petit problème qui me déroute totalement. Dans mon programme je test une variable avec une autre. Si elle est égale alors Programme1 sinon programme 2 (cf prog ci-dessous).

If i = Nbr_Reactif Then
            Set Opt = UserForm7.Controls.Add("Forms.Label.1")
            With Opt
                .Name = "Flèche" & i
                .Caption = "è"
                .AutoSize = True
                .WordWrap = False
                .Move x, 25
                .Font.Name = "Wingdings"
                .Font.Size = 14
                .BackStyle = 0
            End With
            x = x + 10
        Else
            Set Opt = UserForm7.Controls.Add("Forms.Label.1")
            With Opt
                .Name = "Plus" & i
                .Caption = "+"
                .AutoSize = True
                .WordWrap = False
                .Move x, 25
                .Font.Name = "Times"
                .Font.Size = 14
                .BackStyle = 0
            End With
            x = x + 10
        End If



Au début, je me suis dit que je m'étais trompé dans l'écriture donc j'ai mis un point d'arrêt sur le if et au moment où les deux variables sont égales i=2 et Nbr_Reactif="2", cela est considérer comme si elles étaient différentes.
Je me suis donc dit que le problème venait des guillemets qui sont présentes chez l'une mais pas l'autre des variables. Je me suis dit que le problème vient de la déclaration. Le problème est que ce sont des integers toutes les deux, Nbr_Reactif en Public et i en dim.

Avez-vous une idée d'où cela pourrait venir?
Je vous remercie par avance pour votre aide.

Bien cordialement,

Anthony

MEUCORACAO · Answer

Le fichier est assez compliqué pour que je puisse vous le mettre ou expliquer chaque détail. Je ne comprends pas pourquoi Nbr-Reactif étant déclaré en Integer possède ses valeurs entre "" lors de l'exécution du soft. Merci encore

jordane45 · Answer

Bonjour
Comment est déclaré ta variable Nbr... et comment lui assigne tu sa valeur ?

ucfoutu · Answer

Bonjour,
- Où et comment as-tu déclaré Nbr_Reactif ?
- Depuis où et avec quel code as-tu initialisé Nbr_Reactif ?
- Nbr_Reactif a-t-il (vérifie) pu être déclaré également ailleurs ? (car si oui : confusion possible)
Il arrive par ailleurs enfin que des réactions inattendues soient le résultat de "passages par tremplin" (un label, par exemple)

MEUCORACAO · Answer

Bonjour à tous,

Ma variable Nbr_Reactif (déclarée qu'une seule fois) est déclarée via un userform où le choix se fait avec un spinbutton. Le programme est très long mais ça fonctionne très très bien dans les boucles for (for i = 0 to Nbr_Reactif) mais dans cette boucle if, cela ne marche pas.
Je viens de regarder mon programme et ma variable Nbr_Reactif est définie comme la valeur d'une textbox réglée avec le fameux spinbutton. Cela conclut-il que ma variable est un string (d'où les guillemets)??

A votre avis, d'où cela peut-il venir? Si vous souhaitez plus de renseignements, n'hésitez surtout pas.
Merci de votre aide

hellangel777 · Answer

Bonjour,

Oui 2 et "2" ne sont pas les mêmes d'où ton problème de boucle.
converti en nombre ta valeur "Nbr_Reactif" et refais le test
Bon courage

jordane45 · Answer

Bonjour,

Par contre, on aurait bien aimé avoir le code de la déclaration de ta variable..... en général ça permet de voir si tu n'as pas fait d'erreur..... 

Mais bon, pour cette fois, je pense qu'on pourra surement s'en passer..
Essayes donc de forcer ta valeur en "Integer" comme ceci :

'au cas où:
Dim Nbr_Reactif as Integer
'...
'Et ensuite:
Nbr_Reactif=CInt(Nbr_Reactif)

Problème boucle If égalité

6 réponses

Votre réponse

Discussions similaires