Copie "n" fois une ligne donnée Résolu/Fermé

Question

Bonjour, 
j'ai un code qui me permet de copier une ligne précise contenant dans différentes cellules (de la ligne) des listes déroulantes.
Sub Copie_Ligne_Neutre()    Dim n%    n = selection.Row    With ActiveSheet        [\B_Copie_1_ligne_Neutre].Copy        .Range("A" & n).Resize(, 21).Insert Shift:=xlDown    End WithEnd Sub
Etant amené à pouvoir copier et insérer une seule ligne ou plusieurs, je souhaiterai compléter le code de la manière suivante :
en cellule F5 j'inscris le nombre de fois que je souhaite voir ma ligne dupliquée et insérée.
Mais quel que soit le nombre de fois que cette ligne est dupliquée et insérée elle doit l'être en respectant les MFC présentes dans mes colonnes, ce qui n'est pas le cas dans le code ci-dessus
J'ai vu sur les forums une formule :"PasteSpecial Paste:=xlPasteFormats" qui semblerait donc "coller" les mises en formes conditionnelles mais je ne sais comment l'intégrer dans le code
Merci par avance de vos éclaircissements
Cordialement
Configuration: Windows / Chrome 55.0.2883.87

f894009 · Answer

Bonjour,
'a vous de modifier pour la ligne a copier
Sub Copie_Ligne_Neutre()
    With ActiveSheet
        pos = Selection.Row
        Nb = .Range("F5") - 1
        .Range("A2:B2").Copy
        .Range("A" & pos & ":B" & pos + Nb).Insert Shift:=xlDown
    End With
End Sub

Gazpaschaud · Answer

Merci infiniment mais cela ne fonctionne pas
J'ai bien recopié In Extenso la VBA,
Puis modifié les références de la plage à copier
( Range("A2;B2").Copy )
remplacé par
[\B_Copie_1_ligne_Neutre].Copy
mais cela ne m'insère qu'une seule ligne, quelque soit le nombre saisi en cellule F5
Je dois faire une erreur quelque part, laquelle ?
Merci de votre patience et compréhension
Cordialement

Gazpaschaud · Answer

C'est la ligne que j'ai nommé ainsi
le code je l'ai donné dans mon premier message

Gazpaschaud · Answer

Oui je suis certain que c'est bien la sélection d'une ligne entière en l'occurance dans ma BD la ligne n° 1034 (pour l'instant ; au moment où je viens de vérifier elle se modifiera bien sur par la suite en fonction des entrées de lignes ultérieures)

Copie "n" fois une ligne donnée

4 réponses

Discussions similaires