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 !
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 !