OVH Cloud OVH Cloud

couper coller automatique

9 réponses
Avatar
fred_chevilly
Bonjour,


Je gère des tâches dans un classeur.
La première feuille contient toutes les tâches en cours, la deuxième les
tâches closes.
Le statut de la tâche est présent dans une colonne. J'ai actuellement les
statuts : "A traiter", "en cours" et "traité"
Je cherche une ruse pour qu'une tâche dès que j'ai saisi le statut "traité"
soit automatiquement coupée de la feuille des encours et collée
automatiquement dans la feuille des "traité".
Est-ce que vous connaissez un moyen ?

Merci.


frédérick

9 réponses

Avatar
sabatier
bonjour frédérick
les cracks ne feront qu'une bouchée de ton problème et te donneront la ruse
que tu cherches...à condition que tu sois un peu plus explicite sur la
construction de ta feuille : tes statuts sont écrits où? en tête de
colonnes? de lignes? idem pour tes tâches : elles occupent quel espace? une
cellule? une ligne?
de toutes façons, nous avons des moyens pour te faire parler....
jps

"fred_chevilly" a écrit dans le message de
news:
Bonjour,


Je gère des tâches dans un classeur.
La première feuille contient toutes les tâches en cours, la deuxième les
tâches closes.
Le statut de la tâche est présent dans une colonne. J'ai actuellement les
statuts : "A traiter", "en cours" et "traité"
Je cherche une ruse pour qu'une tâche dès que j'ai saisi le statut
"traité"

soit automatiquement coupée de la feuille des encours et collée
automatiquement dans la feuille des "traité".
Est-ce que vous connaissez un moyen ?

Merci.


frédérick




Avatar
LeSteph
Ach! Zo!
Bonne nuit........
leSteph

"sabatier" a écrit dans le message
de news:
bonjour frédérick
les cracks ne feront qu'une bouchée de ton problème et te donneront la
ruse

que tu cherches...à condition que tu sois un peu plus explicite sur la
construction de ta feuille : tes statuts sont écrits où? en tête de
colonnes? de lignes? idem pour tes tâches : elles occupent quel espace?
une

cellule? une ligne?
de toutes façons, nous avons des moyens pour te faire parler....
jps

"fred_chevilly" a écrit dans le message de
news:
Bonjour,


Je gère des tâches dans un classeur.
La première feuille contient toutes les tâches en cours, la deuxième les
tâches closes.
Le statut de la tâche est présent dans une colonne. J'ai actuellement
les


statuts : "A traiter", "en cours" et "traité"
Je cherche une ruse pour qu'une tâche dès que j'ai saisi le statut
"traité"

soit automatiquement coupée de la feuille des encours et collée
automatiquement dans la feuille des "traité".
Est-ce que vous connaissez un moyen ?

Merci.


frédérick








Avatar
fred_chevilly
bonsoir,

Ok, en me relisant en effet je me disais qu'il aurait fallu détailler...
Brièvement :
Feuille 1 : tâche en cours
colonne A : libellé de la tâche
colonne B : numéro de la tâche
colonne C : description de la tâche
colonne C : suivi de la tâche
colonne D : statut
Une ligne = une tâche

Feuille 2 : tâche closes
colonne A : libellé de la tâche
colonne B : numéro de la tâche
colonne C : description de la tâche
colonne C : suivi de la tâche
colonne D : statut (que je supprimerai peut-être du coup...)
Une ligne = une tâche

J'en profite pour rajouter un détail : j'avais géré le couper coller avec
une macro mais la macro laissait toujours une ligne à la place de la tâche
coupée :
exemple : Ligne 1 = tâche 1, L2=tâche 2, L3=tâche 3...après l'executio de
la macro : L1=Tâche 1, L2 vide; L3 = tâche 3...grrr

Merci...


Fred


"sabatier" a écrit dans le message
de news:
bonjour frédérick
les cracks ne feront qu'une bouchée de ton problème et te donneront la
ruse

que tu cherches...à condition que tu sois un peu plus explicite sur la
construction de ta feuille : tes statuts sont écrits où? en tête de
colonnes? de lignes? idem pour tes tâches : elles occupent quel espace?
une

cellule? une ligne?
de toutes façons, nous avons des moyens pour te faire parler....
jps

