Insertion ligne selon valeur cellule

Bonjour stephdu13

je viens sollicitée pour ma programmation

mon sujet est : insertion ligne selon valeur cellule

j ai eu quelques réponses mais la programmation est complexe

je veux inséré des lignes ou les supprimés a laide d un menu déroulant avec des valeurs

mon soucis est que les lignes se copie ou se surprime mais seulement une par une quand d je choisi la valeur 3 les 3 lignes ne copie pas mais seulement 1 seul

merci pour votre aide

j ai oublié ci joint les tableau

merci

Bonjour

Il faut utiliser une boucle pour prendre en compte le nombre d'itération:

Rows(ligne).Copy
For i = 1 To nbre    
    Rows(ligne + 1).Insert Shift:=xlDown
    Cells(i + ligne + 1, 1).Value = nbre + 1
Next i

Attention ce code ne permet que d'insérer par rapport à la ligne 19, il faut référencer la ligne servant de base :

    ligne = 19
    nbre = ActiveCell.Value
    Range("D" & ligne).Select

deviendrait

ligne = ActiveCell.Row
nbre = ActiveCell.Value
Range("D" & ActiveCell.Row).Select

For i = 1 To nbre
    Rows(ligne).Copy
    Rows(ligne + 1).Insert Shift:=xlDown
    Cells(i + ligne + 1, 1).Value = nbre + 1
Next i

Bonjour et merci

je pense faire une mauvaise manip car quand je sélection -2 aucune ligne se supprime et ensuite code erreur 13

merci

Il te faut changer ton code sup de la même manière que l'ajout.

J''essaie de voir ça ce soir si tu bloques.

merci je vais essayer ça dans l’après midi

il est vrai aussi comme je l ai signalé dans ma présentation que je suis novice

jecommence la BVA depuis 1 mois donc beaucoup de chose a apprendre

et je remercie tout le monde pour l'aide apporter a des personnes comme moi NOVICE

MERCI A TOUS