Inputbox et ajout de ligne

Bonsoir à tous,

Mon code pour ajouter une ligne dans mon tableau ne fonctionne pas ... j'ai des difficultés à utiliser le "select case" pourriez-vous me donner un petit coup de main svp ?

Sub Ajout_ligne()

Dim ligne As Integer

ligne = Application.InputBox("Après quelle ligne voulez-vous en ajouter une ?", "Ajout d'une ligne", Type:=1)

 Select Case ligne
 Case Is = vbCancel
 Exit Sub
 Case Is = vbOK

    Rows(ligne + 1).Select
    Selection.Insert Shift:=xlUp
    End Select

End Sub

Merci à vous

Bonjour,

Essaie ainsi :

Public Sub Ajout_ligne()
Dim Ligne As Long
    Do
        Ligne = Application.InputBox("Ligne ?", Type:=1, Title:="Insertion ligne")
    Loop While Ligne < 2 And Ligne <> False
    If Ligne = False Then Exit Sub
    ActiveSheet.Rows(Ligne + 1).Insert Shift:=xlUp
End Sub

Top merci !!! ça fonctionne très bien !

Par contre j'ai quelques formules que je veux remettre sur ma ligne que je viens d'ajouter.

En clair, si j'ajoute une ligne après la 8, je veux qu'en colonne A, B et C, ligne 9 (nouvelle ligne) il me copie les formules des colonnes A, B, C de la ligne d'avant soit la 8.

As-tu une piste ?

Les formules sont le N° SEMAINE qui fait référence à une date dans mon tableau.

Merci par avance.

Re,

Mets tes données sous forme de tableau (structuré), format à privilégier depuis Excel 2007.

Tu n'auras plus de problème de recopie de formules ou de formats. Ces tableaux sont dynamiques.

Cdlt.

Re,

j'ai essayé de le mettre en tableau par (Insertion-Tableau), mais les formules ne s'ajoutent pas

Je dois tout recommencer ?

Re,

Joins un classeur à ta demande.

Cdlt.

En PJ

Je veux garder les formules en fin de tableau de mon onglet BDD.