"fred_chevilly" a écrit dans le message de
news:
Bonjour,


Je gère des tâches dans un classeur.
La première feuille contient toutes les tâches en cours, la deuxième les
tâches closes.
Le statut de la tâche est présent dans une colonne. J'ai actuellement
les


statuts : "A traiter", "en cours" et "traité"
Je cherche une ruse pour qu'une tâche dès que j'ai saisi le statut
"traité"

soit automatiquement coupée de la feuille des encours et collée
automatiquement dans la feuille des "traité".
Est-ce que vous connaissez un moyen ?

Merci.


frédérick








Avatar
Philippe.R
Bonsoir Fred,
Si tant est que j'ai compris, dans un module standard, les noms des feuilles étant à adapter :

Sub bouge_traite()
' MPFE le 13/09/2004 par Philippe Raulet
Dim laLig As Long
laLig = ActiveCell.Row
If ActiveCell.Value = "traité" Then
Rows(laLig).EntireRow.Cut
Sheets("Feuil3").Select 'feuille de destination
Rows([a65536].End(xlUp).Row + 1).Select
Selection.Insert Shift:=xlDown
'ligne suivante à décommenter pour supprimer la valeur en Ex
'Cells([a65536].End(xlUp).Row, 5).Clear
Sheets("Feuil2").Select 'feuille source
End If
End Sub

dans le module de la feuille dont tu veux exporter les lignes:

Private Sub Worksheet_Change(ByVal Target As Range)
bouge_traite
End Sub
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"fred_chevilly" a écrit dans le message de
news:
bonsoir,

Ok, en me relisant en effet je me disais qu'il aurait fallu détailler...
Brièvement :
Feuille 1 : tâche en cours
colonne A : libellé de la tâche
colonne B : numéro de la tâche
colonne C : description de la tâche
colonne C : suivi de la tâche
colonne D : statut
Une ligne = une tâche

Feuille 2 : tâche closes
colonne A : libellé de la tâche
colonne B : numéro de la tâche
colonne C : description de la tâche
colonne C : suivi de la tâche
colonne D : statut (que je supprimerai peut-être du coup...)
Une ligne = une tâche

J'en profite pour rajouter un détail : j'avais géré le couper coller avec
une macro mais la macro laissait toujours une ligne à la place de la tâche
coupée :
exemple : Ligne 1 = tâche 1, L2=tâche 2, L3=tâche 3...après l'executio de
la macro : L1=Tâche 1, L2 vide; L3 = tâche 3...grrr

Merci...


Fred


"sabatier" a écrit dans le message
de news:
bonjour frédérick
les cracks ne feront qu'une bouchée de ton problème et te donneront la
ruse

que tu cherches...à condition que tu sois un peu plus explicite sur la
construction de ta feuille : tes statuts sont écrits où? en tête de
colonnes? de lignes? idem pour tes tâches : elles occupent quel espace?
une

cellule? une ligne?
de toutes façons, nous avons des moyens pour te faire parler....
jps

"fred_chevilly" a écrit dans le message de
news:
Bonjour,


Je gère des tâches dans un classeur.
La première feuille contient toutes les tâches en cours, la deuxième les
tâches closes.
Le statut de la tâche est présent dans une colonne. J'ai actuellement
les


statuts : "A traiter", "en cours" et "traité"
Je cherche une ruse pour qu'une tâche dès que j'ai saisi le statut
"traité"

soit automatiquement coupée de la feuille des encours et collée
automatiquement dans la feuille des "traité".
Est-ce que vous connaissez un moyen ?

Merci.


frédérick












Avatar
fred_chevilly
Bonjour,

Merci beaucoup.

Je n'ai pas trop compris ce qui s'est passé... et surtout je m'initie
lentement :)

j'ai bien rajouté en module 1, les premières lignes. Puis sur la 1ère
feuille les lignes en adaptant le nom des feuilles.

Si j'ai bien compris les lignes, dès que je complète la cellule active par
"traité", il coupe la ligne...?

Quelques lignes ont bien respecté la règle mais depuis rien à faire, les
lignes ne bougent plus.

Que veut dire le [a65536] ?

Et pourquoi as-tu mis la ligne 'Cells([a65536... en commentaire ?

Merci...





