formule dans une Box

G

Guest

Guest

• 25 Juillet 2011

• #2

Re : formule dans une Box

Bonjour Aziz,

Code:

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

A+

 

Vote positif 0 Vote négatif

A

aziz

XLDnaute Occasionnel

• 25 Juillet 2011

• #3

Re : formule dans une Box

Merci Hasco

 

Vote positif 0 Vote négatif

A

aziz

XLDnaute Occasionnel

• 27 Juillet 2011

• #4

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

 

Pièces jointes

• Essais.xls

  82.5 KB · Affichages: 43
• Essais.xls

  82.5 KB · Affichages: 47
• Essais.xls

  82.5 KB · Affichages: 47

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 27 Juillet 2011

• #5

Re : formule dans une Box

Bonjour Aziz, Hasco🙂

pour le point d'exclamation :

Code:

MsgBox "attention...", vbExclamation

pour le "critique" :

Code:

MsgBox "attention", vbCritical

bonne journée
@+

 

Vote positif 0 Vote négatif

A

aziz

XLDnaute Occasionnel

• 27 Juillet 2011

• #6

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

 

Pièces jointes

• Essais.xls

  82.5 KB · Affichages: 44
• Essais.xls

  82.5 KB · Affichages: 44
• Essais.xls

  82.5 KB · Affichages: 39

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 27 Juillet 2011

• #7

Re : formule dans une Box

Re,

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

Code:

MsgBox txt & Chr(10), vbCritical

@+

 

Vote positif 0 Vote négatif

A

aziz

XLDnaute Occasionnel

• 27 Juillet 2011

• #8

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

 

Pièces jointes

• Essais.xls

  82 KB · Affichages: 39
• Essais.xls

  82 KB · Affichages: 37
• Essais.xls

  82 KB · Affichages: 40

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 27 Juillet 2011

• #9

Re : formule dans une Box

Re,

eh bien... au lieu de :

Code:

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....

Code:

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....

 

Vote positif 0 Vote négatif

A

aziz

XLDnaute Occasionnel

• 27 Juillet 2011

• #10

Re : formule dans une Box

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

 

Vote positif 0 Vote négatif