XL 2021 recherche de valeurs

louis59

XLDnaute Nouveau
Bonjour à toutes et à tous,

je sollicite vos compétences car utilisateur Excel néophyte et amateur, je tourne en rond depuis quelques temps

Je gère ma collection de pièces de monnaie avec Excel 2021.

L'organisation est la suivante :

Le classeur contient une centaine de feuilles de calcul

Chaque monnaie (par exemple 1 franc) faut l'objet d'une feuille de calcul.

Cette feuille contient :

  • autant de lignes que de millésimes '( en général une cinquantaine de lignes)
  • colonne A : millésime attendu
  • colonne B : millésime présent
  • colonne C : millésime manquant
  • les colonnes D/E/F/G/H/I/J/K/L/M / contiennent des informations sans intérêt dans la recherche
Mon problème est d'extraire les lignes contenant un millésime manquant et de les coller dans une nouvelle feuille de calcul du classeur ( qui serait celle des "manquants"), et d'avoir une vue immédiate des besoins

L'idéal serait que lorsqu'une nouvelle pièce entre dans la feuille de calcul, elle soit automatiquement supprimée de la feuille des "manquants".

Merci de me mettre sur la voie..
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Re,
Un essai en PJ avec cette macro :
VB:
Sub Worksheet_Activate()
Application.ScreenUpdating = False
Dim T, f, L%, i%
Dim Manquants(1 To 10000, 1 To 2): L = 1
For Each f In Worksheets
    If f.Name <> "Liste manquante" Then
        Nom = Replace(Sheets(f.Name).[A1], Chr(10), "  -  ")
        DL = Sheets(f.Name).[A10000].End(xlUp).Row
        T = Sheets(f.Name).Range("A6:C" & DL)
        For i = 1 To UBound(T)
            If T(i, 3) <> "" Then
                Manquants(L, 1) = Nom
                Manquants(L, 2) = T(i, 3)
                L = L + 1
            End If
        Next i
    End If
Next f
[A2:B10000].ClearContents
[A2].Resize(UBound(Manquants, 1), UBound(Manquants, 2)) = Manquants
End Sub
Cette macro s'exécute automatiquement lorsqu'on sélectionne la feuille "liste manque"
N'hésitez pas si problème.
 

Pièces jointes

  • listing test.xlsm
    58.2 KB · Affichages: 1

Discussions similaires

Réponses
4
Affichages
193
Réponses
7
Affichages
426

Statistiques des forums

Discussions
312 561
Messages
2 089 662
Membres
104 249
dernier inscrit
Nicolas TUDOUX