"Philippe.R" a écrit dans le message de news:
##
Bonsoir Fred,
Si tant est que j'ai compris, dans un module standard, les noms des
feuilles étant à adapter :


Sub bouge_traite()
' MPFE le 13/09/2004 par Philippe Raulet
Dim laLig As Long
laLig = ActiveCell.Row
If ActiveCell.Value = "traité" Then
Rows(laLig).EntireRow.Cut
Sheets("Feuil3").Select 'feuille de destination
Rows([a65536].End(xlUp).Row + 1).Select
Selection.Insert Shift:=xlDown
'ligne suivante à décommenter pour supprimer la valeur en Ex
'Cells([a65536].End(xlUp).Row, 5).Clear
Sheets("Feuil2").Select 'feuille source
End If
End Sub

dans le module de la feuille dont tu veux exporter les lignes:

Private Sub Worksheet_Change(ByVal Target As Range)
bouge_traite
End Sub
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"fred_chevilly" a écrit dans le message de
news:
bonsoir,

Ok, en me relisant en effet je me disais qu'il aurait fallu détailler...
Brièvement :
Feuille 1 : tâche en cours
colonne A : libellé de la tâche
colonne B : numéro de la tâche
colonne C : description de la tâche
colonne C : suivi de la tâche
colonne D : statut
Une ligne = une tâche

Feuille 2 : tâche closes
colonne A : libellé de la tâche
colonne B : numéro de la tâche
colonne C : description de la tâche
colonne C : suivi de la tâche
colonne D : statut (que je supprimerai peut-être du coup...)
Une ligne = une tâche

J'en profite pour rajouter un détail : j'avais géré le couper coller
avec


une macro mais la macro laissait toujours une ligne à la place de la
tâche


coupée :
exemple : Ligne 1 = tâche 1, L2=tâche 2, L3=tâche 3...après l'executio
de


la macro : L1=Tâche 1, L2 vide; L3 = tâche 3...grrr

Merci...


Fred


"sabatier" a écrit dans le
message


de news:
bonjour frédérick
les cracks ne feront qu'une bouchée de ton problème et te donneront la
ruse

que tu cherches...à condition que tu sois un peu plus explicite sur la
construction de ta feuille : tes statuts sont écrits où? en tête de
colonnes? de lignes? idem pour tes tâches : elles occupent quel
espace?



une
cellule? une ligne?
de toutes façons, nous avons des moyens pour te faire parler....
jps

"fred_chevilly" a écrit dans le message de
news:
Bonjour,


Je gère des tâches dans un classeur.
La première feuille contient toutes les tâches en cours, la deuxième
les




tâches closes.
Le statut de la tâche est présent dans une colonne. J'ai
actuellement




les
statuts : "A traiter", "en cours" et "traité"
Je cherche une ruse pour qu'une tâche dès que j'ai saisi le statut
"traité"

soit automatiquement coupée de la feuille des encours et collée
automatiquement dans la feuille des "traité".
Est-ce que vous connaissez un moyen ?

Merci.


frédérick
















Avatar
sabatier
je m'immisce partiellement, fred
le [a65536] c 'est comme Range("A65536")...disons pour faire court que seuls
les cracks (et philippe R n'échappe pas à ce nombre) utilisent ce concentré
d'un légume qui me donne de l'hyperacidité gastrique...
quant à la ligne à décommenter, elle te permet d'annuler la valeur "traité"
qui s'est copiée dans ta deuxième feuille et que peut-être tu souhaites ne
plus vouloir ; si ec n'est pas le cas, tu zigouilles...
HTH
jps

"fred_chevilly" a écrit dans le message de
news:
Bonjour,

Merci beaucoup.

Je n'ai pas trop compris ce qui s'est passé... et surtout je m'initie
lentement :)

j'ai bien rajouté en module 1, les premières lignes. Puis sur la 1ère
feuille les lignes en adaptant le nom des feuilles.

Si j'ai bien compris les lignes, dès que je complète la cellule active par
"traité", il coupe la ligne...?

Quelques lignes ont bien respecté la règle mais depuis rien à faire, les
lignes ne bougent plus.

Que veut dire le [a65536] ?

Et pourquoi as-tu mis la ligne 'Cells([a65536... en commentaire ?

Merci...





"Philippe.R" a écrit dans le message de news:
##
Bonsoir Fred,
Si tant est que j'ai compris, dans un module standard, les noms des
feuilles étant à adapter :


