Macro VBA copier coller avec condition
Bonjour,
Je ne suis pas forte en VBA et je cherche un code assez simple qui va répondre a certaines conditions :
Copier la ligne entiere dans un autre onglet si dans la colonne A se retrouve les valeurs :
dans A = new, alors copier dans l'onglet New
si A = termin, alors copier la ligne A:G dans l'onglet Termin
si A = Modif, alors copier 2eme, 4eme et 7eme colonne dans l'onglet Modif
Coller toujours dans la dernière ligne non-vide
Merci
Un fichier serait pas un luxe....
cependant avec ce que tu fournit comme infos, un truc comme ca devrait suffire:
lignemax=sheet("Depart").cells(rows.count,1).end(xlup).row 'compte le nombre de ligne d'un onglet a adapter pour toute les feuilles concernées
for i=1 to lignemax 'represente le nombre de ligne de ton onglet de depart
if sheets("Départ").cells(i,1)="new" then 'A = new, alors copier dans l'onglet New
Sheet("New").cells(lignemax1,1)= sheets("Départ").cells(i,1)
lignemax1=lignemax1+1 'prochaine ligne vide
elseif sheets("Départ").cells(i,1)=" termin" then 'A = termin, alors copier la ligne A:G dans l'onglet Termin
Sheet("Termin").cells(lignemax2,1)= sheets("Départ").Range(cells(i,1)":"cells(i,7))
lignemax2=lignemax2+1
elseif sheets("Départ").cells(i,1)=" modif" then 'A = Modif, alors copier 2eme, 4eme et 7eme colonne dans l'onglet Modif
Sheet("Modfi").cells(lignemax3,1)= sheets("Départ").cells(i,2)
Sheet("Modfi").cells(lignemax3,2)= sheets("Départ").cells(i,4)
Sheet("Modfi").cells(lignemax3,3)= sheets("Départ").cells(i,7)
lignemax3=lignemax3+1
end if
next iSachant que cell(n°ligne, n°colonne), je te laisse adapter a ta mise en forme
Merci beaucoup, je vais essayer,
Sais-tu quel code je peux ajouter si je veux que les lignes qui sont copiées dans Termin soient écrasées après dans l'onglet source?
correspond aux valeurs que tu copie:
sheets("Départ").Range(cells(i,1)":"cells(i,7))donc
sheets("Départ").Range(cells(i,1)":"cells(i,7)).deleteles supprimera