Copier de données sur une autre feuil
Bonjour à tous,
J'aurai besoin de votre aide.
Je souhaite copier des données depuis une feuille Excel sur autre en fonction d'un paramètre se trouvant dans la première colonne.
voir le fichier Excel
En fait je souhaite copier les lignes correspondant au SS-Ensemb --> a de la feuille données dans la feuille résultat, idem pour b et c
Dans mon exemple, il y a peu de ligne mais dans mon fichier j'ai plus de 500 lignes
en VBA ou autre je peux adapter par la suite si vous avez une idée...
merci de votre aide
Bonsoir Maurice,
c'est pas mal, j'ai pris quelques libertés j'ai ajouté un choix de cellule pour le paramètre
Case UCase(Sheets("résultat").Range("E25").Value)
la macro copie toutes les cellules en partant de la colonne A, cependant dans le cas ou je souhaite copier la colonne B et D par exemple, je dois faire quoi comme modif dans la ligne ci-dessous?
Range("A" & L & ":D" & L).Copy .Cells(La, 1)
merci
Lik
re
En fait je souhaite copier uniquement les cellule que je veux, pas toutes les cellule de la ligne. en gardant comme condition la cellule de la 1ere colonne
merci de votre aide
Lik
Bonjour,
Bon j'ai du mal à trouver, le copier des coller des colonnes d'une feuilles à une autre en fonction de la condition cela fonction, merci Maurice.
cependant, je n'arrive pas trouver comment copier que certaines colonnes et non toutes?
qui peut m'aider plz?
Lik
bonjour
j'ais répondue a ton modèle
et maintenant tu veux autre chose
donne un model de se que tu veux ?
et claire si possible
A+
Maurice
Maurice,
En fait dans le fichier ci-joint, je veux copier les colonnes A, B, F et G par exemple sans copier les colonnes C, D et E de la feuille Donnée dans la feuille de Résultat.
concernant la condition de copie, j'ai ajouté uniquement la ligne
Case UCase(Sheets("résultat").Range("E25").Value) pour définir la condition de recopie à la place de Case "A"
merci encore pour ton aide
Lik
bonjour
je voie pas la macro ??
A+
Maurice
bonjour
Voila le Code
Range("A" & L & ":B" & L & ",F" & L & ":G" & L).Copy .Cells(La, 1)
A+
Maurice
ok merci ça marche
c'est la "," avant la lettre F que je ne connaissais pas
Range("A" & L & ":B" & L & ",F" & L & ":G" & L).Copy .Cells(La, 1)
merci encore
bonjour
nouvelle macro pour éviter les doublons
mes pence que je ne ses pas comment tu travail
A+
Maurice