Recherche colonne et ajouter valeur fixe a celulle à coté

Bonjour à tous, après etre resté sans solution à mon problème je me tourne vers des experts!!

Dans mon tableau j'ai 2 colonnes:

Colonne A: valeur en texte de type au, auu, na, nau, k , ku...

Colonne B: valeur en texte de type acide urique, sodium, potassium...

Mon souhait est que lorsque dans la première colonne j 'ai la valeur auu ou nau ou ku ou... la valeur de la celulle d'a cote soit la valeur initiale de celle ci avec U en plus.

En espérant avoir été clair

Je joins un fichier comme exemple

Par avance merci pour votre aide!!

Critof

Bonjour, une solution :

en B14

=SI(OU(ESTNUM(CHERCHE("U";$A14));$A14="");RECHERCHEV($A14;$A$2:$B$10;2;FAUX)&" U";RECHERCHEV($A14;$A$2:$B$10;2;FAUX))

à tirer vers le bas.

Bonjour, merci pour la solution! Mais c'est vrai je ne l'avais pas precisé: il me faudrais le code pour faire une macro VBA

Et de plus il y a plusieurs autres valeurs de la colonne A qui necessiterait l'ajout de U en colonne B

Je suis vraiment pénible pour un ptit nouveau

Cordialement Critof

Dans ce cas il faudrait mettre tout vos exemples possible pour que l'on puisse être sûr du résultat souhaité.

Pour ma part j'avais compris que tout ce qui avait un U dans le nom devait se terminé par leur nom et U.

Pouvez vous être plus précis et mettre un peu plus d'exemple ?

Pour le VBA je suis novice, donc je n'apporterai probablement pas une solution rapide, mais ça reste un exercice pour moi.

Bonjour, merci Fred35 pour votre aide!!!

En fin de compte j'ai trouver une solution pour mon probleme

le mets le code ici si ca peut en aider certains

Sub urine()
For i = 1 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    Select Case ActiveSheet.Cells(i, 1)
        Case Is = "au"
            ActiveSheet.Cells(i, 2) = ActiveSheet.Cells(i, 2) + "U"
        Case Is = "ad"
            ActiveSheet.Cells(i, 2) = ActiveSheet.Cells(i, 2) + "U"
            Case Is = "UC"
            ActiveSheet.Cells(i, 2) = ActiveSheet.Cells(i, 2) + "U"
            Case Is = "UH"
            ActiveSheet.Cells(i, 2) = ActiveSheet.Cells(i, 2) + "U"
            Case Is = "GU"
            ActiveSheet.Cells(i, 2) = ActiveSheet.Cells(i, 2) + "U"
            Case Is = "MU"
            ActiveSheet.Cells(i, 2) = ActiveSheet.Cells(i, 2) + "U"
            Case Is = "PH"
            ActiveSheet.Cells(i, 2) = ActiveSheet.Cells(i, 2) + "U"
            Case Is = "KU"
            ActiveSheet.Cells(i, 2) = ActiveSheet.Cells(i, 2) + "U"
            Case Is = "SU"
            ActiveSheet.Cells(i, 2) = ActiveSheet.Cells(i, 2) + "U"
            Case Is = "UU"
            ActiveSheet.Cells(i, 2) = ActiveSheet.Cells(i, 2) + "U"
          Case Else

    End Select
    Next i

End Sub

Voila bonne journée a tous

Critof