Copie "n" fois une ligne donnée

Résolu/Fermé

Gazpaschaud Messages postés 14 Date d'inscription lundi 12 décembre 2016 Statut Membre Dernière intervention 19 décembre 2016 - 18 déc. 2016 à 08:19
Gazpaschaud Messages postés 14 Date d'inscription lundi 12 décembre 2016 Statut Membre Dernière intervention 19 décembre 2016 - 19 déc. 2016 à 08:45

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 With
End 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

A voir également:

Copie "n" fois une ligne donnée
Copie cachée - Guide
Aller à la ligne excel - Guide
Apparaitre hors ligne instagram - Guide
Vente en ligne particulier - Guide
Copie écran samsung - Guide

4 réponses

Réponse 1 / 4

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
18 déc. 2016 à 10:52

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

Réponse 2 / 4

Gazpaschaud Messages postés 14 Date d'inscription lundi 12 décembre 2016 Statut Membre Dernière intervention 19 décembre 2016
18 déc. 2016 à 11:34

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

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
18 déc. 2016 à 11:43

Re,

Je dois faire une erreur quelque part, laquelle ?
Montrez le code que vous avez ecrit !!!

[\\B_Copie_1_ligne_Neutre] c'est quoi ??

Réponse 3 / 4

Gazpaschaud Messages postés 14 Date d'inscription lundi 12 décembre 2016 Statut Membre Dernière intervention 19 décembre 2016
Modifié par Gazpaschaud le 18/12/2016 à 13:06

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

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
Modifié par f894009 le 18/12/2016 à 13:54

Re,

C'est la ligne que j'ai nommé ainsi
Z'etes sur que c'est toute l ligne et pas une plage de cellules??

Réponse 4 / 4

Gazpaschaud Messages postés 14 Date d'inscription lundi 12 décembre 2016 Statut Membre Dernière intervention 19 décembre 2016
Modifié par Gazpaschaud le 18/12/2016 à 15:44

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)

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
18 déc. 2016 à 17:12

Re,

Sub Copie_Ligne_Neutre()
    With ActiveSheet
        pos = Selection.Row
        nb = .Range("F5") - 1
        .Range("\\B_Copie_1_ligne_Neutre").Copy
        .Range(pos & ":" & pos + nb).Insert Shift:=xlDown
    End With
End Sub

Gazpaschaud Messages postés 14 Date d'inscription lundi 12 décembre 2016 Statut Membre Dernière intervention 19 décembre 2016 > f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024
19 déc. 2016 à 08:45

OK merci infiniment cela fonctionne parfaitement
Bonnes fêtes à vous
Cordialement

Discussions similaires

Que peut faire 3fois/j un homme, mais qu'1fois/j une femme

Que veut dire "correspondant occupé" lors d'un appel ?

Statut « en ligne » alors que non

paiment 4x nickel sur top achat

Discussions similaires

Newsletters