INSÉRER UNE MsgBox vbYesNo
Bonjour,
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
| Sub Espace_Ligne()
Range("B2").Select
Dim Cell As Range
For Each Cell In Range("B2:B35")
With ActiveCell
If IsEmpty(ActiveCell) = True Then
ActiveCell.Offset(1,0).Select
End If
If IsEmpty(ActiveCell) = False Then
Selection.End(xlDown).Select
End If
End With
Next Cell
End Sub |
Je souhaiterais une MsgBox ("Continuer ?", vbYesNo) pour interrompre le contrôle de la macro entre les cellules B2 à B335 ; mais où l'insérer pour qu'il n'y ait pas d'erreur de compilation.
Vous en remerciant par avance.
Cordialement.
