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

  • Initiateur de la discussion Initiateur de la discussion Grossiste
  • Date de début Date de début
  • Mots-clés Mots-clés
    vba

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Grossiste

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

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
8
Affichages
1 K
Retour