Nombre de fois qu'un mot apparaît en colonne + couleur

Bonjour,

J'aimerais calculer le nombre de fois qu'un mot apparait dans une colonne associé à un autre mot dans une autre colonne.(cf fichier joint: en jaune)

Puis un peu + compliqué: j'aimerai colorier toutes les cases contenant le même mot d'une couleur, puis un autre mot en une autre couleur, etc ... (je suis "bloqué à 3 mises en forme conditionnelle alors qu'il m'en faudrait bien plus)

Merci

vvdd

Bonjour

Pour les associations de mots, une réponse avec SOMMEPROD

Cordialement

Bonjour à tous,

Pour les couleurs, une réponse vba :

Sub couleur()
Dim i As Integer
Dim cel As Range
Dim valeur As String
    For i = 11 To [b11].End(xlDown).Row
        valeur = Left(Cells(i, 2), 3)
        For Each cel In [b1:c9]
            If cel.Value = valeur Then cel.Interior.ColorIndex = Cells(i, 2).Interior.ColorIndex
        Next cel
    Next i
End Sub

Bonjour

Pour avoir plus de choix, un autre Code sur le fichier

Cordialement

Merci, c'est rapide et parfait pour le calcul avec sommeProd

Par contre je ne comprends pas bien la manip pour mes couleurs...Je fais un "copier/coller" du code proposé puis je vais dans "outil", "macros"???

Merci

vvdd

Bonjour

Pour adapter le Code dans ton fichier.

Tu Copies le Code.

Tu vas sur ton fichier

Avec les 2 touches Alt+F11, tu ouvres l'éditeur VBA

Dans la fenêtre de l'éditeur VBA, tu cliques sur "Insertion" "Module"

Tu Colles le Code dans le module.

Cordialement

J'ai bien essayé mais comme je suis novice....

J'ai voulu le faire à partir d'un tableau d'exemple pour comprendre mais c'est peut-être un peu plus compliqué...

Le plus simple: je joins une partie de mon vrai tableau avec le code couleur....(la question est dessus...avec un petit plus)

Merci

vvdd

Re,

Remplace le code ci-dessus par le code suivant :

Sub couleur()
Dim i As Integer
Dim cel As Range, codeCouleur As Range, coul As Range, donnees As Range
Dim valeur As String

    Set codeCouleur = Application.InputBox("Sélectionner la plage contenant les codes couleur", Type:=8)
    Set donnees = Application.InputBox("Sélectionner la plage de données", Type:=8)

    For Each coul In codeCouleur
        For Each cel In donnees
            cel.Value = Trim(cel.Value)
            If Trim(cel.Value) <> "" Then
                If coul.Value Like "*" & Trim(cel.Value) & "*" Then
                    cel.Interior.ColorIndex = coul.Interior.ColorIndex
                End If
            End If
        Next cel
    Next coul

End Sub

Pour faire plus simple, ce code t'invitera à sélectionner la plage de cellules contenant les codes couleur ainsi que la plage des données.

Les espaces superflus sont "gérés" par le code ci-dessus grâce à la fonction Trim.

Encore un peu d'aide...

J'ai fait ça: (ce qu'on ma conseillé avant)

[i]Pour adapter le Code dans ton fichier.

Tu Colles le Code dans le module.

Jusque là c'est pas trop difficile mais après que dois-je faire? faut que j'enregistre kkchose, faut valider kkchose...?

vvdd

Ah ok.

Ensuite, tu reviens sur la Feuil1, puis tu vas dans Outils/Macro/Macros -> couleur -> exécuter

Magnifique, c'est exactement ça! ça fonctionne parfaitement.

Merci beaucoup

vvdd

Si ton problème est résolu, n'oublie pas de l'indiquer (un petit V vert à cocher lorsque tu écris un message)