formule dans une Box

[aziz]

bonjour, tous
besoin d'un petit coup de main
je souhaite afficher les valeurs comprise entre 0 et 2
dans un message mais ce dernier me prend en compte les cellules vide.
plus de détail dans mon fichier joint.
merci pour votre aide

 

[Guest]

Re : formule dans une Box

Bonjour Aziz,

        If Cells(i, "u") <> "" And Cells(i, "u") < 2 Then txt = txt & Cells(i, "B") & Chr(10)

A+

 

[aziz]

Re : formule dans une Box

Merci Hasco

 

[aziz]

Re : formule dans une Box

Bonjour
Hasco, je sollicite encore ton aide
je souhaite afficher un 1 point d'exclamation dans mon 1er message = échance
et un point critique dans mon 2eme message = urgence
merci encore pour ton aide

 

[Pierrot93]

Re : formule dans une Box

Bonjour Aziz, Hasco🙂

pour le point d'exclamation :

MsgBox "attention...", vbExclamation

pour le "critique" :

MsgBox "attention", vbCritical

bonne journée
@+

 

[aziz]

Re : formule dans une Box

Bonjour
Pierrot et merci pour ta réponse
j'ai réussi, mais contre comment mettre le point d'exclamation dans la meme msgbox
echéance ?
c'est à dire voir mes produits concernés + exclamation dans le mm message
Encore merci

 

[Pierrot93]

Re : formule dans une Box

Re,

euh... pas tout compris... peut être ainsi :

MsgBox txt & Chr(10), vbCritical

@+

 

[aziz]

Re : formule dans une Box

Re,😕
Euh, pour etre simple je souhaite avoir que 2 msg
au lieu de 4 actuellement.

Inclure l'exclamation dans le message de ma premiere demande (Echéance)

Puis dans mon 2eme message inclure le critique (urgent)

j'espere avoir été assez explicite
merci encore

 

[Pierrot93]

Re : formule dans une Box

Re,

eh bien... au lieu de :

Sub Echeance()
Dim txt As String, i As Long
Sheets("RÉCAPITULATIF").Select
MsgBox txt & Chr(10), vbExclamation
For i = 2 To Range("b65536").End(xlUp).Row
 If Cells(i, "u") < 0 Then txt = txt & Cells(i, "B") & Chr(10)
Next
MsgBox txt & Chr(10)
End Sub

tu fais ca....

Sub Echeance()
Dim txt As String, i As Long
Sheets("RÉCAPITULATIF").Select
For i = 2 To Range("b65536").End(xlUp).Row
 If Cells(i, "u") < 0 Then txt = txt & Cells(i, "B") & Chr(10)
Next
MsgBox txt & Chr(10), vbExclamation

End Sub

sans doute quelque chose doit m'échapper....

 

[aziz]

Re : formule dans une Box

Merci beaucoup
j'en apprend tous les jours
grâce à vous tous
Encore merci