XL 2021 Si date dans cellule renvoi vers autre feuille .

S

SHOY

XLDnaute Nouveau

• 4 Octobre 2023

• #2

voici le fichier exemple
merci d'avance.

 

Pièces jointes

• Septembre 2023.xlsx

  135.7 KB · Affichages: 2

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 4 Octobre 2023

• #3

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 ».

Cliquez pour agrandir...

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 )

 

Vote positif 0 Vote négatif

S

SHOY

XLDnaute Nouveau

• 4 Octobre 2023

• #4

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

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

S

SHOY

XLDnaute Nouveau

• 4 Octobre 2023

• #5

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 4 Octobre 2023

• #6

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 ».

Cliquez pour agrandir...

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

si vous acceptez le VBA ...

Cliquez pour agrandir...

Je vous souhaite une excellente journée.

 

Vote positif 0 Vote négatif

S

SHOY

XLDnaute Nouveau

• 4 Octobre 2023

• #7

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 4 Octobre 2023

• #8

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

 

Pièces jointes

• Septembre 2023.xlsm

  153.6 KB · Affichages: 1

Vote positif 0 Vote négatif

S

SHOY

XLDnaute Nouveau

• 4 Octobre 2023

• #9

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 4 Octobre 2023

• #10

SHOY à dit:

Et sans VBA cela est-il possible aussi ?

Cliquez pour agrandir...

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. 🙂

 

Vote positif 0 Vote négatif

S

SHOY

XLDnaute Nouveau

• 4 Octobre 2023

• #11

merci
bonne journée à vous

 

Vote positif 0 Vote négatif