Msgbox
D
Bonjour à toutes et à tous,
J'ai la macro suivante qui me permet de faire afficher un message suivant une condition!
Dim i As Integer
For i = 4 To 20
If Range("F" & i).Value = "Non" Then
MsgBox ("Mes Messages" & vbCrLf & vbCrLf & Range("D" & i).Value)
End If
Next
End Sub
Seulement j'ai une question.
Dans la mesure où il y aurait plusieurs lignes concernés, peut on afficher les résultats dans un seul même Msgbox?
Merci par avance
Bonjour,
par exemple
Dim i As Integer
msg="Mes Messages"
For i = 4 To 20
If Range("F" & i).Value = "Non" Then
msg=msg & vbCrLf & vbCrLf & Range("D" & i).Value
End If
Next
msgbox msg
End SubD
Super Merci.
cela correspond parfaitement à ce que je souhaitais
D
et comment ne pas afficher de Msgbox si aucun message ?
re-bonjour,
une manière de faire
Dim i As Integer
msg=""
For i = 4 To 20
If Range("F" & i).Value = "Non" Then
msg=msg & vbCrLf & vbCrLf & Range("D" & i).Value
End If
Next
if msg<>"" then msgbox "Mes Messages" & msg
End Sub