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

[finarobert]

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

 

[Gégé-45550]

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

Bonsoir,
Un premier jet séquentiel en PJ.
Cordialement,

 

[mapomme]

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

Un autre essai...

J'ai supposé que @finarobert utilise un PC. j'ai donc utilisé un objet "dictionary" qui hélas 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 affichent 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ètent le tableau.

Dans le code, deux constantes 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 module1.

edit : version v1a qui prend en compte le cas où il n'y a pas de doublon (l'exécution ne provoque plus une erreur).

 

[finarobert]

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

 

[finarobert]

merci beaucoup! touours présent et efficace

 

[mapomme]

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

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.

 

[finarobert]

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.

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

 

[finarobert]

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

il a fonctionné! merci

 

[finarobert]

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

 

[finarobert]

te

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

testé, c'est tout bon!
merci