Copier des lignes d'une feuille à une autre - VB/VBA/VBS - Programmation
MarshPosté le 31-01-2006 à 18:43:19
Slt !
En fait j ai un tableau sur excel et je souhaiterais copier ds une autre feuille certaines lignes, ces lignes ont une case ou il y a marqué "Terminé" et je veux copier les lignes que qd il ya marqué terminé,
En fait exactement je voudrais afficher le n° de ligne ds un combobox des lignes qui sont "terminé" c pourquoi je voulais les isoler ds une autre feuilles
Sub copie_cells_termines() Application.ScreenUpdating = False ' pour aller plus vite Set src_feuille = ThisWorkbook.Sheets("Feuil1" ) Set dst_feuille = ThisWorkbook.Sheets("Feuil2" ) src_col_no = 2 ' pour la colonne B (A = 1, B = 2) src_lg_no = 1 ' à partir de la première ligne dst_col_no = 1 dst_lg_no = 1 Do While Not IsEmpty(src_feuille.Cells(src_lg_no, src_col_no)) If (src_feuille.Cells(src_lg_no, src_col_no).Value = "terminé" ) Then ' on a vu "terminé", on recopie la cellule d'a côté dst_feuille.Cells(dst_lg_no, dst_col_no).Value _ = src_feuille.Cells(src_lg_no, src_col_no - 1).Value dst_lg_no = dst_lg_no + 1 End If src_lg_no = src_lg_no + 1 Loop End Sub
Marsh Posté le 31-01-2006 à 18:43:19
Slt !
En fait j ai un tableau sur excel et je souhaiterais copier ds une autre feuille certaines lignes, ces lignes ont une case ou il y a marqué "Terminé" et je veux copier les lignes que qd il ya marqué terminé,
En fait exactement je voudrais afficher le n° de ligne ds un combobox des lignes qui sont "terminé" c pourquoi je voulais les isoler ds une autre feuilles
si vous avez des solutions je vous remercie