Sub bouge_traite()
' MPFE le 13/09/2004 par Philippe Raulet
Dim laLig As Long
laLig = ActiveCell.Row
If ActiveCell.Value = "traité" Then
Rows(laLig).EntireRow.Cut
Sheets("Feuil3").Select 'feuille de destination
Rows([a65536].End(xlUp).Row + 1).Select
Selection.Insert Shift:=xlDown
'ligne suivante à décommenter pour supprimer la valeur en Ex
'Cells([a65536].End(xlUp).Row, 5).Clear
Sheets("Feuil2").Select 'feuille source
End If
End Sub

dans le module de la feuille dont tu veux exporter les lignes:

Private Sub Worksheet_Change(ByVal Target As Range)
bouge_traite
End Sub
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"fred_chevilly" a écrit dans le message de
news:
bonsoir,

Ok, en me relisant en effet je me disais qu'il aurait fallu
détailler...



Brièvement :
Feuille 1 : tâche en cours
colonne A : libellé de la tâche
colonne B : numéro de la tâche
colonne C : description de la tâche
colonne C : suivi de la tâche
colonne D : statut
Une ligne = une tâche

Feuille 2 : tâche closes
colonne A : libellé de la tâche
colonne B : numéro de la tâche
colonne C : description de la tâche
colonne C : suivi de la tâche
colonne D : statut (que je supprimerai peut-être du coup...)
Une ligne = une tâche

J'en profite pour rajouter un détail : j'avais géré le couper coller
avec


une macro mais la macro laissait toujours une ligne à la place de la
tâche


coupée :
exemple : Ligne 1 = tâche 1, L2=tâche 2, L3=tâche 3...après
l'executio



de
la macro : L1=Tâche 1, L2 vide; L3 = tâche 3...grrr

Merci...


Fred


"sabatier" a écrit dans le
message


de news:
bonjour frédérick
les cracks ne feront qu'une bouchée de ton problème et te donneront
la




ruse
que tu cherches...à condition que tu sois un peu plus explicite sur
la




construction de ta feuille : tes statuts sont écrits où? en tête de
colonnes? de lignes? idem pour tes tâches : elles occupent quel
espace?



une
cellule? une ligne?
de toutes façons, nous avons des moyens pour te faire parler....
jps

"fred_chevilly" a écrit dans le message de
news:
Bonjour,


Je gère des tâches dans un classeur.
La première feuille contient toutes les tâches en cours, la
deuxième





les
tâches closes.
Le statut de la tâche est présent dans une colonne. J'ai
actuellement




les
statuts : "A traiter", "en cours" et "traité"
Je cherche une ruse pour qu'une tâche dès que j'ai saisi le statut
"traité"

soit automatiquement coupée de la feuille des encours et collée
automatiquement dans la feuille des "traité".
Est-ce que vous connaissez un moyen ?

Merci.


frédérick




















Avatar
Philippe.R
Bonjour Fred,
D'abord merci à Jean Paul d'avoir suivi.
Le but du code est bien de couper la ligne complétée pour la transférer sur l'autre feuille ; pour
faciliter l'exécution, il est préférable de décocher "Déplacer la sélection" dans l'onglet modification
du menu Outils / Options, de manière à ce que la cellule modifiée reste sélectionnée après validation.
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.

"fred_chevilly" a écrit dans le message de
news:
Bonjour,

Merci beaucoup.

Je n'ai pas trop compris ce qui s'est passé... et surtout je m'initie
lentement :)

j'ai bien rajouté en module 1, les premières lignes. Puis sur la 1ère
feuille les lignes en adaptant le nom des feuilles.

Si j'ai bien compris les lignes, dès que je complète la cellule active par
"traité", il coupe la ligne...?

Quelques lignes ont bien respecté la règle mais depuis rien à faire, les
lignes ne bougent plus.

Que veut dire le [a65536] ?

Et pourquoi as-tu mis la ligne 'Cells([a65536... en commentaire ?

Merci...





"Philippe.R" a écrit dans le message de news:
##
Bonsoir Fred,
Si tant est que j'ai compris, dans un module standard, les noms des
feuilles étant à adapter :


