Pb msgbox vba Résolu/Fermé

Question

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

Heliotte · Answer

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 ?

judoka33 · Answer

' 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

Yoda · Answer

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+

Heliotte · Answer

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

Heliotte · Answer

If Cells(26, 1) = "C1" Thenpréférez:If Cells(26, 1).value = "C1" Then

judoka33 · Answer

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.

lermite222 · Answer

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+

judoka33 · Answer

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

lermite222 · Answer

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.

Heliotte · Answer

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: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~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

judoka33 · Answer

Merci,

pour votre aide, je viens de trouver le code qui me convient.
C'est tellement simple que j'ai été chercher trop loin.

If Nuance = "L290NB" Or Nuance = "L415NB" Or Nuance = "P235GH" Or Nuance = "P355N" Then
    MsgBox "preferer L360NB"
End If

Sujet clos.

Heliotte · Answer

Bonjour judoka33,
Si ok pour toi, mettre en résolu, merci

Pb msgbox vba

12 réponses

Discussions similaires