XL 2021 Si date dans cellule renvoi vers autre feuille .

SHOY · 4 Octobre 2023

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 · 4 Octobre 2023

voici le fichier exemple
merci d'avance.

sylvanu · 4 Octobre 2023

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 · 4 Octobre 2023

sylvanu à dit:
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 · 4 Octobre 2023

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

sylvanu · 4 Octobre 2023

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 · 4 Octobre 2023

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

sylvanu · 4 Octobre 2023

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

VB:

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 · 4 Octobre 2023

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

sylvanu · 4 Octobre 2023

SHOY à dit:
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 · 4 Octobre 2023

merci
bonne journée à vous

XL 2021 Si date dans cellule renvoi vers autre feuille .

SHOY

XLDnaute Nouveau

SHOY

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

SHOY

XLDnaute Nouveau

SHOY

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

SHOY

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

SHOY

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

SHOY

XLDnaute Nouveau

Discussions similaires