Bonjour,
Je dois dans un tableau faire insérer une ligne complète à partir d’une valeur choisie par l’utilisateur.
Le code ci-dessous fonctionne parfaitement pour décaler les cellules vers le bas mais n’insère pas la ligne complète.
Que faut-il changer à
pour que ce soit non pas un décalage de cellules vers le bas mais la ligne complète qui soit insérée ?
Je dois dans un tableau faire insérer une ligne complète à partir d’une valeur choisie par l’utilisateur.
Le code ci-dessous fonctionne parfaitement pour décaler les cellules vers le bas mais n’insère pas la ligne complète.
Code:
Sub inser()
Sheets("2013").Select
Dim ligne
ligne = InputBox("Saisir le numéro de la ligne sous celle à insérer")
Sheets(1).Range("A" & ligne & ":H" & ligne).Select
Selection.Insert Shift:=xlDown
Dim Retour As Integer
End Sub
Code:
Sheets(1).Range("A" & ligne & ":H" & ligne).Select