Exporter ligne en état fini

[ascal44]

Bonjour à tous je voudrais pouvoir exporter les données dont les travaux sont fini dans une autre feuille.
Je joint un fichier pour plus de compréhension.

Merci pour votre aide

 

[cbea]

Re : Exporter ligne en état fini

Bonjour ascal44,

Voici une solution.
Sur la feuille Signalements, j'ai rajouté un bouton "Exporter".

 

[Pierrot93]

Re : Exporter ligne en état fini

Bonjour Ascal

essaye le code ci dessous :

Sub test()
Dim i As Integer
With Sheets("Signalements")
    For i = .Range("E65536").End(xlUp).Row To 15 Step -1
        If .Range("E" & i).Value = "F" Then
            .Range("A" & i & ":N" & i).Copy Sheets("FINI").Range("A65536").End(xlUp).Offset(1, 0)
            .Rows(i).Delete
        End If
    Next i
End With
End Sub

bon dimanche
@+

Edition : arff, bonjour cbea, trop rapide, désolé pour la collision...
2ème édition : code à placer dans un module standard.

 

[ascal44]

Re : Exporter ligne en état fini

Merci je pense que je vais réussir à me débrouiller grâce à vous

 

[ascal44]

Re : Exporter ligne en état fini

Bonsoir, en fait il faudrait modifier le code de cbea que je n'arrive pas à faire.
Je voudrais qu'à chaque clic du bouton exporter s'archive à la suite les travaux finis sans écraser ceux qui figuraient avant dans la feuille "Fini"

Ma lecture du code VBA est encore limitée.
Merci à vous

 

[cbea]

Re : Exporter ligne en état fini

Bonsoir ascal44,

Voici une nouvelle version.
J'ai mis une ligne de code en commentaire (voir Modif 14/04/2008).

 

[ascal44]

Re : Exporter ligne en état fini

Le problème c'est que dans la ligne 15 de la feuille " Fini " les données se suppriment à chaque action sur le bouton exporter !??

 

[cbea]

Re : Exporter ligne en état fini

Je n'avais pas vu l'anomalie. C'est corrigé.

 

[ascal44]

Re : Exporter ligne en état fini

Merci à vous , maintenant je pense pouvoir l'appliquer