Code Ligne

Sub ajoutligneb1()
Dim i As Integer
Sheets("parametres").Select
Range("P17").Select
i = Range("P17").Value
Sheets("recolte").Select
Rows("6" & 6 + i & "").Select
Selection.Insert shift:=xlDown
End Sub

Hello.

Je souhaiterais faire que ma macro insert "x" nombre de lignes sous la ligne "6" de la feuille récolte.

X étant la valeur de la cellule P17 de la feuilles paramètres.

Je dois pas être loin avec ce bout de code rafistolé, mais mon incompétence me fait défaut.

Même dans l'idéal serait il possible d'intégrer une ligne copié sur la ligne "6" de la feuille récolte. ?

bonjour,

une proposition

Sub ajoutligneb1()
    Dim i As Long
    i = Sheets("parametres").Range("P17").Value
    If i > 0 Then Sheets("recolte").Rows("6:" & 5 + i).Insert shift:=xlDown
End Sub

Salut ! Merci beaucoup de ta réponse !

Du coup j'ai l'erreur de compilation suivante : Type defini par l'utilisateur non defini

As Long ! J'ai trouvé... je me disais aussi.

Est ce que tu crois que c'est possible de "copier" une ligne pour que toute ces lignes "intégré" ait le même format qu'une autre ? (Avec des données dedans ?)

Sinon merci encore c'est super !!!

bonjour,

regarde les options de la méthode .insert :

tu as le choix entre xlFormatFromLeftOrAbove (default) or xlFormatFromRightOrBelow.

donc par exemple

rows("6:6").insert xldown, xlFormatFromLeftOrAbove 

Super ! Merci milles fois !