Bonjour,
J'aimerais éviter cette erreur (La méthode copy de la classe range a échoué) lorsque j'essaye d'insérer ou de supprimer une ligne à partir des cellules déverrouillées.
J'utilise un bouton de commande qui me permet d'insérer des lignes seulement dans mon tableau ou il y a "Qté" "Uté" "Désignation" etc...
Pour éviter les erreurs lorsque j'insère une ligne en dehors de mon tableau cité ci-dessus, j'aimerais qu'un message (msgbox) comme "Vous ne pouvez pas insérer des lignes ici" apparaisse à l'écran.
Voici le code et un fichier exemple :
Merci d'avance aux personnes qui vont se pencher sur mon problème
a+
J'aimerais éviter cette erreur (La méthode copy de la classe range a échoué) lorsque j'essaye d'insérer ou de supprimer une ligne à partir des cellules déverrouillées.
J'utilise un bouton de commande qui me permet d'insérer des lignes seulement dans mon tableau ou il y a "Qté" "Uté" "Désignation" etc...
Pour éviter les erreurs lorsque j'insère une ligne en dehors de mon tableau cité ci-dessus, j'aimerais qu'un message (msgbox) comme "Vous ne pouvez pas insérer des lignes ici" apparaisse à l'écran.
Voici le code et un fichier exemple :
Code:
Private Sub TAjouter_Click()
ActiveSheet.Unprotect
ligne = Selection.Row
Application.ScreenUpdating = False
For n = 1 To CInt(NombreLigne.Value)
Selection.Offset(1, 0).EntireRow.Insert Shift:=xlShiftDown
Range("A" & ligne & ":I" & ligne).Copy
Rows(ligne + 1).RowHeight = 15
Range("A" & ligne + 1).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("G" & ligne).Copy Destination:=Range("G" & ligne + 1)
Range("I" & ligne).Copy Destination:=Range("I" & ligne + 1)
ligne = ligne + 1
Next
Range("TotalH.T.").FormulaR1C1 = "=SUM(R21C:R[-1]C)"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, _
AllowFormattingCells:=True, AllowFormattingRows:=True
Unload Me
End Sub
Private Sub TSupprimer_Click()
ActiveSheet.Unprotect
Selection.EntireRow.Delete
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, _
AllowFormattingCells:=True, AllowFormattingRows:=True
Me.Hide
End Sub
Merci d'avance aux personnes qui vont se pencher sur mon problème
a+
Pièces jointes
Dernière édition: