copie ( x fois ) d'une forme vers une autre feuill1

[raym1313]

bonjourhttp://www.excel-downloads.com/forum/images/smilies/smile.gif

en feuil1 j'ai un petit tableau générant une valeur

je voudrai que fonction de cette valeur ( x )
une forme situe en feuill2 soit recopié x fois
avec un petit décalage d'une ligne

je vous joins un petit fichier ( copieforme) pour exemple

merci d'avance
cordialement
raym1313

 

[cibleo]

Re : copie ( x fois ) d'une forme vers une autre feuill1

Bonsoir à tous,
Bonsoir raym1313, Catrice, CBernardT,

Vois ce fil et la réponse de tototiti2008, on n'est pas très loin d'une solution 🙂

https://www.excel-downloads.com/threads/ajout-dun-bloc-de-lignes.102713/

Cibleo

 

[kjin]

Re : copie ( x fois ) d'une forme vers une autre feuill1

Bonsoir,
Pour le recopiage de la forme, dans le module de la feuille1

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$11" And Target <> 0 Then
With Sheets("feuil2")
    .Range("A3:C9").Copy
    Do
        compteur = compteur + 8
        .Range("A" & (compteur + 3)).PasteSpecial Paste:=xlFormats
        x = x + 1
    Loop Until x = Target
End With
End If
Application.CutCopyMode = False

End Sub

A+
kjin

 

[Catrice]

Re : copie ( x fois ) d'une forme vers une autre feuill1

Bonjour,

Une autre solution ci-joint

 

[raym1313]

Re : copie ( x fois ) d'une forme vers une autre feuill1

bonjour

merci catrice

ce programme fonctionne a merveille
c'est exactement ce que je desirais

petite modif
peut tu faire en sorte que la copi ce fasse a ( x fois ) - 1
en effet dans le tableau groupe si le total est de 12

dans la feuille copie ton programme prend le bloc de reference
est le copie 12 fois - soit le bloc de reference + 12 copies = 13
je n en veux que 12

peut t on egalement incrementer de 1 chaque copie
le bloc de reference = 1 en cellule a3
ainis de suite chaque bloc numerote dans la premiere cellule
1 - 2 - 3 - 4 ect...

merci d'avance
raym1313 raymond

 

[raym1313]

Re : copie ( x fois ) d'une forme vers une autre feuill1

re bonjour

merci de t'etre pencher sur mon projet
catrice m a fait quelque chose de super

merci quand meme sincérement

raym1313 raymond

 

[raym1313]

Re : copie ( x fois ) d'une forme vers une autre feuill1

re bonjour

catrice a parfaitement repondu a mon projet
merci de t'etre interesser a mon projet

raym1313 raymond

 

[James007]

Re : copie ( x fois ) d'une forme vers une autre feuill1

Bonjour Raymond,

Sur la base de la macro de Catrice, les deux petites modifications complémentaires ...

A +

 

[kjin]

Re : copie ( x fois ) d'une forme vers une autre feuill1

Re l'ami raym,
Salut Catrice, James 🙂

merci quand meme sincérement

😕 euh, ça s'adresse à qui ?
Petite réadaptation

Private Sub Worksheet_Change(ByVal Target As Range)
Dim compteur As Integer, x As Integer
Application.ScreenUpdating = False
With Sheets("feuil2")
    .Range("A10:C65000").Clear
    If Target.Address = "$C$11" And Target > 1 Then
        .Range("A3:C9").Copy
        Do
            compteur = compteur + 8
            x = x + 1
            .Range("A" & (compteur + 3)).PasteSpecial Paste:=xlFormats
            .Range("A" & (compteur + 3)) = x + 1
        Loop Until x = Target - 1
    End If
End With
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Evidemment il faut saisir un chiffre dans la cellule C11 de la feuille 1....🙄
A+
kjin