1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| Option Explicit
Sub Test()
Dim f As Variant
Dim Message As Variant
Dim LigneActive As String
Set f = ActiveSheet
LigneActive = ActiveCell.Row
Message = _
f.Cells(LigneActive, 12) & " - " & _
f.Cells(LigneActive, 13) & " " & _
f.Cells(LigneActive, 14) & " " & _
f.Cells(LigneActive, 15) & vbLf & vbLf & _
f.Cells(LigneActive, 16) & " - " & _
f.Cells(LigneActive, 17) & " - " & _
f.Cells(LigneActive, 18) & vbLf & vbLf & _
f.Cells(LigneActive, 19) & " - " & _
f.Cells(LigneActive, 20) & " " & _
f.Cells(LigneActive, 21) & vbLf & vbLf & vbLf & _
"Cette intervention doit être reportée sur la feuille : Suivi de pose dans le dossier de pose"
MsgBox Message
End Sub |
Partager