Message CodeBox

[aziz]

Bonjour à tous
j'ai besoin de coup main
dans un message de Box
J'ai essayé de tous expliquer dans mon fichier.
Merci pour votre aide

 

[Dull]

Re : Message CodeBox

Salut aziz, le Forum

remplaces ton code Sub URGENT() par celui ci

Sub URGENT()
Dim txt As String, i As Long
Sheets("RÉCAPITULATIF").Select
txt = Chr(10) & "Couverture inférieur à 2 mois :" & Chr(10) & Chr(10)
For i = 2 To Range("b65536").End(xlUp).Row
 If Cells(i, "E") <> "" And Cells(i, "E") < 2 Then txt = txt & Cells(i, "B") & "............." & Cells(i, "Y") & Chr(10)
Next
MsgBox txt & Chr(10), vbCritical
End Sub

Bonne Journée

 

[aziz]

Re : Message CodeBox

Merci Beaucoup Dull
Dernière petite question.
Peut on aligner mes numéros des commandes ?
voir mes produits à gauche et les commandes à droites.

Merci

 

[aziz]

Re : Message CodeBox

ça y est 🙂 Dull
J'ai trouvé avec vbTab
par contre maintenant je souhaite mettre "réf" au dessus de mes produits dans la msgbox et idem pour "N° commande" comment faire ?
merci


Sub URGENT()
Dim txt As String, i As Long
Sheets("RÉCAPITULATIF").Select
txt = Chr(10) & "Couverture inférieur à 2 mois :" & Chr(10) & Chr(10)
For i = 2 To Range("b65536").End(xlUp).Row
If Cells(i, "E") <> "" And Cells(i, "E") < 2 Then txt = txt & Cells(i, "B") & vbTab & vbTab & vbTab & Cells(i, "Y") & Chr(10)
Next
MsgBox txt & Chr(10), vbCritical
End Sub

 

[aziz]

Re : Message CodeBox

Je met le fichier pour mieux comprendre
merci encore
Bonsoir à tous