dupliquer des lignes sur excel Fermé

Question

Bonjour, 

J'ai besoin d'aide pour dupliquer des lignes sur excel.
Le fichier est très lourd en nombre de lignes et je na connais pas trop le système des macros.
Il faut que je duplique les lignes portant un code analytique fichier ci-joint.
Merci pour votre aide.

Cordialement,

altashy · Answer

Salut
Peux-tu préciser ce que tu veux dire part : "lignes portant un code analytique " ?
Si j'ai bien compris tu souhaiterais copier toutes lignes correspondantes à une valeur spécifique via une marco?

je n'ouvrirais aucun fichier.

XANA75 · Answer

Bonjour,
Effectivement, je dois dupliquer plusieurs lignes d'un fichier mais uniquement celle qui comportent un code analytique dans la colonne "code analytique".

Cordialement,

ccm81 · Answer

Bonjour

Pour envoyer un fichier
1) Tu vas dans https://www.cjoint.com/ 
2) Tu cliques sur [Parcourir] pour sélectionner ton fichier 
3) Tu descends en bas de la page pour cliquer sur [Créer le lien Cjoint] 
4) Au bout de quelques secondes la deuxième page s'affiche, avec le lien 
   en bleu souligné ; tu le sélectionnes et tu fais "Copier"
5) Tu reviens dans ta discussion sur CCM, et dans ton message de réponse tu fais "Coller".

RQ1. un bout de fichier suffit (quelques dizaines de lignes)
RQ2. N'oublies pas d'y ajouter des explications et des exemples de résultat attendu

Cdlmnt

XANA75 · Answer

Rebonjour,

Voici le lien avec le tableau initial:https://www.cjoint.com/c/HAeniD1C2K7 
Voici le lien avec le tableau final souhaité:https://www.cjoint.com/c/HAennnBEdi7 

Merci pour votre aide.
Cordialement,

altashy · Answer

code : 
Sub Bouton1_Cliquer()
    compteur = 2
    nbli = Cells(Sheets("Feuil1").Rows.Count, "A").End(xlUp).Row ' nombre de ligne en colonne A
    ca = InputBox("code analytique : ")
    For i = 2 To nbli
        If Cells(i, 1) = ca Then
            Cells(i, 1).Select
            Cells(i, 1).Copy
            Cells(compteur, 3).PasteSpecial
            compteur = compteur + 1
        End If
    Next
    Application.CutCopyMode = False
End Sub

si tu n'as pas compris n'ésite pas :D

XANA75 · Answer

Rebonjour,

merci pour votre rapidité mais lorsque j'insère le code sur le fichier et que j'exécute la macro voici le message qui apparaît:

erreur d'exécution '9'
l'indice n'appartient pas à la sélection.

Pourriez-vous m'aider?
Cordialement,

XANA75 · Answer

Re bonjour,

Désolé je ne voulais pas vous offenser.
J'utilise les macros que très peu.
J'ai doc renommé ma feuille selon votre conseil en feuil 1 selon le document envoyé.
Ensuite j'ai sélectionné tout le document et j'ai exécuter la macro mais une fenêtre apparaît qui me demande un code analytique.
Que dois-je faire.

Merci pour votre aide.

XANA75 · Answer

J'ai mis le code analytique 7400000 selon mon tableau mais rien ne se passe.

Est-ce normal ou après exécuter le macro je dois faire autre chose.
J'avoue être perdu.

Cordialement,

XANA75 · Answer

voici ce que j'ai insérer dans la macro mais j'ai toujours la demande de code analytique et rien ne se passe.
Je suis vraiment désolé mais je n'y arrive pas.

Sub Bouton1_Cliquer()
 compteur = 2
 nbli = Cells(Sheets("Feuil1").Rows.Count, "A").End(xlUp).Row ' nombre de ligne en colonne A
 ca = InputBox("code analytique : ")
 For i = 2 To nbli
 If Cells(i, 1) = ca Then
 Rows(i).Select
Selection.Copy
Rows("8" + compteur).Select ' regarde a la fin d mon message *
Selection.PasteSpecial
 compteur = compteur + 1
 End If
 Next
 Application.CutCopyMode = False
End Sub

Cordialement,

ccm81 · Answer

Juste en passant,  as tu pensé à utiliser un filtre ?

Cdlmnt

XANA75 · Answer

je viens d'utiliser le filtre mais rien n'y fait.
Toujours la demande de code analytique et aucunes lignes ne se duplique.
Est-ce normal?

Cordialement,

michel_m · Answer

Bonjour tt le monde

tes 22000 codes traités en 0,7 secondes
(restitution en feuille "final" car aucune précision annoncée dans la demande)

https://www.cjoint.com/c/HAerleNVC6F

 
 Michel

XANA75 · Answer

Bonjour monsieur,

Je suis désolé mais je n'arrive pas à ouvrir le dossier car il me dit qu'il est endommagé.
Pourriez-vous me le renvoyer s'il vous plait?

Cordialement,

XANA75 · Answer

J'ai essayé la formule que vous m'avez envoyé et cela me demande toujours le code analytique que j'ai insérer et cela met le message suivant:

code inexistant ou non numérique.

Pourriez-vous m'aidez car je dois mal m'y prendre je pense?

Cordialement,

michel_m · Answer

Bonjour,
 tu  as peut-être  mal  saisi ton code  7400000  qui est un nombre et que l'on retrouve dans ta colonne K
ou alors tu as très mal expliqué ce que tu voulais 
ou ton envoi de classeur n'est pas la réalité

 notre ami CCM81  a testé et c'est OK

donc....

XANA75 · Answer

Bonjour messieurs,

merci j'ai bien reçu votre tableau.
En faite je me suis mal exprimée.
Les lignes doivent se dupliquer les unes à la suite des autres sur le même document.
Seul les lignes portant un code analytique doivent être dupliquées le reste des ligne reste inchangé.
Est-il possible que dans la ligne dupliquer, on fasse apparaître une lettre "A" en colonne "Devise" à la place du "E" indiqué sachant que la première ligne devra garder la lettre "E"?

Je vous remercie pour votre aide,
Cordialement,

Dupliquer des lignes sur excel

16 réponses

Discussions similaires