Copier des lignes d'une feuille à une autre

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

Marsh Posté le 31-01-2006 à 18:43:19

Marsh Posté le 31-01-2006 à 22:13:43

Voici, par exemple en VBA :

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 à 22:25:52

Ok j essaye ça dem jte remercie

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *