Ligne dans onglet transférée dans autre onglet si vrai est chois i

Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 And Target.Count = 1 Then
état = Target
If état <> ActiveSheet.Name Then
Target.Offset(0, -4).Resize(1, 5).Copy Sheets(état).
[A65000].End(xlUp).Offset(1, 0)
Target.Offset(0, -4).Resize(1, 5).Delete shift:=xlUp
End If
End If
End Sub

http://cjoint.com/?epfymprcXb

Cordialement JB
On 15 avr, 03:14, Manibiel <Manib...@discussions.microsoft.com> wrote:

Bonsoir,

J'aimerais savoir si quelqu'un peut me dire comment faire :

J'ai un classeur avec plusieurs onglets :

Onglet 1 = Dossiers actifs
Onglet 2 = dossiers réglés
Onglet 3 = dossiers reportés

Colonne A = No dossier
Colonne B = Nom du dossier
Colonne C = Directeur responsable (liste de validation)
Colonne D = Date de suivi
Colonne E = État du dossier (liste de validation = actif - régl é - reporté -
fermé)

J'aimerais savoir s'il est possible quand dans la colonne E, dans la list e,
l'état du dossier "Réglé" est sélectionné, que cette ligne se t ransfère
automatiquement dans l'onglet "dossiers réglés" ou / quand l'état " reporté"
est sélectionné, cette ligne se transfère directement dans l'onglet "
dossiers reportés"

Merci d'avance pour votre précieuse collaboration
--
Manibiel

Bonjour,

