micie1509
XLDnaute Junior
Bonjour à tous,
J'ai cette petite macro qui insère des lignes et qui fonctionne très bien si on ne touche pas au bouton Annuler. Si j'appuie sur le bouton Annuler j'ai cette erreur:
Erreur d'exécution '1004':
Erreur définie par l'application ou par l'objet
J'imagine, que nulle part dans mon code il n'est indiqué que faire si j'appuie sur Annuler. J'aurais cru qu'en choisissant InputBox, cela allait de soi puisque les boutons sont générés automatiquement. Mais on dirait bien que non. J'ai essayé plusieurs options trouvées ici et là et soit la macro ne fonctionne plus, soit j'ai quand même cette erreur.
Voici le code:
Est-ce que quelqu'un aurait une idée de ce que je dois rajouter pour que le bouton Annuler fonctionne?
Merci beaucoup !
J'ai cette petite macro qui insère des lignes et qui fonctionne très bien si on ne touche pas au bouton Annuler. Si j'appuie sur le bouton Annuler j'ai cette erreur:
Erreur d'exécution '1004':
Erreur définie par l'application ou par l'objet
J'imagine, que nulle part dans mon code il n'est indiqué que faire si j'appuie sur Annuler. J'aurais cru qu'en choisissant InputBox, cela allait de soi puisque les boutons sont générés automatiquement. Mais on dirait bien que non. J'ai essayé plusieurs options trouvées ici et là et soit la macro ne fonctionne plus, soit j'ai quand même cette erreur.
Voici le code:
Code:
Sub Ligne_insérer_si_emplacement_ok()
Sheets("Feuille de calculs").Select
Dim n, L As Range
Set L = ActiveCell.EntireRow
Dim u As String
ActiveSheet.Unprotect
If Selection.Row < 18 Then
MsgBox "NON, NON Tu peux pas faire ça !"
Else
n = InputBox("Combien de ligne voulez-vous insérer ?", "Choix", 1) 'nombre de lignes à insérer
Rows("14:1058").Select
Selection.EntireRow.Hidden = False
ActiveSheet.Outline.ShowLevels RowLevels:=2
Selection.AutoFilter
Rows("1:1").Select
Selection.EntireRow.Hidden = True
L(2).Resize(n).Insert
Rows(1).EntireRow.Hidden = False
Rows(1).Copy L(2).Resize(n)
L(2).Resize(n).RowHeight = L(n - 1).RowHeight
Rows(1).EntireRow.Hidden = True
Selection.AutoFilter
End If
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingCells:=True
End Sub
Est-ce que quelqu'un aurait une idée de ce que je dois rajouter pour que le bouton Annuler fonctionne?
Merci beaucoup !