Microsoft 365 chercher un mot dans une cellule pour affecter une donnée dans la ligne trouvée

micheldu52

XLDnaute Occasionnel

• 23 Novembre 2019

• #2

Bonsoir,
un fichier à joindre avec l'exemple c'est possible?

 

Vote positif 0 Vote négatif

micheldu52

XLDnaute Occasionnel

• 23 Novembre 2019

• #3

cordialement,
Michel

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 23 Novembre 2019

• #4

Bonjour le fil, chrisfly, micheldu52

chrisfly [Bienvenue sur le forum]
Une possibilité (mais limitée)
A mettre en colonne B
=REPT("fruit";ESTNUM(EQUIV(A1;{"poire";"pomme";"banane";"cerise";"orange"};0)))

 

Vote positif 0 Vote négatif

C

chrisfly

XLDnaute Nouveau

• 24 Novembre 2019

• #5

bonjour Staple 1600 et merci à Micheldu52. j'ai préparé un fichier pour illustrer mon besoin. ce sera compliqué avec seulement une fonction excel car je vais avoir plusieurs catégories (je ne peux pas envoyer le vrai fichier car c'est pour mon boulot et pas communicable). imaginons un inventaire et que pour chaque objet j'y affecte une catégorie. on affecte la catégorie en fonction d'un mot qu'on trouve ou pas dans la colonne phrase qui définit l'objet. j'ai indiqué (uniquement pour les besoins exemple car cette colonne n'existe pas dans la réalité) une troisième colonne pour préciser le mot clef qui permettrait de définir la catégorie. j'ai besoin de VBA car il y a beaucoup de lignes et une dizaine de catégorie et potentiellement de nouvelles à venir. voilà j'espère que c'est clair avec l'Excel en pj. merci beaucoup.

 

Pièces jointes

• ex affectation catégorie.xlsx

  18.5 KB · Affichages: 9

Vote positif 0 Vote négatif

micheldu52

XLDnaute Occasionnel

• 24 Novembre 2019

• #6

Bonjour,

Dis moi si le fichier toto ci-joint, va dans le sens de ce que tu souhaites? (si oui dans l'onglet travail, il n'y a pas de limites de nombre d'exemples)

Après, si ca t'aide on peut creuser cette approche

Cordialement,

Michel

(pour tester remplace rouge-gorge par pivoine)

 

Vote positif 0 Vote négatif

C

chrisfly

XLDnaute Nouveau

• 24 Novembre 2019

• #7

Bonjour, merci encore pour cette aide, mais mon besoin est de faire remplir en automatique la colonne B de l'onglet travail en ayant paramétré dans une macro le fait que quand dans une boucle allant de 1 à X lignes, quand je trouve le mot pivoine dans la cellule de la colonne A (cellule qui peut contenir plusieurs mots comme "pivoine fanée"), alors la macro saisit dans la même ligne mais colonne B le mot fleur. et ainsi de suite. je ne sais pas si je suis très claire .... en fait le travail peut se faire en filtrant sur la colonne A le mot pivoine et en remplissant à la main la colonne B, mais je voudrais automatiser. car mes occurrences en colonne A vont être par ex : pivoine fanée, pivoine à donner, la magnifique pivoine, etc le filtre serait sur pivoine et le mot à saisir en colonne B serait fleur. merci encore et pas d'urgence dans la réponse. je continue aussi de cresuer de mon côté. Chris

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 24 Novembre 2019

• #8

Bonjour

Puisque tu as 365, une solution sans VBA utilisant PowerQuery

Actualiser par Données, Actualiser tout manuellement ou par une ligne de code

 

Pièces jointes

• affectation catégorie PQ.xlsx

  31 KB · Affichages: 13

Vote positif 0 Vote négatif

micheldu52

XLDnaute Occasionnel

• 24 Novembre 2019

• #9

A ta convenance, mais si tu généralises ma solution elle ne demande rien d'autre et répond à ta question.
Cordialement,
Michel

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 24 Novembre 2019

• #10

Salut à Tous,
ChrisFly, comme tu sembles vouloir faire du VBA,
ci-joint un fichier Excel sans macros ( par sécurité )
tu devras insérer le code suivant dans un Module

VB:

Option Explicit
Public Function Cat(ByVal Phrase As String) As String
Dim MS_Range As Range
Dim Cell     As Range
Dim Elem    As Variant
Cat = vbNullString
Set MS_Range = Sheets("Param").ListObjects("Param").ListColumns("MotClef").DataBodyRange
   
    For Each Elem In Split("- , . ;'")
        Phrase = Replace(Phrase, Elem, " ")
    Next
   
    For Each Elem In Split(Phrase)
        ' on n'utilise pas le Find car erreur 50290 aléatoire ...
        For Each Cell In MS_Range
            If Elem Like Cell Then
                Cat = Cell.Offset(0, -1)
                Exit Function
            End If
        Next
    Next
End Function

Puis celui-ci dans le code de la feuille Param

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Sheets("Feuil1").Calculate
End Sub

A voir par la suite si c'est adapté à un grand nombre d'articles...
J'avais bien pensé au powerquery, mais c'est délicat à modifier et expliquer rapidement ...

 

Pièces jointes

• affectation catégorie-1.xlsx

  36.5 KB · Affichages: 7

Dernière édition: 24 Novembre 2019

Vote positif 0 Vote négatif

C

chrisfly

XLDnaute Nouveau

• 25 Novembre 2019

• #11

Bonjour à tous, Chris, Fanch55 et Micheldu52 merci à tous les 3 pour toutes ces options de solution. je vais regarder celle qui s'applique au mieux à mon fichier et à ses nombreuses lignes. je ne connaissais pas powerquery mais je vais aussi creuser car j'ai un autre fichier dans un autre contexte et cette fonction me fera gagner du temps de traitement. très bonne semaine. Chris

 

Vote positif 0 Vote négatif