Pb msgbox vba
Résolu
judoka33
Messages postés
13
Date d'inscription
Statut
Membre
Dernière intervention
-
Heliotte Messages postés 1491 Date d'inscription Statut Membre Dernière intervention -
Heliotte Messages postés 1491 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'ai besoin d'une aide VBA pour excel.
Je veux afficher une MSGBOX pour un commentaire COUDE. Cf fichier.
Le code se trouve en fin du module Tol_infe_tube de VBA.
Je souhaite aussi afficher seulement une fois le message.
Merci pour l'aide
https://www.cjoint.com/?BLmjou27CX9
Cordialement,
Laurent
J'ai besoin d'une aide VBA pour excel.
Je veux afficher une MSGBOX pour un commentaire COUDE. Cf fichier.
Le code se trouve en fin du module Tol_infe_tube de VBA.
Je souhaite aussi afficher seulement une fois le message.
Merci pour l'aide
https://www.cjoint.com/?BLmjou27CX9
Cordialement,
Laurent
12 réponses
Bonjour judoka33,
Difficile de s'y retrouver dans tous ces codes .. nom du module "Tol_infe_tube" = ok
Quel est le MsgBox qui ne fonctionne pas ?
Difficile de s'y retrouver dans tous ces codes .. nom du module "Tol_infe_tube" = ok
Quel est le MsgBox qui ne fonctionne pas ?
' Message d'indication Nuance à privilégier pour les raccords (Weldolet, Bossage, Raccord taraudée, Bouchons...) et les Coude, Té, Réducteur, Caps
'Const Li_deb = 26 ' Ligne 26
'Const Li_fin = 34 ' Ligne 34
Dim Li As Long
For Li = 26 To 34 'Li = Li_deb To Li_fin
If Nuance = "L290NB" Or Nuance = "L415NB" Or Nuance = "P235GH" Or Nuance = "P355N" Then
MsgBox "preferer L360NB" & vbCr & "Ligne " & Li
Exit For
End If
Next Li
'MsgBox "preferer L360NB" & vbCr & "Ligne " & Li
'Exit For
'Next Li
'End If
Voila la partie du code.
Le code est en fin de Tol_infe_tube
'Const Li_deb = 26 ' Ligne 26
'Const Li_fin = 34 ' Ligne 34
Dim Li As Long
For Li = 26 To 34 'Li = Li_deb To Li_fin
If Nuance = "L290NB" Or Nuance = "L415NB" Or Nuance = "P235GH" Or Nuance = "P355N" Then
MsgBox "preferer L360NB" & vbCr & "Ligne " & Li
Exit For
End If
Next Li
'MsgBox "preferer L360NB" & vbCr & "Ligne " & Li
'Exit For
'Next Li
'End If
Voila la partie du code.
Le code est en fin de Tol_infe_tube
Bonjour,
Dans ta boucle For Next, du ne changes pas la valeur de Nuance en fonction de Li, ce qui fait que la condition If n'a pas de sens dans ce contexte.
Par exemple si Nuance se trouve dans la colonne A
For Li = 26 To 34 'Li = Li_deb To Li_fin
Nuance = Range("A" & Li).Value
If Nuance = "L290NB" Or Nuance = "L415NB" Or Nuance = "P235GH" Or Nuance = "P355N" Then
MsgBox "preferer L360NB" & vbCr & "Ligne " & Li
Exit For
End If
Next Li
A+
Dans ta boucle For Next, du ne changes pas la valeur de Nuance en fonction de Li, ce qui fait que la condition If n'a pas de sens dans ce contexte.
Par exemple si Nuance se trouve dans la colonne A
For Li = 26 To 34 'Li = Li_deb To Li_fin
Nuance = Range("A" & Li).Value
If Nuance = "L290NB" Or Nuance = "L415NB" Or Nuance = "P235GH" Or Nuance = "P355N" Then
MsgBox "preferer L360NB" & vbCr & "Ligne " & Li
Exit For
End If
Next Li
A+
Il y a deux même fonction "Function Tolerance",
- 1 dans le code de la feuille "Nuance_acier" et
- l'autre dans le module "Tol_infe_tube"
Edit:
J'ai créé une procédure qui fait tourner la fonction pour un test.
Pouvez-vous me donner la valeur des paramètres qui fait que la boîte MsgBox ne fonctionne pas ?
Car j'ai mis des valeurs différentes pour la String Nuance, et la boîte à message fonctionne .. merci
- 1 dans le code de la feuille "Nuance_acier" et
- l'autre dans le module "Tol_infe_tube"
Edit:
J'ai créé une procédure qui fait tourner la fonction pour un test.
Pouvez-vous me donner la valeur des paramètres qui fait que la boîte MsgBox ne fonctionne pas ?
Car j'ai mis des valeurs différentes pour la String Nuance, et la boîte à message fonctionne .. merci
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour,
J'ai un pb uniquement sur la Msgbox.
Mon prog tourne sans probleme, sauf la msgbox.
Si le paramètre nuance est egal à L290NB ou L415NB ou P235GH ou P355N alors je souhaite avoir une Msgbox "
"preferer L360NB".
J'ai rajouter pour tester la Msgbox & vbCr & "Ligne " & Li pour voir temporairement la valeur prise par Li et voir si on code fonctionne correctement.
Si je met la Msgbox entre le end if et le Next Li, le message box s'affiche pour toutes les valeurs de Li de 26 a 34 meme si je n'ai pas de nuance spécifié.
Dim Li As Long
For Li = 26 To 34 'Li = Li_deb To Li_fin
If Nuance = "L290NB" Or Nuance = "L415NB" Or Nuance = "P235GH" Or Nuance = "P355N" Then
Exit For
End If
MsgBox "preferer L360NB" & vbCr & "Ligne " & Li
Next Li
Je veux donc voir afficher la Msgbox uniquement lorsque pour chaque les nuances sont L290NB ou L415NB ou P235GH ou P355N pour les lignes Li de 26 a 34.
En esperant avoir été clair.
J'ai un pb uniquement sur la Msgbox.
Mon prog tourne sans probleme, sauf la msgbox.
Si le paramètre nuance est egal à L290NB ou L415NB ou P235GH ou P355N alors je souhaite avoir une Msgbox "
"preferer L360NB".
J'ai rajouter pour tester la Msgbox & vbCr & "Ligne " & Li pour voir temporairement la valeur prise par Li et voir si on code fonctionne correctement.
Si je met la Msgbox entre le end if et le Next Li, le message box s'affiche pour toutes les valeurs de Li de 26 a 34 meme si je n'ai pas de nuance spécifié.
Dim Li As Long
For Li = 26 To 34 'Li = Li_deb To Li_fin
If Nuance = "L290NB" Or Nuance = "L415NB" Or Nuance = "P235GH" Or Nuance = "P355N" Then
Exit For
End If
MsgBox "preferer L360NB" & vbCr & "Ligne " & Li
Next Li
Je veux donc voir afficher la Msgbox uniquement lorsque pour chaque les nuances sont L290NB ou L415NB ou P235GH ou P355N pour les lignes Li de 26 a 34.
En esperant avoir été clair.
Bonjour, bonjour Heliotte..
D'après ce que je peu comprendre, ta fonction est appelée en mode formule dans une de tes feuille (j'ai pas trouvé où).
De ce fait, les différents affichages de tes TextBox sont appelés chacun par les cellules et ce n'est pas la fonction qui boucle.
Sais pas si j'ai été bien clair ? :o)
Tu dis.
A+
D'après ce que je peu comprendre, ta fonction est appelée en mode formule dans une de tes feuille (j'ai pas trouvé où).
De ce fait, les différents affichages de tes TextBox sont appelés chacun par les cellules et ce n'est pas la fonction qui boucle.
Sais pas si j'ai été bien clair ? :o)
Tu dis.
A+
Bjr,
La msgbox à affiche est tout en bas du module tôle inf tube
La formule est appelle pour calculer le c1 après colonne grise
Je bloque depuis hier, merci pour l'aide par avance
La msgbox à affiche est tout en bas du module tôle inf tube
La formule est appelle pour calculer le c1 après colonne grise
Je bloque depuis hier, merci pour l'aide par avance
Apparemment tu n'a pas compris mon explication.
Supprime toutes les cellules qui font appels à ta fonction sauf une, tu verra que ton MsgBox ne sera appelé qu'une seule fois.
Autre solution,
Met le recalcul du classeur à Manuel.
Sélectionne une cellule qui contient ta formule Tolerance()
Et valide le recalcul de cette formule, je ne sais plus si c'est Maju+F9 ou Ctrl+F9 sinon, cherche un peu pour le recalcul de la cellule active (me rappel plus bien)
A+
EDIT : où sont situées les formules Tolérance() ????????
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
Supprime toutes les cellules qui font appels à ta fonction sauf une, tu verra que ton MsgBox ne sera appelé qu'une seule fois.
Autre solution,
Met le recalcul du classeur à Manuel.
Sélectionne une cellule qui contient ta formule Tolerance()
Et valide le recalcul de cette formule, je ne sais plus si c'est Maju+F9 ou Ctrl+F9 sinon, cherche un peu pour le recalcul de la cellule active (me rappel plus bien)
A+
EDIT : où sont situées les formules Tolérance() ????????
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
Bonsoir judoka33,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Si j'ai bien compris, le "Li" qui vaut 26, 27, 28 .. 34 est un numéro de ligne.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Vous voulez comparer le contenu de la cellule avec la chaîne de caractère "Nuance".
Si oui, voilà comment faire:
Si, par contre vous voulez comparer le contenu de la cellule avec les valeurs telle que "L290NB", "L415NB", "P235GH" ou "P355N":
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Si j'ai bien compris, le "Li" qui vaut 26, 27, 28 .. 34 est un numéro de ligne.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Vous voulez comparer le contenu de la cellule avec la chaîne de caractère "Nuance".
Si oui, voilà comment faire:
For Li = 26 To 34' admettons que la colonne fixe soit la colonne D If Cells(Li,4) = Nuance Then MsgBox "preferer L360NB" & vbCr & "Ligne " & Li Exit For End If Next i~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Si, par contre vous voulez comparer le contenu de la cellule avec les valeurs telle que "L290NB", "L415NB", "P235GH" ou "P355N":
For Li = 26 To 34' admettons que la colonne fixe soit la colonne D If Cells(Li,4) = "L290NB" Or Cells(Li,4) = "L415NB" Or Cells(Li,4) = "P235GH" Or Cells(Li,4) = "P355N" Then MsgBox "preferer L360NB" & vbCr & "Ligne " & Li Exit For End If Next i~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~