Compter 2 mots différents par lignes dans un tableau

[jfroger]

Bonjour à tous

Je souhaite calculer par ligne le nombre de :
A + B
A + C
A + D etc. .... A + G

B + A
B + C
B + D etc. ... B + G

H + A
H + B
- - - - - -
H + G

Jusqu'à 15 noms en symétrie qui sont dans une base

J'ai trouvé un début de code en VBA qui compte le nombre de mots, mais je n'arrive pas a additionner deux mots

Merci pour votre aide

 

[mapomme]

Re : Compter 2 mots différents par lignes dans un tableau

Bonjour jfroger,

Voir un essai dans le fichier joint.

Le code est dans module1. Cliquer sur le bouton "GO"

Edit : v2

 

[mapomme]

Re : Compter 2 mots différents par lignes dans un tableau

Bonjour jfroger,

Un autre essai avec quelques améliorations pratiques:
.

• une vitesse plus élevée pour le coloriage du tableau des données sources. Le coloriage s'appuie sur les couleurs de la feuille Data. C'est le coloriage de la source qui accapare pratiquement l'entière durée du traitement.
• quatre constantes en tête de la macro pour paramétrer le résultat:

1. 
   [*=2]FeuilRes pour désigner la feuille où placer le résultat (ex: FeuilRes = "Result")
   [*=2]CellRes pour désigner la 1ière cellule du tableau résultat au sein de la feuille FeuilRes (ex: CellRes = "b5")
   [*=2]PoliceRes pour indiquer le nom de la police du tableau résultat (ex: PoliceRes = "Verdana")
   [*=2]TailPoliceRes pour indiquer la taille de la police du tableau résultat (ex: TailPoliceRes = 10)

• les cellules (sauf ligne et colonne 1) du tableau résultat ont pour format personnalisé : 0;0;; pour éviter l'affichage des zéros et des X
• le résultat devrait générer un tableau résultat le plus compact possible (selon ma vision ) avec des cellules "carrées"

edit : une légère correction pour le formatage de la 1ière ligne du tableau.

 

[jfroger]

Re : Compter 2 mots différents par lignes dans un tableau

Bonjour Mapomme

Je vois la vie en Bleu
Tout est parfait

Merci