XL 2016 VBA repérage de chaines de caractères dans colonne

finarobert à dit:

Bonjour
dans mon onglet Excel (fichier joint), j'ai des colonnes de caractères qui correspondent à des notes de musiques. On va dire une colonne = une musique
la première ligne est une ligne d'en-tête
le nombre de colonnes et de lignes est variables
j'aimerai savoir si des chaines de notes de musiques (au moins 5) se retrouve dans plusieurs colonnes. Est ce possible?
merci du coup de main. Je sèche lamentablement
Robert

Cliquez pour agrandir...

mapomme à dit:

Bonjour @finarobert , @Gégé-45550 ,

Un autre essai...

J'ai supposé que @finarobert utilise un PC. j'ai donc utilisé un objet "dictionary" qui n'est pas présent sur MAC.
@finarobert => Il serait bon de compléter votre profil pour afficher si vous utilisez un PC ou un MAC .

Les résultats affiche les séquences communes à plusieurs colonnes.
Pour chaque séquence, on indique la colonne (avec le numéro de ligne de la première localisation au sein chaque colonne) , le nombre de colonnes avec présence de la séquence, et la taille (en nombre de notes) de la séquence. Des MFC complète le tableau.

Dans le code, deux constantes indiquent définissent les tailles des séquences à rechercher.
Exemple : Const seqmin = 5, seqmax = 10 (on recherche les séquences communes de 5 à 10 notes)

Cliquer sur le bouton Hop! Le résultat est sur la feuille "Résultat". Le code est dans module

Cliquez pour agrandir...

mapomme à dit:

@finarobert => Il serait bon de compléter votre profil pour afficher si vous utilisez un PC ou un MAC .

Cliquez pour agrandir...

mapomme à dit:

Re,
Je vous conseille quelque chose que je ne respecte pas moi-même !!!!
J'ai donc voulu corriger illico mon profil et je me suis aperçu que pour Office 365, on n'avait qu'un seul choix "Office 365" (ni "Office 365 (PC)" ni "Office 365 (MAC)"). J'ai envoyé un message à notre administrateur en chef.

Cliquez pour agrandir...

finarobert à dit:

Encore merci. est ce que le programme est limité en nombre de colonnes? Je teste 26 colonnes et Excel ne répond pas
Robert

Cliquez pour agrandir...

finarobert à dit:

bonsoir
si je veux plus de notes dans la séquence, je ne modifie que la valeur de seqmax?
merci encore

Cliquez pour agrandir...