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

Le
Manibiel
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #4446711
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
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


tissot.emmanuel
Le #4446701
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" news:
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


tissot.emmanuel
Le #4446691
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" %
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" news:
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






Manibiel
Le #4446351
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
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







Manibiel
Le #4446331
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" %
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" news:
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











Publicité
Poster une réponse
Anonyme