Copier des lignes d'une feuille à une autre

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Copier des lignes d'une feuille à une autre

gohu67

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

Publicité

olivthill

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

gohu67

Ok j essaye ça dem jte remercie

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Copier des lignes d'une feuille à une autre

Sujets relatifs
commande dépendant du numéro de feuille	numéro de feuille
Javascript pour copier donnée dans un champ de form d'une autre frame	[VBA] Selection les lignes qui contienne la valeur d'une input box
Atterir sur une feuille après choix ds combo box d'un userform	copier mes listes déroulantes
copier mes listes déroulantes dans un même script	Pb VBS - Centraliser / copier ...
[java] lire un feuille de calcul excel au format xml ?	nombre de lignes d'un textbox en VB6
Plus de sujets relatifs à : Copier des lignes d'une feuille à une autre

Page générée en 0.041 secondes