Ajouter un message dans une macro

Bonjour à tous,

dans une macro fournie par Dan qui ajoute des lignes, je voudrais ajouter un message.

Voici le détail pour vous simplifier la tâche:

https://www.excel-pratique.com/~files/doc2/Message_dans_Sub_Ajout.doc

Quelqu'un peut-il mettre le code correspondant à ce que je voudrais.

D'avance, merci,

Elfi

Bonjour

Essaie en modifiant comme suit :

…
With Sheets("Courrier")
On error goto fin
…
End With
Exit sub
Fin :
Msgbox : "Vous devez désactiver la protection avant d’ajouter une ligne"
End Sub

Amicalement

Dan

Hello Dan,

voici mon collage mais cela ne fonctionne pas. Où me suis-je planté?

Sub Ajout()

'Macro Dan pour Plabrousse le 12/06/09

Dim dlg As Long

With Sheets("Courrier")

On Error GoTo Fin

End With

Exit Sub

Fin:

Msgbox : "Vous devez désactiver la protection avant d’ajouter une ligne"

End Sub

dlg = .Range("B65536").End(xlUp).Row

If dlg = 2 Then End

.Range("B" & dlg & ":" & "H" & dlg).Copy Destination:=.Range("B" & dlg + 1)

.Range("C" & dlg + 1 & ":" & "H" & dlg + 1).ClearContents

End With

End Sub

amicalement,

Elfi

Rebonjour Dan,

J'ai retravaillé ce que tu m'a dit. J'ai enlevé les deux points derrière msgbox. Maintenant j'ai une erreur de compil sur x1up avec le message suivant:

seuls des commentaires peuvent apparaître après End sub, ...

Sub Ajout()

'Macro Dan pour Plabrousse le 12/06/09

Dim dlg As Long

With Sheets("Courrier")

On Error GoTo Fin

End With

Exit Sub

Fin:

Msgbox "Vous devez désactiver la protection avant d’ajouter une ligne"

End Sub

dlg = .Range("B65536").End(xlUp).Row

If dlg = 2 Then End

.Range("B" & dlg & ":" & "H" & dlg).Copy Destination:=.Range("B" & dlg + 1)

.Range("C" & dlg + 1 & ":" & "H" & dlg + 1).ClearContents

End With

End Sub

re,

Non pas comme cela mais comme ceci :

Sub Ajout() 
'Macro Dan pour Plabrousse le 12/06/09 
Dim dlg As Long 
With Sheets("Courrier") 
On Error GoTo Fin 
dlg = .Range("B65536").End(xlUp).Row 
If dlg = 2 Then End 
.Range("B" & dlg & ":" & "H" & dlg).Copy Destination:=.Range("B" & dlg + 1) 
.Range("C" & dlg + 1 & ":" & "H" & dlg + 1).ClearContents 
End With 
Exit Sub 
Fin: 
Msgbox "Vous devez désactiver la protection avant d’ajouter une ligne" 
End Sub 

Amicalement

Dan

Sacré DAN,

si tu n'existait pas, il faudrait t'inventer!

Tout fonctionne à merveille,

merci encore,

amicalement,

Elfi