Microsoft 365 Problème macro incrémentation

de_hanstrapp à dit:

Bonjour à tous,

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

VB:

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

Cliquez pour agrandir...

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

Jacky67 à dit:

Bonjour,
Comme ceci peut-être

VB:

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

Cliquez pour agrandir...

de_hanstrapp à dit:

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

Cliquez pour agrandir...

Jacky67 à dit:

RE..

Cliquez pour agrandir...

de_hanstrapp à dit:

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 ?

Cliquez pour agrandir...