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.
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.