Sub bouge_traite()
' MPFE le 13/09/2004 par Philippe Raulet
Dim laLig As Long
laLig = ActiveCell.Row
If ActiveCell.Value = "traité" Then
Rows(laLig).EntireRow.Cut
Sheets("Feuil3").Select 'feuille de destination
Rows([a65536].End(xlUp).Row + 1).Select
Selection.Insert Shift:=xlDown
'ligne suivante à décommenter pour supprimer la valeur en Ex
'Cells([a65536].End(xlUp).Row, 5).Clear
Sheets("Feuil2").Select 'feuille source
End If
End Sub

dans le module de la feuille dont tu veux exporter les lignes:

Private Sub Worksheet_Change(ByVal Target As Range)
bouge_traite
End Sub
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"fred_chevilly" a écrit dans le message de
news:
bonsoir,

Ok, en me relisant en effet je me disais qu'il aurait fallu détailler...
Brièvement :
Feuille 1 : tâche en cours
colonne A : libellé de la tâche
colonne B : numéro de la tâche
colonne C : description de la tâche
colonne C : suivi de la tâche
colonne D : statut
Une ligne = une tâche

Feuille 2 : tâche closes
colonne A : libellé de la tâche
colonne B : numéro de la tâche
colonne C : description de la tâche
colonne C : suivi de la tâche
colonne D : statut (que je supprimerai peut-être du coup...)
Une ligne = une tâche

J'en profite pour rajouter un détail : j'avais géré le couper coller
avec


une macro mais la macro laissait toujours une ligne à la place de la
tâche


coupée :
exemple : Ligne 1 = tâche 1, L2=tâche 2, L3=tâche 3...après l'executio
de


la macro : L1=Tâche 1, L2 vide; L3 = tâche 3...grrr

Merci...


Fred


"sabatier" a écrit dans le
message


de news:
bonjour frédérick
les cracks ne feront qu'une bouchée de ton problème et te donneront la
ruse

que tu cherches...à condition que tu sois un peu plus explicite sur la
construction de ta feuille : tes statuts sont écrits où? en tête de
colonnes? de lignes? idem pour tes tâches : elles occupent quel
espace?



une
cellule? une ligne?
de toutes façons, nous avons des moyens pour te faire parler....
jps

"fred_chevilly" a écrit dans le message de
news:
Bonjour,


Je gère des tâches dans un classeur.
La première feuille contient toutes les tâches en cours, la deuxième
les




tâches closes.
Le statut de la tâche est présent dans une colonne. J'ai
actuellement




les
statuts : "A traiter", "en cours" et "traité"
Je cherche une ruse pour qu'une tâche dès que j'ai saisi le statut
"traité"

soit automatiquement coupée de la feuille des encours et collée
automatiquement dans la feuille des "traité".
Est-ce que vous connaissez un moyen ?

Merci.


frédérick




















Avatar
fred_chevilly
Bonjour Philippe,

Et bien visiblement c'était bien ce qui clochait...
Merci beaucoup.
Une toute dernière question, je souhaite supprimer la ligne "vide" qui reste
sur ma première feuille après le couper.
J'ai rajouté :
Rows(laLig).EntireRow.Delete
ça a l'air de marcher mais je ne suis pas certain que ça n'a pas d'autres
effets.
Est-ce bien ça ?

Merci.



"Philippe.R" a écrit dans le message de news:

Bonjour Fred,
D'abord merci à Jean Paul d'avoir suivi.
Le but du code est bien de couper la ligne complétée pour la transférer
sur l'autre feuille ; pour

faciliter l'exécution, il est préférable de décocher "Déplacer la
sélection" dans l'onglet modification

du menu Outils / Options, de manière à ce que la cellule modifiée reste
sélectionnée après validation.

--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.

"fred_chevilly" a écrit dans le message de
news:
Bonjour,

Merci beaucoup.

Je n'ai pas trop compris ce qui s'est passé... et surtout je m'initie
lentement :)

j'ai bien rajouté en module 1, les premières lignes. Puis sur la 1ère
feuille les lignes en adaptant le nom des feuilles.

Si j'ai bien compris les lignes, dès que je complète la cellule active
par


"traité", il coupe la ligne...?

Quelques lignes ont bien respecté la règle mais depuis rien à faire, les
lignes ne bougent plus.

Que veut dire le [a65536] ?