Copie le code suivant dans le module de ta feuille "Dossiers actifs" (Clic
droit sur l'onglet,Visualiser le code). Il devrait fonctionner sous réserve
qu'il n'y ait aucune données sous tes différentes tables.

Cordialement,

Manu/

Private Sub Worksheet_Change(ByVal Target As Range)
Dim NumLigne As Integer, xRange As Range, xSheet As Worksheet
If Not Intersect(Target, Range("E2:E8")) Is Nothing Then
If Target.Value = "Réglé" Or Target.Value = "Reporté" Then
NumLigne = Target.Row
Set xRange = Range(Cells(NumLigne, 1), Cells(NumLigne, 5))
If Target.Value = "Réglé" Then
Set xSheet = Worksheets("Dossiers réglés")
Else
Set xSheet = Worksheets("Dossiers reportés")
End If
xRange.Copy xSheet.Cells(65536, 1).End(xlUp).Offset(1, 0)
If MsgBox("Supprimer la ligne transférée de la liste des
dossiers actifs ?", vbYesNo + vbQuestion) = vbYes Then
Application.EnableEvents = False
xRange.EntireRow.Delete
Application.EnableEvents = True
End If
End If
End If
End Sub




"Manibiel" <Manibiel@discussions.microsoft.com> a écrit dans le message de
news: 19AA8B4D-780F-4023-9131-E729B6C72A0D@microsoft.com...

Bonsoir,

J'aimerais savoir si quelqu'un peut me dire comment faire :

J'ai un classeur avec plusieurs onglets :

Onglet 1 = Dossiers actifs
Onglet 2 = dossiers réglés
Onglet 3 = dossiers reportés

Colonne A = No dossier
Colonne B = Nom du dossier
Colonne C = Directeur responsable (liste de validation)
Colonne D = Date de suivi
Colonne E = État du dossier (liste de validation = actif - réglé -
reporté -
fermé)

J'aimerais savoir s'il est possible quand dans la colonne E, dans la
liste,
l'état du dossier "Réglé" est sélectionné, que cette ligne se transfère
automatiquement dans l'onglet "dossiers réglés" ou / quand l'état "
reporté"
est sélectionné, cette ligne se transfère directement dans l'onglet "
dossiers reportés"

Merci d'avance pour votre précieuse collaboration
--
Manibiel

Oup Re-Bonjour,

Je m'auto-corrige: Ligne 3

If Not Intersect(Target, Range("E:E")) Is Nothing And Target.Count = 1 Then

Cordialement,

Manu/

(Fatigué)

"tissot.emmanuel" <tissot.emmanuel@free.fr> a écrit dans le message de news:
%23eseE6wfHHA.1008@TK2MSFTNGP05.phx.gbl...

Bonjour,

Copie le code suivant dans le module de ta feuille "Dossiers actifs" (Clic
droit sur l'onglet,Visualiser le code). Il devrait fonctionner sous
réserve qu'il n'y ait aucune données sous tes différentes tables.

Cordialement,

Manu/

Private Sub Worksheet_Change(ByVal Target As Range)
Dim NumLigne As Integer, xRange As Range, xSheet As Worksheet
If Not Intersect(Target, Range("E2:E8")) Is Nothing Then
If Target.Value = "Réglé" Or Target.Value = "Reporté" Then
NumLigne = Target.Row
Set xRange = Range(Cells(NumLigne, 1), Cells(NumLigne, 5))
If Target.Value = "Réglé" Then
Set xSheet = Worksheets("Dossiers réglés")
Else
Set xSheet = Worksheets("Dossiers reportés")
End If
xRange.Copy xSheet.Cells(65536, 1).End(xlUp).Offset(1, 0)
If MsgBox("Supprimer la ligne transférée de la liste des
dossiers actifs ?", vbYesNo + vbQuestion) = vbYes Then
Application.EnableEvents = False
xRange.EntireRow.Delete
Application.EnableEvents = True
End If
End If
End If
End Sub




"Manibiel" <Manibiel@discussions.microsoft.com> a écrit dans le message de
news: 19AA8B4D-780F-4023-9131-E729B6C72A0D@microsoft.com...

Bonsoir,

J'aimerais savoir si quelqu'un peut me dire comment faire :

J'ai un classeur avec plusieurs onglets :

Onglet 1 = Dossiers actifs
Onglet 2 = dossiers réglés
Onglet 3 = dossiers reportés

Colonne A = No dossier
Colonne B = Nom du dossier
Colonne C = Directeur responsable (liste de validation)
Colonne D = Date de suivi
Colonne E = État du dossier (liste de validation = actif - réglé -
reporté -
fermé)

J'aimerais savoir s'il est possible quand dans la colonne E, dans la
liste,
l'état du dossier "Réglé" est sélectionné, que cette ligne se transfère
automatiquement dans l'onglet "dossiers réglés" ou / quand l'état "
reporté"
est sélectionné, cette ligne se transfère directement dans l'onglet "
dossiers reportés"

Merci d'avance pour votre précieuse collaboration
--
Manibiel

Merci beaucoup pour ces réponses. Ici il est présentement 7AM, je vais faire
l'expérience ce AM et je reviens avec les résultats.

Merci à ce Forum. Je ne le connaissais pas, mais j'ai beaucoup de réponses
depuis une semaine même si je ne pose pas de question et que je le consulte
et en plus j'ai toujours des réponses rapides quand je pose une question
alors que je ne trouve pas de solution.

Merci beaucoup
--
Manibiel

Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 And Target.Count = 1 Then
état = Target
If état <> ActiveSheet.Name Then
Target.Offset(0, -4).Resize(1, 5).Copy Sheets(état).
[A65000].End(xlUp).Offset(1, 0)
Target.Offset(0, -4).Resize(1, 5).Delete shift:=xlUp
End If
End If
End Sub

http://cjoint.com/?epfymprcXb

Cordialement JB
On 15 avr, 03:14, Manibiel <Manib...@discussions.microsoft.com> wrote:

Bonsoir,

J'aimerais savoir si quelqu'un peut me dire comment faire :

J'ai un classeur avec plusieurs onglets :

Onglet 1 = Dossiers actifs
Onglet 2 = dossiers réglés
Onglet 3 = dossiers reportés

Colonne A = No dossier
Colonne B = Nom du dossier
Colonne C = Directeur responsable (liste de validation)
Colonne D = Date de suivi
Colonne E = État du dossier (liste de validation = actif - réglé - reporté -
fermé)

J'aimerais savoir s'il est possible quand dans la colonne E, dans la liste,
l'état du dossier "Réglé" est sélectionné, que cette ligne se transfère
automatiquement dans l'onglet "dossiers réglés" ou / quand l'état " reporté"
est sélectionné, cette ligne se transfère directement dans l'onglet "
dossiers reportés"

Merci d'avance pour votre précieuse collaboration
--
Manibiel

Merci beaucoup tossot.emmanuel,

Je vais tenter les deux réponses et je vous reviendrai plus tard ce jour.
Il est 7AM en ce moment.

Cordialement
--
Manibiel

Oup Re-Bonjour,

Je m'auto-corrige: Ligne 3

If Not Intersect(Target, Range("E:E")) Is Nothing And Target.Count = 1 Then

Cordialement,

Manu/

(Fatigué)

"tissot.emmanuel" <tissot.emmanuel@free.fr> a écrit dans le message de news:
%23eseE6wfHHA.1008@TK2MSFTNGP05.phx.gbl...

Bonjour,

Copie le code suivant dans le module de ta feuille "Dossiers actifs" (Clic
droit sur l'onglet,Visualiser le code). Il devrait fonctionner sous
réserve qu'il n'y ait aucune données sous tes différentes tables.

Cordialement,

Manu/

Private Sub Worksheet_Change(ByVal Target As Range)
Dim NumLigne As Integer, xRange As Range, xSheet As Worksheet
If Not Intersect(Target, Range("E2:E8")) Is Nothing Then
If Target.Value = "Réglé" Or Target.Value = "Reporté" Then
NumLigne = Target.Row
Set xRange = Range(Cells(NumLigne, 1), Cells(NumLigne, 5))
If Target.Value = "Réglé" Then
Set xSheet = Worksheets("Dossiers réglés")
Else
Set xSheet = Worksheets("Dossiers reportés")
End If
xRange.Copy xSheet.Cells(65536, 1).End(xlUp).Offset(1, 0)
If MsgBox("Supprimer la ligne transférée de la liste des
dossiers actifs ?", vbYesNo + vbQuestion) = vbYes Then
Application.EnableEvents = False
xRange.EntireRow.Delete
Application.EnableEvents = True
End If
End If
End If
End Sub




"Manibiel" <Manibiel@discussions.microsoft.com> a écrit dans le message de
news: 19AA8B4D-780F-4023-9131-E729B6C72A0D@microsoft.com...

Bonsoir,

J'aimerais savoir si quelqu'un peut me dire comment faire :

J'ai un classeur avec plusieurs onglets :

Onglet 1 = Dossiers actifs
Onglet 2 = dossiers réglés
Onglet 3 = dossiers reportés

Colonne A = No dossier
Colonne B = Nom du dossier
Colonne C = Directeur responsable (liste de validation)
Colonne D = Date de suivi
Colonne E = État du dossier (liste de validation = actif - réglé -
reporté -
fermé)

J'aimerais savoir s'il est possible quand dans la colonne E, dans la
liste,
l'état du dossier "Réglé" est sélectionné, que cette ligne se transfère
automatiquement dans l'onglet "dossiers réglés" ou / quand l'état "
reporté"
est sélectionné, cette ligne se transfère directement dans l'onglet "
dossiers reportés"

Merci d'avance pour votre précieuse collaboration
--
Manibiel