XL 2016 Message d'erreur '13'- Résolu

[Grossiste]

Bonjour à tous,

J'aimerais créer des nouvelles lignes, dans mon tableau, en cliquant simplement sur un bouton qui va ouvrir une inputbox pour déterminer quelle ligne on souhaite atteindre. Le code semble bien fonctionner sauf au moment ou je déclenche le bouton de la macro et ferme ou annule l'inputbox sans rentrer de valeurs, apparaît alors la fameuse erreur d’exécution '13', incompatibilité de type. Voici le code en question :

Sub ajoutligne()
Range("d1").End(xlDown).Select
lgn = ActiveCell.Row
ligne = InputBox("Avant quelle ligne voulez-vous insérer la nouvelle?", "N° Ligne")
nbre = Cells(ligne, 6).Value

Rows(ligne).Copy
Rows(ligne + 1).Insert Shift:=xlDown

For i = 1 To (lgn - nbre - 1)
Cells(ligne + i, 6).Value = nbre + i
Next i
End Sub



Merci pour votre aide !

 

[youky(BJ)]

Bonjour Grossiste,
Ajouter la ligne en gras

ligne = InputBox("Avant quelle ligne voulez-vous ins?rer la nouvelle?", "N? Ligne")
If ligne = "" Then Exit Sub

Bruno
EDIT: le fait d'annuler renvoie vide

 

[Grossiste]

Parfait, simple et efficace, grand merci !