Et pourquoi as-tu mis la ligne 'Cells([a65536... en commentaire ?

Merci...





"Philippe.R" a écrit dans le message de news:
##
Bonsoir Fred,
Si tant est que j'ai compris, dans un module standard, les noms des
feuilles étant à adapter :


Sub bouge_traite()
' MPFE le 13/09/2004 par Philippe Raulet
Dim laLig As Long
laLig = ActiveCell.Row
If ActiveCell.Value = "traité" Then
Rows(laLig).EntireRow.Cut
Sheets("Feuil3").Select 'feuille de destination
Rows([a65536].End(xlUp).Row + 1).Select
Selection.Insert Shift:=xlDown
'ligne suivante à décommenter pour supprimer la valeur en Ex
'Cells([a65536].End(xlUp).Row, 5).Clear
Sheets("Feuil2").Select 'feuille source
End If
End Sub

dans le module de la feuille dont tu veux exporter les lignes:

Private Sub Worksheet_Change(ByVal Target As Range)
bouge_traite
End Sub
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"fred_chevilly" a écrit dans le message de
news:
bonsoir,

Ok, en me relisant en effet je me disais qu'il aurait fallu
détailler...




Brièvement :
Feuille 1 : tâche en cours
colonne A : libellé de la tâche
colonne B : numéro de la tâche
colonne C : description de la tâche
colonne C : suivi de la tâche
colonne D : statut
Une ligne = une tâche

Feuille 2 : tâche closes
colonne A : libellé de la tâche
colonne B : numéro de la tâche
colonne C : description de la tâche
colonne C : suivi de la tâche
colonne D : statut (que je supprimerai peut-être du coup...)
Une ligne = une tâche

J'en profite pour rajouter un détail : j'avais géré le couper coller
avec


une macro mais la macro laissait toujours une ligne à la place de la
tâche


coupée :
exemple : Ligne 1 = tâche 1, L2=tâche 2, L3=tâche 3...après
l'executio




de
la macro : L1=Tâche 1, L2 vide; L3 = tâche 3...grrr

Merci...


Fred


"sabatier" a écrit dans le
message


de news:
bonjour frédérick
les cracks ne feront qu'une bouchée de ton problème et te
donneront la





ruse
que tu cherches...à condition que tu sois un peu plus explicite
sur la





construction de ta feuille : tes statuts sont écrits où? en tête
de





colonnes? de lignes? idem pour tes tâches : elles occupent quel
espace?



une
cellule? une ligne?
de toutes façons, nous avons des moyens pour te faire parler....
jps

"fred_chevilly" a écrit dans le message de
news:
Bonjour,


Je gère des tâches dans un classeur.
La première feuille contient toutes les tâches en cours, la
deuxième






les
tâches closes.
Le statut de la tâche est présent dans une colonne. J'ai
actuellement




les
statuts : "A traiter", "en cours" et "traité"
Je cherche une ruse pour qu'une tâche dès que j'ai saisi le
statut






"traité"
soit automatiquement coupée de la feuille des encours et collée
automatiquement dans la feuille des "traité".
Est-ce que vous connaissez un moyen ?

Merci.


frédérick
























Avatar
Philippe.R
Bonsoir Fred,
Si ton code final ressemble à ceci :

Sub bouge_traite()
' MPFE le 13/09/2004 par Philippe Raulet
Dim laLig As Long
laLig = ActiveCell.Row
If ActiveCell.Value = "traité" Then
Rows(laLig).EntireRow.Cut
Sheets("Feuil3").Select 'feuille de destination
Rows([a65536].End(xlUp).Row + 1).Select
Selection.Insert Shift:=xlDown
'ligne suivante à décommenter pour supprimer la valeur en Ex
'Cells([a65536].End(xlUp).Row, 5).Clear
Sheets("Feuil2").Select 'feuille source
Rows(laLig).EntireRow.Delete
End If
End Sub

pas d'effet indésirable détecté chez moi
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.

"fred_chevilly" a écrit dans le message de
news:
Bonjour Philippe,

Et bien visiblement c'était bien ce qui clochait...
Merci beaucoup.
Une toute dernière question, je souhaite supprimer la ligne "vide" qui reste
sur ma première feuille après le couper.
J'ai rajouté :
Rows(laLig).EntireRow.Delete
ça a l'air de marcher mais je ne suis pas certain que ça n'a pas d'autres
effets.
Est-ce bien ça ?

