Discussion :

[BtjpsspgrW]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[GoFio]

Salut,

Pour plus de lisibilité utilise les balises codes, regarde ici comme ça marche :
http://club.developpez.com/aidenouve...es/Balises.gif

Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    If MsgBox("Ecris ton message", vbYesNo) = vbNo Then
        Exit Sub
    End If

Et pour des infos complète sur le sujet, je te conseille de lire ceci :
http://fring.developpez.com/vba/excel/msgbox/

Pour savoir où la placer dans ton code, je te conseille de faire des test en la plaçant à différent endroit

J'espère que cela t'aidera