XL 2021 Si date dans cellule renvoi vers autre feuille .

[SHOY]

Lorsque j’inscris une date dans ma cellule « date de sortie », je souhaiterai que la ligne complète puisse être renvoyé en feuille 11 intitulée « sorties tout dispositif ».
Pouvez vous m’indiquer si cela et possible et quelle formule utilisée ?

 

[SHOY]

voici le fichier exemple
merci d'avance.

 

[sylvanu]

Bonjour Shoy, et bienvenu sur XLD,

Lorsqu’on rentre sur un fil, comme dans la vie de tous les jours, on est poli en disant « Bonjour ».

Commencez par lire notre charte ( Lien ), apparemment vous y apprendrez plein de choses.

Concernant votre problème, je pense que seule une approche par macro VBA pourra résoudre le problème, si vous acceptez le VBA ...
( et doit on supprimez la ligne déplacée ou simplement la copier )

 

[SHOY]

Bonjour Shoy, et bienvenu sur XLD,

Commencez par lire notre charte ( Lien ), apparemment vous y apprendrez plein de choses.

Concernant votre problème, je pense que seule une approche par macro VBA pourra résoudre le problème, si vous acceptez le VBA ...
( et doit on supprimez la ligne déplacée ou simplement la copier

 

[SHOY]

Je souhaiterai qu'elle puisse être copiée en page 11 et supprimée de la page initiale .
merci

 

[sylvanu]

Re bonjour Shoy,
Vous êtes impressionnant. Même en le suggérant vous ne comprenez pas :

Lorsqu’on rentre sur un fil, comme dans la vie de tous les jours, on est poli en disant « Bonjour ».

et en plus vous ne répondez pas aux questions :

si vous acceptez le VBA ...

Je vous souhaite une excellente journée.

 

[SHOY]

Veuillez m'excusez pour mon impolitesse. bonjour à vous. Effectivement j'accepte les VBA.
Bonne journée à vous !

 

[sylvanu]

Re,
Alors voici une PJ avec ce que j'ai compris.
macro mise dans ThisWorkbook pour être valide sur toutes les feuilles. A tester.

Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub        ' Si plusiurs cellules sélectionnées
If Sh.Name = "SORTIES TOUT DISPOSITIF AU" Then Exit Sub     ' ou feuille archive alors on sort
    If Not Intersect(Target, [I:I]) Is Nothing Then         ' Si la donnée est entrée en colonne I
        Application.ScreenUpdating = False
        If Sheets(Sh.Name).Cells(Target.Row, "A") = "" Then MsgBox "Nom prénom absent.": Exit Sub ' Si pas de Nom on sort
        With Sheets("SORTIES TOUT DISPOSITIF AU")
            DL = 1 + .Cells(.Cells.Rows.Count, "A").End(xlUp).Row   ' Ligne à écrire dans archive
            Application.EnableEvents = False                        ' On tranefrt la ligne et on la supprime.
            .Range("A" & DL & ":Z" & DL) = Sheets(Sh.Name).Range("A" & Target.Row & ":Z" & Target.Row).Value
             Sheets(Sh.Name).Rows(Target.Row & ":" & Target.Row).Delete Shift:=xlUp
        End With
    End If
Fin:
Application.EnableEvents = True
End Sub

 

[SHOY]

Merci beaucoup pour votre retour. Et sans VBA celà est-il possible aussi ?

 

[sylvanu]

Et sans VBA cela est-il possible aussi ?

Perso, je ne vois pas comment résoudre le problème par formule.
D'autant que par formule il n'est pas possible de supprimer une ligne.
Mais peut être qu'un autre membre trouvera une solution. 🙂

 

[SHOY]

merci
bonne journée à vous