Deplacer une ligne entiere d'une feuil1 vers une feuil2 d'un classeur si dossier clo

[sevy1]

BONJOUR FORUM
J'ai un classeur qui a deux feuilles BASE ET SOLDE. Dans la feuille BASE figure tous les dossiers, je souhaiterais qu'un dossier soldé soit automatiquement extrait de la feuille base pour s'inscrire ou s'afficher dans la Feuille SOLDE (ligne entière).
Un dossier est dit soldé lorsqu'il a une date de livraison.
je ne sais pas si je suis explicite
merci d'avance pour votre aide quelque soit la solution (macro ou autre) je suis preneur.

 

[Guest]

Re : Deplacer une ligne entiere d'une feuil1 vers une feuil2 d'un classeur si dossier

Bonjour,

Dans le fichier joint si tu mets une date en colonne G la cellule de la colonne H est marquée "SOLDE" puis la ligne est transférée dans la feuille Solde

P.S. en sachant que 1 peut être reconnu comme une date (01/01/1900) puisqu'excel traite les dates comme des numéros de série commençant à 1

A+

 

[sevy1]

Re : Deplacer une ligne entiere d'une feuil1 vers une feuil2 d'un classeur si dossier

Bonjour
Merci pour la réponse ça marche. Mon soucis actuellement est que le fichier est lourd il mouline après chaque validation alors je voudrais lancer le transfert des données par un bouton seulement le code ne marche pas même après avoir changé l’événement Worksheet_Change(ByVal Target As Range) en CommandButton1_Click()

 

[Guest]

Re : Deplacer une ligne entiere d'une feuil1 vers une feuil2 d'un classeur si dossier

Bonjour,

Private Sub CommandButton1_Click()
    Dim Ligne As Long
    Application.EnableEvents = False
    Application.Calculation = xlCalculationManual
    For Ligne = Range(Cells(2, 7), Cells(Rows.Count, 7).End(xlUp)).Row To 2 Step -1
        If IsDate(Cells(Ligne, 7)) Then
            Cells(Ligne, 8) = "SOLDE"
            With Range(Cells(Ligne, 1), Cells(Ligne, 8))
                Sheets("SOLDE").Cells(Rows.Count, 1).End(xlUp)(2).Resize(, 8).Value = .Value
                .Delete xlShiftUp
            End With
        End If
    Next
    Application.Calculation = xlCalculationAutomatic
    Application.EnableEvents = True
End Sub

A+

 

[sevy1]

Re : Deplacer une ligne entiere d'une feuil1 vers une feuil2 d'un classeur si dossier

Bonjour
Je tiens à m'excuser pour la réponse tardive je n'est pas pu me connecter tout le weekend, j'ai essayé votre deuxième proposition je l'ai liée à un bouton mai quand je clic sur le bouton rien ne s'effectue.

 

[Guest]

Re : Deplacer une ligne entiere d'une feuil1 vers une feuil2 d'un classeur si dossier

Bonjour,

voir dans fichier joint.

A+

 

[sevy1]

Re : Deplacer une ligne entiere d'une feuil1 vers une feuil2 d'un classeur si dossier

Bonjour
Merci ça marche