XL 2021 copier ligne vers une feuille existante sous condition et supprimer ligne de la feuille d'origine

[NicolasKH]

bonjour tous le monde
je desirerais vous aide pour m'ais a trouver une solution a mon probleme

j'ai dans mon classeur une feuille (base de donnes), dans la colonne L j'ai l'etat de mon projet.
je desirerais que quand dans la colonne L est inscrit TERMINER que cette meme ligne complete sois copier vers une autre feuille et en meme temps supprimer la ligne de la feuille d'origine.

je n'arrive pas a trouver une solution meme en regardant les tuto sur youtube
pouviez vous m'eclairer s'il vous plait

 

[job75]

Bonjour NicolasKH, le forum,

La 1ère feuille est un TCD qui traite tous les projets de la feuille "Baee de Donnees", terminés ou en cours.

Il n'est donc pas cohérent de vouloir supprimer les projets terminés de cette 2ème feuille.

A+

 

[NicolasKH]

Bonjour NicolasKH, le forum,

La 1ère feuille est un TCD qui traite tous les projets de la feuille "Baee de Donnees", terminés ou en cours.

Il n'est donc pas cohérent de vouloir supprimer les projets terminés de cette 2ème feuille.

A+

cest parce que j'ai graphique de grantt qui ne fonctionne pas a cause de cela, mais le fichier est trop lourd pour que je puisse le mettre en piece joint

 

[job75]

Maintenant si vous voulez transférer les lignes dans la feuille "Terminé" voyez le fichier joint et cette macro dans le code de la feuille "Baee de Donnees" :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim dest As Range, n&, i&
Set dest = Sheets("Terminé").ListObjects(1).Range
n = IIf(dest(2, 12) = "", 2, dest.Rows.Count + 1)
Application.ScreenUpdating = False
Application.EnableEvents = False 'désactive les évènements
With ListObjects(1).Range
    For i = 2 To .Rows.Count
        If LCase(.Cells(i, 12)) = "terminé" Then
            dest.Rows(n) = .Rows(i).Value 'copie les valeurs
            .Rows(i).Delete xlUp 'supprime la ligne
            n = n + 1
            i = i - 1
        End If
    Next
End With
dest.Resize(n).Columns.AutoFit 'ajustement largeurs
ThisWorkbook.RefreshAll 'MAJ du TCD
Application.EnableEvents = True 'réactive les évènements
End Sub

Elle se déclenche quand on modifie ou valide une cellule quelconque.

Dans le TCD il n'y aura plus que les projets en cours.

A+

 

[Cousinhub]

Bonjour,
Juste une petite question.
Le diagramme de Gantt est-il élaboré à partir du TCD?
Si c'est le cas, en insérant un segment "Progression", à "Sélection multiple", trié par ordre décroissant :

Et en décochant juste "100%", est-ce que ne suffirait pas à résoudre le souci?

Bonne journée

 

[Cousinhub]

Hello Cousinhub,

Hello Job
Que penserais-tu d'une démarche inverse?
On garde la BdD, et on extrait uniquement les chantiers en cours?
(Quitte à avoir 2 tableaux, garder l'entièreté pour y effectuer d'autres calculs, et l'autre...)
Perso, j'aurais opté pour un truc dans le genre, mais à voir avec le demandeur...
Bonne apm

 

[job75]

Hello Cousinhub, j'ai refait mon message,

Plutôt que la macro précédente je préfère celle-ci, plus sûre :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim LO As ListObject, i&, n&
Set LO = Sheets("Terminé").ListObjects(1)
Application.ScreenUpdating = False
Application.EnableEvents = False 'désactive les évènements
With ListObjects(1).Range
    For i = 2 To .Rows.Count
        If LCase(.Cells(i, 12)) = "terminé" Then
            n = IIf(LO.DataBodyRange Is Nothing, 2, LO.Range.Rows.Count + 1)
            LO.Range.Rows(n) = .Rows(i).Value 'copie les valeurs
            .Rows(i).Delete xlUp 'supprime la ligne
            i = i - 1
        End If
    Next
End With
LO.Range.Columns.AutoFit 'ajustement largeurs
ThisWorkbook.RefreshAll 'MAJ du TCD
Application.EnableEvents = True 'réactive les évènements
End Sub

A+

 

[job75]

Hello Job
Que penserais-tu d'une démarche inverse?
On garde la BdD, et on extrait uniquement les chantiers en cours?

Tout à fait, on extrait l'un ou l'autre, c'est alors un simple filtrage.

 

[NicolasKH]

Maintenant si vous voulez transférer les lignes dans la feuille "Terminé" voyez le fichier joint et cette macro dans le code de la feuille "Baee de Donnees" :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim dest As Range, n&, i&
Set dest = Sheets("Terminé").ListObjects(1).Range
n = IIf(dest(2, 12) = "", 2, dest.Rows.Count + 1)
Application.ScreenUpdating = False
Application.EnableEvents = False 'désactive les évènements
With ListObjects(1).Range
    For i = 2 To .Rows.Count
        If LCase(.Cells(i, 12)) = "terminé" Then
            dest.Rows(n) = .Rows(i).Value 'copie les valeurs
            .Rows(i).Delete xlUp 'supprime la ligne
            n = n + 1
            i = i - 1
        End If
    Next
End With
dest.Resize(n).Columns.AutoFit 'ajustement largeurs
ThisWorkbook.RefreshAll 'MAJ du TCD
Application.EnableEvents = True 'réactive les évènements
End Sub

Elle se déclenche quand on modifie ou valide une cellule quelconque.

Dans le TCD il n'y aura plus que les projets en cours.

A+

Merci a vous Job75 et Cousinhub
le code que vous m'aviez donner fonctionne tres bien comme je le voulais,

pour vos question en suspend, je supprime les lignes qui sont a 100% c'est parce que cela est lier a une tresorerie que ca fait un peut le bordel si c'est une autre personne que moi qui utilise le fichier, c'est juste pour cette raison que je supprime les lignes a 100%, dans mon classeur j'ai toute la finance que les ouvrier qui demande d'avoir des accompte, les societes qui me verse des accompte donc c'est un bordel, mais si vous voulez mon fichier complet je peut vous l'envoyer en PV pour que vous puissiez le decortiquer

 

[NicolasKH]

Bonjour,
Juste une petite question.
Le diagramme de Gantt est-il élaboré à partir du TCD?
Si c'est le cas, en insérant un segment "Progression", à "Sélection multiple", trié par ordre décroissant :

Regarde la pièce jointe 1178136

Et en décochant juste "100%", est-ce que ne suffirait pas à résoudre le souci?

Regarde la pièce jointe 1178135
Bonne journée

bonjour Cousinhub merci pour ta reponse
en fait je desirerais dans les colonnes de J a AJ que quans mon le projet est en cours les date de jour achever sois colorer en vert et en rouge les jours restant, cela me permet de voir un un coup oeil quel sont les projets qui sont en retard de livraison afin d'effectuer les facture aux societe en temps