Msgbox

[jeanphi]

bonjour le forum

j'utilise la macro suivante qui me permet en fonction de la couleur de la cellule
de la colonne E de compter les commandes en cours
je souhaiterais pouvoir rajouter le point suivant:
je voudrais rajouter dans une deuxième msgbox les valeurs de la colonne B (numéro de commande), valeur correspondant au statut de la colonne E
pour résumer, je souhaite que si la colonne E est en rouge, la macro via la MsgBox récupère le numéro de commande correspondant en colonne B

Private Sub OptionButton15_Click()
Dim Cellule As Range
Dim total As Variant
Worksheets("FEB").Select
For Each Cellule In Range("E8:E700")
If Cellule.Interior.ColorIndex = 3 Then 'rouge
total = total + Cellule.Count
End If
Next
MsgBox "Il y a " & total & " commandes à instruire", vbInformation, "FEB 2007 - Commandes à instruire"
End Sub


Quelqu'un peut t'il m'aider svp?? 🙂

 

[Pierrot93]

Re : Msgbox

Bobnjour JeanPhi

essaye le code ci dessous :

Private Sub OptionButton15_Click()
Dim Cellule As Range
Dim total As Variant, x As String
Worksheets("FEB").Select
For Each Cellule In Range("E8:E700")
If Cellule.Interior.ColorIndex = 3 Then 'rouge
total = total + Cellule.Count
x = x & Cellule.Offset(0, -3).Value & vbLf
End If
Next
MsgBox "Il y a " & total & " commandes à instruire" _
   & "numéros : " & vbLf & x, vbInformation, "FEB 2007 - Commandes à instruire"
End Sub

bon après midi
@+

 

[Cousinhub]

Re : Msgbox

Bonjour, modifie ton code comme ceci :

Private Sub OptionButton15_Click()
Dim Cellule As Range
Dim total As Variant
Worksheets("FEB").Select
For Each Cellule In Range("E8:E700")
If Cellule.Interior.ColorIndex = 3 Then 'rouge
total = total + Cellule.Count
temp = temp & ", " & Cellule.Offset(0, -3)
End If
Next
MsgBox "Il y a " & total & " commandes à instruire", vbInformation, "FEB 2007 - Commandes à instruire"
MsgBox "Numéro de commande : " & Right(temp, Len(temp) - 2), vbInformation, "FEB 2007 - Commandes à instruire"
End Sub


Oups : collision Pierrot

 

[jeanphi]

Re : Msgbox

bonjour bhbh

merci bcp, ton code est nickel c'est exactement ce que je voulais
celui de pierrot fonctionne aussi 🙂
bonne aprem et encore merci de ton efficacité et de ta rapidité 😉

 

[jeanphi]

Re : Msgbox

bonjour pierrot


et merci pr ton aide 🙂
ton code marche super bien et tu me dépannes bien!!!
bonne journée à toi 😉