Prob avec fonction On Error Goto

  • Initiateur de la discussion olive
  • Date de début
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.
 
S

STéphane

Guest
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"
 
F

Fred

Guest
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
 

Discussions similaires