Discussion :

[ProgElecT]

Je cherche a insérer une messagebox dans mon application et elle apparaitrai aprés le clik sur la croi de fermeture. L'application se fermerait ensuite en appuyant sur le ok de la messagebox.

Ai je bien compris la question ?

Code :

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

1
2
3
4
5
6
7
8
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode = vbFormControlMenu Then
 Me.Visible = False
 Dim Reponse As Integer
 Reponse = MsgBox("voulez vous vraiment quitter ?", vbYesNo)
 If Reponse = vbNo Then Cancel = True: Me.Visible = True
End If
End Sub

[Jere3110]

parfait !!!! c'est ce que je voulais

Merci bien et bonne fin de soirée...

[Delbeke]

Il va vraiement falloir que je donne ma boule de crystal à réparer moi

[Jere3110]

Bonsoir, désolé de vous embété encore. Je me retrouve avec une fonction qui cherche à trouver le second plus grand élément de la liste. ces éléments sont des numériques, négatifs compris. Auparavant mes variables étant initialisé à zéro elle ne prenait donc pas en compte mes valeurs négatives. J'ai donc voulu changé l'initialisation en affectant à mes variable la premiere valeur de la liste. Cependant cette solution ne fonctionne pas. J'ai testé en inialisant à -1000 et là ca marche. cependant cette solution n'est pas satisfaisante et je me permet donc donc de vous demander encore votre avis.

Voila la fonction :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Public Function deuxieme(Liste As ListBox) As Integer 
 
Dim max1 As Integer
Dim max2 As Integer
Dim j As Integer
Dim i As Integer
 
max1 = Liste.List(0)  'Le plus grand de la liste
max2 = Liste.List(0) 'Le second plus grand de la liste.
 
'On fait une boucle " pour " avec une variable i qui fait défiler toutes les valeurs de la liste.
    For i = 0 To Liste.ListCount - 1
    j = Liste.List(i)
        If j >= max1 Then 'On compare entre elles grâce à j toutes ces valeurs et on garde en variable les deux plus grandes.
        max2 = max1
        max1 = j
        ElseIf j >= max2 Then
        max2 = j
        End If
    Next i
 
deuxieme = max2 'La fonction reçoit la valeur de la variable max2.

[ucfoutu]

Bonsoir jere3110,


je ne parviens pas à mettre en echec avec la fonction, telle qu'écrite, nombre tous négatifs ou mélange entre négatifs et positifs ou nombre tous positifs ...

Seule précaution à prendre, s'agissant de valeurs numériques :

Code :

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

1
2
3
4
5
6
max1 = Val(Liste.List(0))  'Le plus grand de la liste
max2 = Val(Liste.List(0)) 'Le second plus grand de la liste.
 
'On fait une boucle " pour " avec une variable i qui fait défiler toutes les valeurs de la liste.
    For i = 0 To Liste.ListCount - 1
    j = Val(Liste.List(i))

Et tous mes essais conduient à un résultat exact.

Peux tu donc nous montrer un exemple où le résultat obtenu n'est pas celui attendu ?

[Jere3110]

Voila j'ait fait une capture, et en même temp ma fonction exacte.

[ucfoutu]

Vu et correction de la seule fonction :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Public Function deuxieme(Liste As ListBox) As Integer
  Dim max1 As Integer
  Dim max2 As Integer
  Dim j As Integer
  Dim i As Integer
  max1 = Val(Liste.List(0))  'Le plus grand de la liste
  max2 = Val(Liste.List(1)) 'Le second plus grand de la liste.
 'On fait une boucle " pour " avec une variable i qui fait défiler toutes les valeurs de la liste.
    For i = 0 To Liste.ListCount - 1
        j = Val(Liste.List(i))
        If j > max1 Then 'On compare entre elles grâce à j toutes ces valeurs et on garde en variable les deux plus grandes.
          max2 = max1
          max1 = j
        ElseIf j > max2 And j < max1 Then
          max2 = j
        End If
    Next i
   deuxieme = max2 'La fonction reçoit la valeur de la variable max2.
End Function

[Jere3110]

Je fait les corrections que tu me donnes, ca marche toujours pas; je copie colle la fonction direct du site et là ca marche... En tous cas merci, j'ai pas vraiment compris mon erreur mais ça marche et ca suffira pour ce soir.

Merci de ton secour et bonne fin de soiré à toi, a bientot

[ucfoutu]

Bonjour jere3110,

Bien que la solution que je t'ai donnée hier fonctionne, je ne l'aime pas vraiment.

En voilà une à mon sens meilleure et que tu comprendras beaucoup mieux ...

Initialise ainsi max1 et max2 :

Code :

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

1
2
max1 = Val(Liste.List(0)) \ 100 
max2 = max1 \ 100

en laissant le signe \ comme il est (= entier de la division)

Explication : tu es ainsi assuré d'amorcer à tous coups la pompe puisque, forcément, tu auras ainsi toujours un chiffre plus élevé que le max1 de départ et un plus élevé que le max2 de départ. Et ce sera également toujours vrai si tu as des nombres négatifs dans ta liste