Bonjour a tous,
Je souhaiterai duppliquer une lignes en fonction de la valeur inscrite dans une cellule.
Le nombre de dupplication depends du nombre inscrit dans cette cellule.
Exemple: si j'inscrit "3" dans la cellule je voudrais que 2 lignes soient dupliquer sous la premiere.
J'ai essayer ce bout de programme mais bien entendu rien ne fonctionne:
If x = 2 Then
Dim x As Integer
x = Range("D22")
Rows("25:25").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End If
If x = 3 Then
Dim x As Integer
x = Range("D22")
Rows("25:25").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Rows("26:26").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Auriez vous une piste?
Merci de votre aide.