Prob avec fonction On Error Goto

[olive]

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.

 

[STéphane]

Err:
If Err Then 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"

 

[olive]

Malheureusement, ca ne marche. Si je mets ca, quand j'active ma macro sur une cell vérouillée, g un mess d'erreur 1024 et non pas mon Msgbox

 

[Fred]

Et si tu essayais ca en rajoutant juste exit sub a la fin de ta procedure normale:

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

Exit Sub <-------------------------

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

 

[olive]

Oup's, erreur de ma part, g du faire une fausse manip, ca marche
Toutes mes excuses.

 

[olive]

Ta 2ème soluce marche aussi, merci ^^