Discussion :

[francois14850]

Bonjour,

je débute en VBA et je fait un fichier de gestion de pièces détachées.

Plein de bugs à résoudre, mais en ce moment, je bug sur l'affichage d'une Msgbox qui suivant le résultat de ma formule, indique un message différent. Pour l'instant, elle tourne en boucle

Gestion pièces détachées AfB Vbêta.xlsm

Au final, je l'ai enlevé pour joindre mon fichier !

En gros, suivant la valeur de la cellule K7 dans la feuille " Opérations ", c'est msg " ok " si résultat de la formule = 1 ou msg " pas ok " si résultat = 0

C'est mon soucis en cours !!!!

Ceux qui peuvent améliorer les bugs sont les bienvenus!!!!

Merci d'avance dans tous les cas!!!!

[francois14850]

J'ai oublié...

pour l'user : Admin et pour le mdp : admin

[Igloobel]

Bonjour,


PU...............NAISE, la VACHE, Il y a du boulot ....... pour tout remettre d'aplomb !!!!!!!!

Je ne sais pas mais dès le départ cela plante. Je veux bien un bon samaritain et t'aider mais il va falloir que tu t'investisses beaucoup. Je ne ferais pas à ta place, mais je te conseillerai de mon mieux.

Je te préviens sans Investissement de ta part je laisserai tout tomber

Alors dis -moi deal ou pas deal pour ce que je te propose.





Dans un premier temps juste à titre gracieux.

1°) moi les COMBOBOX dans les feuilles Excel je n'aime pas trop et je préfère les listes de validations surtout pour faire des choix. Donc dans ta feuille "Opérations" je remplacerais les 3 combo box par 3 listes de validation

2°) la feuille Construction est une bonne idée mais il faut aller plus loin il faut transformer en tableau structuré tes 3 listes puis les nommer (dans ce sens tableau structuré puis nommage c'est important) ensuite tes listes de validations vont pouvoir facilement se baser sur ces listes.

3°) justement à propos de ces listes se serai bien qu'il y ait au moins 4-5 éléments minimum (comme Sources catégories)


Bonne journée

A+


PS : Je pense que la quantité de travail à faire est tellement importante qu'elle a dû effrayer la plupart des internautes

[Alex020181]

Bonjour,

Voici pour afficher le message selon la valeur 1 ou 0.

Pour le cas ou la valeur serait vide ou une erreur "#..." rien ne s'affichera.

A toi de l'inclure dans ton code (derrière un bouton ou sur le changement de valeur de la cellule ou ...)

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
Sub test()
 
If Not IsError(Sheets("Opérations").Range("K7")) Then
 
    If Len(Sheets("Opérations").Range("K7")) > 0 Then
 
        If Sheets("Opérations").Range("K7") = 1 Then
 
            MsgBox "OK", vbInformation, "Youpi"
 
        ElseIf Sheets("Opérations").Range("K7") = 0 Then
 
            MsgBox "Pas OK", vbCritical, "Fait chier"
 
        End If
 
    End If
 
End If
 
End Sub

PS; J'ai prit le parti de traiter les cas cellule vide ou en erreur dans le code mais tu pourrais t'en passer si tu les traitais directement dans la formule.