Pb msgbox vba

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

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.

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

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

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.

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

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+

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.

If Cells(26, 1) = "C1" Then

préférez:

If Cells(26, 1).value = "C1" Then

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

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+

' 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

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 ?