Microsoft 365 Rechercher des occurrences inconnues

Roblochon à dit:

Bonjour,

La macro du fichier fonctionnait très bien, alors je me suis creusé la tête pour savoir ce que vous vouliez!!!
J'en ai fini par conclure que la réponse était simplement là : 'qui sont toujours à la même place'

Donc en dehors du fait que j'ai refait la macro à ma sauce, la seule modification par rapport à la précédente est que celle-ci ne boucle pas sur les cellules occupées de la colonne A de chaque feuille mais simplement teste la cellule A2 de chaque feuille.

VB:

Sub synthese()
    Dim Occurence As String
    Set dico = CreateObject("Scripting.dictionary")
    For Each sh In Sheets
        If sh.Name <> "Synthèse" Then
            Occurence = Trim(sh.Range("A2").Text)
            If Occurence <> "" Then dico(Occurence) = dico(Occurence) + 1
        End If
    Next
    If dico.Count > 0 Then
        With Sheets("Synthèse")
            .Range("B2").CurrentRegion.ClearContents ' Nettoie les données précédentes
            .Range("B2").Resize(dico.Count) = Application.Transpose(dico.keys)
            .Range("C2").Resize(dico.Count) = Application.Transpose(dico.items)
        End With
    End If
End Sub

Si c'est bien ça que vous voulez, alors il eût été plus simple de rester dans votre autre fil de discussion et de dire que les occurences à trouver sont toujours en A2 de chaque feuille.

Petite question en aparté : pourquoi un fichier .xls (format dépassé depuis 2007) alors que vous avez office 365, vous privant ainsi de toutes les améliorations d'excel faites depuis 12 ans?

Cordialement

Cliquez pour agrandir...

lucarn à dit:

Bonjour Reblochon,
En fait, c'est idiot. J'ai regardé la macro et j'en ai déduis qu'elle limitait sa recherche dans un nombre restreint de feuilles sans avoir essayé d'ajouter des feuilles et de voir ce que cela faisait.
Donc, tout est bien, ça marche. Super. Merci.
Pour Excel 2007, je viens juste d'enregistrer mes fichiers 2007 sous le format Excel acceptant les macros. J'espère que je ne vais pas être perdu...
Merci encore.

Cliquez pour agrandir...

Roblochon à dit:

Re,

Il faut essayer de comprendre les lignes de codes qui vous sont communiquées, travailler un peu et voir ce que vous pouvez adapter. Sinon vous n'apprendrez jamais.
De plus et pour ma part, quelqu'un qui attend du tout cuit, aussi sympa soit-il, va vite me lasser.

Pour votre question la ligne de code incriminée est celle-ci .Range("B2").CurrentRegion.ClearContents '
Cette ligne a pour but d'effacer les données calculées précédentes, pour ne pas conserver de fantôme.
Si votre tableau a un nombre de lignes fixes vous pouvez par exemple la remplacer par: .Range("B2:C100").clearContents

Cordialement

Cliquez pour agrandir...