O
olive
Guest
J'ai fait cette macro :
Sub Wallner()
On Error GoTo Err
ActiveSheet.Shapes("Text Box 106").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
ActiveCell = ActiveSheet.Shapes("Text Box 106").TextFrame.Characters.Text
ActiveCell.Offset(1, 0).Select
Err:
MsgBox " Cette cellule est protégée, on ne peut y copier quoi que se soit." & vbLf & "Placer les noms des personnes seulement dans les cases U5, U6 et Montage", vbInformation, "Arrière mécréant"
Range("B25").Select
End Sub
Comme vous pouvez le voir, je veux quand cas d'erreur s'affiche un Msgbox.
Or celui ci s'affiche même quand il n'y a pas d'erreur, je ne comprends pas pourquoi.
Si qq'un peut m'aider, Thx.
Sub Wallner()
On Error GoTo Err
ActiveSheet.Shapes("Text Box 106").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
ActiveCell = ActiveSheet.Shapes("Text Box 106").TextFrame.Characters.Text
ActiveCell.Offset(1, 0).Select
Err:
MsgBox " Cette cellule est protégée, on ne peut y copier quoi que se soit." & vbLf & "Placer les noms des personnes seulement dans les cases U5, U6 et Montage", vbInformation, "Arrière mécréant"
Range("B25").Select
End Sub
Comme vous pouvez le voir, je veux quand cas d'erreur s'affiche un Msgbox.
Or celui ci s'affiche même quand il n'y a pas d'erreur, je ne comprends pas pourquoi.
Si qq'un peut m'aider, Thx.