Microsoft 365 Problème macro incrémentation

[de_hanstrapp]

Bonjour à tous,

J'ai adapté cette macro trouvé sur internet :

Sub Incrémentation()

    Dim xCount As Integer
LableNumber:
    xCount = Application.InputBox("Nombre de lignes à incrémenter", "Test incrémentation", , , , , , 1)
    If xCount < 1 Then
        MsgBox "La valeur saisie doit être supérieure à 0, merci de renseigner une valeur correcte.", vbInformation, "Test incrémentation"
        GoTo LableNumber
    End If
    ActiveCell.EntireRow.Copy
    Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(xCount, 0)).EntireRow.Insert Shift:=xlDown
    Application.CutCopyMode = False

End Sub

Elle fonctionne parfaitement, mais je voulais savoir comment adapter le code pour éviter le message d'erreur quand on clique sur "Annuler" ou que l'on souhaiter fermer via la croix.
Pour ma gouverne : à quoi correspond le point d'interrogation à côté de "Test incrémentation" ? Possibilité de l'enlever ?

Merci pour vos éclairages !

de_hanstrapp

 

[Jacky67]

Bonjour à tous,

J'ai adapté cette macro trouvé sur internet :

Sub Incrémentation()

    Dim xCount As Integer
LableNumber:
    xCount = Application.InputBox("Nombre de lignes à incrémenter", "Test incrémentation", , , , , , 1)
    If xCount < 1 Then
        MsgBox "La valeur saisie doit être supérieure à 0, merci de renseigner une valeur correcte.", vbInformation, "Test incrémentation"
        GoTo LableNumber
    End If
    ActiveCell.EntireRow.Copy
    Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(xCount, 0)).EntireRow.Insert Shift:=xlDown
    Application.CutCopyMode = False

End Sub

Elle fonctionne parfaitement, mais je voulais savoir comment adapter le code pour éviter le message d'erreur quand on clique sur "Annuler" ou que l'on souhaiter fermer via la croix.
Pour ma gouverne : à quoi correspond le point d'interrogation à côté de "Test incrémentation" ? Possibilité de l'enlever ?

Merci pour vos éclairages !

de_hanstrapp

Bonjour,
Comme ceci peut-être

Sub Incrémentation()

    Dim xCount$
LableNumber:
    xCount = Application.InputBox("Nombre de lignes à incrémenter", "Test incrémentation", , , , , , 1)
       If xCount = "" Or Not IsNumeric(xCount) Then Exit Sub
    If xCount < 1 Then
        MsgBox "La valeur saisie doit être supérieure à 0, merci de renseigner une valeur correcte.", vbInformation, "Test incrémentation"
        GoTo LableNumber
    End If
    ActiveCell.EntireRow.Copy
    Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(xCount, 0)).EntireRow.Insert Shift:=xlDown
    Application.CutCopyMode = False

End Sub

 

[de_hanstrapp]

Bonjour,
Comme ceci peut-être

Sub Incrémentation()

    Dim xCount$
LableNumber:
    xCount = Application.InputBox("Nombre de lignes à incrémenter", "Test incrémentation", , , , , , 1)
       If xCount = "" Or Not IsNumeric(xCount) Then Exit Sub
    If xCount < 1 Then
        MsgBox "La valeur saisie doit être supérieure à 0, merci de renseigner une valeur correcte.", vbInformation, "Test incrémentation"
        GoTo LableNumber
    End If
    ActiveCell.EntireRow.Copy
    Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(xCount, 0)).EntireRow.Insert Shift:=xlDown
    Application.CutCopyMode = False

End Sub

Bonjour Jacky67, merci pour votre aide mais malheuresement cela m'indique une incompatibilité de type lors de l’exécution de la macro.

 

[Jacky67]

Bonjour Jacky67, merci pour votre aide mais malheuresement cela m'indique une incompatibilité de type lors de l’exécution de la macro.

RE..

 

[de_hanstrapp]

RE..

Oups, merci beaucoup ! j'ai fait une erreur de syntaxe...

A tout hasard est il possible de faire la même chose pour supprimer des lignes ou une plage ?

 

[Jacky67]

Oups, merci beaucoup ! j'ai fait une erreur de syntaxe...

A tout hasard est il possible de faire la même chose pour supprimer des lignes ou une plage ?

Re..
Certainement, mais ce principe est un peu hasardeux.
Il y a certainement une autre manière de faire.
Pour cela il faudra un classeur exemple avec une structure définitive et des explications complètes