Adaptation de code Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
F
FinaMtl
Nouveau venu
Nouveau venu
Messages : 3
Inscrit le : 10 janvier 2019
Version d'Excel : 2016

Message par FinaMtl » 10 janvier 2019, 03:00

Bonjour, je ne sais plus ou regarder? je commence à douter si c'est possible.
je vous explique...j'ai créer une feuille excel pour faire le suivi des dossiers sur lesquels je travaille.
Une des colonnes est le statut du dossier. Lorsque le statut est fermeture du dossier, j'ai réussi à ce que la ligne se déplace dans une autre feuille grâce au vidéo youtube: https://youtu.be/fxgQm32sBeI (merci Vince pour l'avoir posté).
Je l'ai fait avec la formule:
Private Sub Workbook_Open()
Dim i, LastRow

LastRow = Sheets("Dossiers en cours").Range("A" & Rows.Count).End(xlUp).Row
Sheets("Dossiers fermés").Range("A2:I500").ClearContents
For i = 2 To LastRow
If Sheets("Dossiers en cours").Cells(i, "I").Value = "Fermeture de dossier" Then
Sheets("Dossiers en cours").Cells(i, "I").EntireRow.Copy Destination:=Sheets("Dossiers fermés").Range("A" & Rows.Count).End(xlUp).Offset(1)
End If
Next i
End Sub
Cependant, j'aimerai que lorsque la ligne de Fermeture de dossier soit dans la feuille dossiers fermés, que la ligne disparaisse de la feuille initiale.

Est-ce possible? est-ce que je suis sur le bon chemin ou je dois complètement faire une autre formule?
Merci à l'avance pour votre aide.
Fina
j
jmd
Fanatique d'Excel
Fanatique d'Excel
Messages : 10'659
Appréciations reçues : 249
Inscrit le : 8 décembre 2007
Version d'Excel : 365 + PowerBI

Message par jmd » 10 janvier 2019, 09:02

bonjour

tu veux faire comme avec des fiches papier et des classeurs à levier en 1970

avec l'informatique, on fait plus simple et plus fiable :
un unique onglet sans fin
une ligne = un dossier
il suffit de filtrer selon la colonne "Etat" pour ne voir que les encours
la notion d'archivage disparaît car elle est inutile !

cet onglet va durer 20 ans et contenir des milliers de lignes, je te le souhaite :wink:

pas de VBA, pas de formule

connais-tu les Liste ou Tableau dans Excel ?

amitiés et bonne année
1 membre du forum aime ce message.
Apprenez les fonctions d'Excel.
Exemple "Mettre sous forme de tableau", TCD, "Récupérer des données".
Apprendre les fonctionnalités "récentes".
Avatar du membre
Jean-Eric
Fanatique d'Excel
Fanatique d'Excel
Messages : 15'500
Appréciations reçues : 551
Inscrit le : 27 août 2012
Version d'Excel : 365 Insider

Message par Jean-Eric » 10 janvier 2019, 12:58

Bonjour et bienvenue,
Merci de joindre un classeur à ta demande.
Sinon, un lien qu'il faut que consultes impérativement :
viewtopic.php?f=10&t=116130&start=20
Tout ce que tu savoir est résumé en quelques lignes.
Cdlt.
Jean-Eric

Je ne réponds pas aux M.P. non sollicités.
F
FinaMtl
Nouveau venu
Nouveau venu
Messages : 3
Inscrit le : 10 janvier 2019
Version d'Excel : 2016

Message par FinaMtl » 10 janvier 2019, 20:46

jmd a écrit :
10 janvier 2019, 09:02
bonjour

tu veux faire comme avec des fiches papier et des classeurs à levier en 1970

avec l'informatique, on fait plus simple et plus fiable :
un unique onglet sans fin
une ligne = un dossier
il suffit de filtrer selon la colonne "Etat" pour ne voir que les encours
la notion d'archivage disparaît car elle est inutile !

cet onglet va durer 20 ans et contenir des milliers de lignes, je te le souhaite :wink:

pas de VBA, pas de formule

connais-tu les Liste ou Tableau dans Excel ?

amitiés et bonne année

Oui, je connais bien les listes et tableaux, mais vu que la liste de dossiers n'est pas seulement à mon nom, sinon aux 4 personnes du département, on veut vraiment que les dossiers fermés sortent de cette liste.
F
FinaMtl
Nouveau venu
Nouveau venu
Messages : 3
Inscrit le : 10 janvier 2019
Version d'Excel : 2016

Message par FinaMtl » 10 janvier 2019, 20:59

Document joint :)

J'apprécie d'avance toute votre aide.

J'adore excel, mais il me reste beaucoup à apprendre.
Liste de dossiers test Excel.xlsm
(77.54 Kio) Téléchargé 4 fois
Avatar du membre
Jean-Eric
Fanatique d'Excel
Fanatique d'Excel
Messages : 15'500
Appréciations reçues : 551
Inscrit le : 27 août 2012
Version d'Excel : 365 Insider

Message par Jean-Eric » 11 janvier 2019, 10:03

Bonjour,
Un début de réponse.
ALT F8, puis exécuter la procédure Archive_Data.
A tester.
Cdlt.
Liste de dossiers test Excel.xlsm
(41.15 Kio) Pas encore téléchargé
Jean-Eric

Je ne réponds pas aux M.P. non sollicités.
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message