Merci.



"Philippe.R" a écrit dans le message de news:

Bonjour Fred,
D'abord merci à Jean Paul d'avoir suivi.
Le but du code est bien de couper la ligne complétée pour la transférer
sur l'autre feuille ; pour

faciliter l'exécution, il est préférable de décocher "Déplacer la
sélection" dans l'onglet modification

du menu Outils / Options, de manière à ce que la cellule modifiée reste
sélectionnée après validation.

--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.

"fred_chevilly" a écrit dans le message de
news:
Bonjour,

Merci beaucoup.

Je n'ai pas trop compris ce qui s'est passé... et surtout je m'initie
lentement :)

j'ai bien rajouté en module 1, les premières lignes. Puis sur la 1ère
feuille les lignes en adaptant le nom des feuilles.

Si j'ai bien compris les lignes, dès que je complète la cellule active
par


"traité", il coupe la ligne...?

Quelques lignes ont bien respecté la règle mais depuis rien à faire, les
lignes ne bougent plus.

Que veut dire le [a65536] ?

Et pourquoi as-tu mis la ligne 'Cells([a65536... en commentaire ?

Merci...





"Philippe.R" a écrit dans le message de news:
##
Bonsoir Fred,
Si tant est que j'ai compris, dans un module standard, les noms des
feuilles étant à adapter :


Sub bouge_traite()
' MPFE le 13/09/2004 par Philippe Raulet
Dim laLig As Long
laLig = ActiveCell.Row
If ActiveCell.Value = "traité" Then
Rows(laLig).EntireRow.Cut
Sheets("Feuil3").Select 'feuille de destination
Rows([a65536].End(xlUp).Row + 1).Select
Selection.Insert Shift:=xlDown
'ligne suivante à décommenter pour supprimer la valeur en Ex
'Cells([a65536].End(xlUp).Row, 5).Clear
Sheets("Feuil2").Select 'feuille source
End If
End Sub

dans le module de la feuille dont tu veux exporter les lignes:

Private Sub Worksheet_Change(ByVal Target As Range)
bouge_traite
End Sub
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"fred_chevilly" a écrit dans le message de
news:
bonsoir,

Ok, en me relisant en effet je me disais qu'il aurait fallu
détailler...




Brièvement :
Feuille 1 : tâche en cours
colonne A : libellé de la tâche
colonne B : numéro de la tâche
colonne C : description de la tâche
colonne C : suivi de la tâche
colonne D : statut
Une ligne = une tâche

Feuille 2 : tâche closes
colonne A : libellé de la tâche
colonne B : numéro de la tâche
colonne C : description de la tâche
colonne C : suivi de la tâche
colonne D : statut (que je supprimerai peut-être du coup...)
Une ligne = une tâche

J'en profite pour rajouter un détail : j'avais géré le couper coller
avec


une macro mais la macro laissait toujours une ligne à la place de la
tâche


coupée :
exemple : Ligne 1 = tâche 1, L2=tâche 2, L3=tâche 3...après
l'executio




de
la macro : L1=Tâche 1, L2 vide; L3 = tâche 3...grrr

Merci...


Fred


"sabatier" a écrit dans le
message


de news:
bonjour frédérick
les cracks ne feront qu'une bouchée de ton problème et te
donneront la





ruse
que tu cherches...à condition que tu sois un peu plus explicite
sur la





construction de ta feuille : tes statuts sont écrits où? en tête
de





colonnes? de lignes? idem pour tes tâches : elles occupent quel
espace?



une
cellule? une ligne?
de toutes façons, nous avons des moyens pour te faire parler....
jps

"fred_chevilly" a écrit dans le message de
news:
Bonjour,


Je gère des tâches dans un classeur.
La première feuille contient toutes les tâches en cours, la
deuxième






les
tâches closes.
Le statut de la tâche est présent dans une colonne. J'ai
actuellement




les
statuts : "A traiter", "en cours" et "traité"
Je cherche une ruse pour qu'une tâche dès que j'ai saisi le
statut






"traité"
soit automatiquement coupée de la feuille des encours et collée
automatiquement dans la feuille des "traité".
Est-ce que vous connaissez un moyen ?

Merci.


frédérick