liste d'archives Résolu/Fermé

Question

Bonjour, 
Voilà, je suis secrétaire dans un établissement de santé et j'utilise excel pour mes statistiques. 
En ce début d'année, je commence à faire du tri dans ma base de données de l'année 2014. 
C'est à dire que j'ai une fiche par patient (un onglet ou une feuille) et ceux qui ne sont pas venus dans les 6 derniers mois sont à retirer de mes armoires afin de les archiver . 
Sur chaque feuille, si les cellules de J4:O96 sont vides, alors les dossiers sont à archiver. 
Comment faire pour ne pas avoir à les chercher feuille par feuille, une formule peut-elle rechercher ces feuilles et me les lister ? 
Merci d'avance. 
Je vous souhaite à tous de une très bonne année, qu'elle vous soit bénéfique. 
Cordialement. 
Nany

Configuration: Windows 7 / Mozilla 11.0

via55 · Answer

Bonsoir Nancy

1° créer une feuille vierge (pour les résultats) ,la nommer Liste et la placer en 1er

2° Faire ALT F11 pour ouvrir l'éditeur VBA, puis onglet Insertion puis Module
Copier la macro ci-dessous et la coller dans la page blanche
Fermer l'éditeur

Sub liste_onglets()
Dim Cell As Range
Dim Resultat As Integer
For n = 2 To Sheets.Count
Resultat = 0
For Each Cell In Sheets(n).Range("J4:O96")
If Not Cell = "" Then
Resultat = 1
End If
Next Cell
If Resultat = 0 Then
x = x + 1
Sheets("Liste").Range("A" & x) = Sheets(n).Name
End If
Next n
End Sub

3° Pour faire fonctionner la macro Onglet Developpeur  Macros selectionner la macro et Executer

Bonne année à toi aussi

Cdlmnt

nany974 · Answer

merci beaucoup via55

c'est impeccable !!

mille mercis 


Nany

Liste d'archives

2 réponses

Discussions similaires