D'une feuille à une autre depuis une liste déroulante

Question

Tout d'abord je m'excuse si le vocabulaire que j'emploie n'est pas le bon, mais mon niveau excel est vraiment limité.
J'ai créer un tableau avec plusieurs feuilles (Actions/Infos/Fait). J'aimerais que sur la feuille 1 Actions, si la colonne G (réalisée le) est à "Oui" (selon une liste déroulante), la ligne passe de la feuille Actions à la feuille Fait.

ThauThème · Accepted Answer

Bonjour Koenig et bienvenu, bonjour le forum,

En pièce jointe ton fichier modifié avec l'événementielle Change ci-dessous :

Private Sub Worksheet_Change(ByVal Target As Range) 'au changement dans l'onglet
Dim OF As Worksheet 'déclare la variable OF (Onglet Fait)
Dim PLV As Integer 'déclare la variable PLV (Première Ligne Vide)

If Target.Column <> 7 Then Exit Sub 'si le changement a lieu ailleurs que dans la colonne 7, sort de la procédure
If Target.Row < 3 Then Exit Sub 'si le changement a lieu dans les ligne 1 ou 2, sort de la procédure
Set OF = Worksheets("Fait") 'définit l'onglet OF
PLV = OF.Cells(Application.Rows.Count, "A").End(xlUp).Row + 1 'définit la première ligne vide PLV de la colonne A de l'onglet OF
If Target.Value = "Oui" Then 'condition : si la cellule modifiée est égale à "Oui"
    Cells(Target.Row, 1).Resize(1, 7).Copy OF.Cells(PLV, 1) 'copie la ligne de la cellule modifiée et la colle dans la cellule ligne PLV colonne 1 de l'onglet OF
    Rows(Target.Row).Delete 'supprime la ligne de la cellule modifiée (dans l'onglet Actions)
End If 'fin de la condition
End Sub

6koenig-ep-v01.xlsm (32.24 Ko)