XL 2021 recherche de valeurs

louis59 · 28 Février 2024

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 · 28 Février 2024

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 · 28 Février 2024

sylvanu à dit:
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 · 28 Février 2024

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.

XL 2021 recherche de valeurs

louis59

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

louis59

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

Discussions similaires