XL 2021 recherche de valeurs

[louis59]

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]

Bonjour Louis,
Vous n'auriez pas un petit fichier test pour bosser ?
Quelques feuilles et quelques lignes sont suffisant.
C'est faisable assez aisément avec une macro en VBA.

 

[louis59]

Bonjour Louis,
Vous n'auriez pas un petit fichier test pour bosser ?
Quelques feuilles et quelques lignes sont suffisant.
C'est faisable assez aisément avec une macro en VBA.

merci de m'avoir répondu
je vous joint un exemple de tableau

 

[sylvanu]

Re,
Un essai en PJ avec cette macro :

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.