Déplacer une ligne d'une feuille à une autre lorsqu'une cellule est coché

Suzy

XLDnaute Nouveau
Bonjour ,

J'ai essayé puis essayé encore.... Je n'y arrive pas voue que je suis débutante avec la programmation dans Excel.

Je désire que lorsque dans la feuille suivi , dans la colonne abandonnées, une cellule est coché; que la ligne se déplace automatiquement dans la feuille abandonnée.

Donc exemple dans le fichier :
Dans la feuille Suivi, si un X se trouve dans la cellule V2 j'aimerais que la ligne 2 se déplace automatiquement dans la feuille abandonnée à la suite l'une de l'autre.

Voici le fichier !

Merci de votre précieuse aide.
 

Pièces jointes

  • Liste des traverses actives.xlsm
    112.9 KB · Affichages: 24

youky(BJ)

XLDnaute Barbatruc
Bonjour Suzy,
Bienvenu en VBA ca va venir c'est facile
voici tu mettras la ligne de titre dans l' onglet Abandon
Macro à mettre en dessus ou dessous de l'autre.
Bruno
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column <> 22 Then Exit Sub
If Target <> "" Then
lig = Feuil3.[A65000].End(3).Row + 1 'ligne ou écrire
lg = Target.Row 'lg renvoie N° ligne selectionnée
Feuil3.Range("A" & lig & ":V" & lig).Value = Range("A" & lg & ":V" & lg).Value
''''''pour effacer la ligne du X
'Application.EnableEvents = False 'neutralise évenement
'rows(lg).delete
'Application.EnableEvents = True 'remets
End If
End Sub

EDIT: je viens de raccourcir l'autre macro
Voici, supprime Cells.Interior.ColorIndex = xlNone après l'avoir fait tourné 1 fois

VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
[Tableau1].Interior.ColorIndex = xlNone
[Tableau1].Rows(Target.Row - 1).Interior.ColorIndex = 22
End Sub
 
Dernière édition:

youky(BJ)

XLDnaute Barbatruc
Peut être que ce que j'appel l'onglet Suivi pour moi c'est Feuil3 (voir en fenêtre vba projet)
Voici le fichier , attention j'ai supprimé des lignes de Suivi pour voir si ca marchait.
Bruno
 

Pièces jointes

  • Liste des traverses actives (1).xlsm
    106.9 KB · Affichages: 68

youky(BJ)

XLDnaute Barbatruc
Regarde si la ligne se mets en Abandonnées.
Sur ma macro comme je savais pas s'il fallait supprimer la ligne en même temps j'ai mis des apostrophes.
Enlève les apostrophes sur 3 lignes dans le code et la ligne sera supprimée
Bruno
 

Discussions similaires