Salut, Est oui ça ce dit encore de nos jours!!! Lorsque l'on entends
"ligne" et
"feuille" c'est bizarre mais on pense tout de suite à Excel. Si tu travailles bien sous Excel, il aurait été très utile de le préciser.
Il aurait été bon de dire si tu pilotes Excel depuis VB6 ou bien depuis Excel (VBA)
Si c'est depuis Excel saches qu'une section est dédiée à VBA (penses y pour tes PROCHAINES questions).
Thèmes / Visual Basic 6 / Langages dérivés / VBABref.
Essaie peu être ceci. le code suivant copie toutes les lignes avec un X en colonne A de la Feuil1 vers la Feuil2 en partant de A1 et en s'arrêtant à la premiere Cellule vide.
Private Sub CopieLigne()
Dim Cel As Range
Dim NumLigne As Long
'On Selectionne la colonne A
ActiveWorkbook.Worksheets("Feuil1").Columns("A:A").Select
'Pour chaque cellule contenue dans la selection
For Each Cel In Selection
'Si la cellule est vide on stoppe la boucle
If IsEmpty(Cel) Then Exit For
If UCase(Cel.Text) = "X" Then
'Numéro de ligne de destination
NumLigne = NumLigne + 1
'Copie la ligne dans la feuille appelé Feuil2
Cel.EntireRow.Copy (ActiveWorkbook.Worksheets("Feuil2").Range("A" & CStr(NumLigne)))
End If
Next
End Sub
|
| By Renfield |
NOTE: Si tu ne travailles pas du tout avec Excel, ne prends pas en considération tout ce que je viens de dire... Mais en revanche sois BEAUCOUP plus précis pour exposer tes problèmes. ce n'est pas à nous de partir à la chasses aux informations pour t'aider.
@+: Ju£i€n
Pensez: 
Réponse acceptée