Remplacer plusieurs "valeurs" à la fois

Bonjour à tous,

Je me permets de venir vers vous car je souhaiterai améliorer mon "rendement".

En fait, j'ai des tonnes de vocabulaire Néerlandais à remettre en page.

Comme vous pouvez le constater lors de la lecture du fichier joint, j'ai deux colonnes (+la colonne résultat pour être explicite dans ma recherche).

Je souhaite en fait ouvrir Rechercher & Remplacer, y taper par exemple :

Rechercher : De a; De b, De c (...)

Remplacer par : A, B, C (...)

Pour ne pas devoir le faire pour chaque lettre.

Est-ce possible ?

J'ai cherché mais souvent, ce sont des macros qui sortent, et je m'y connais pas là-dedans.

(Pour le reste, j'ai réussi à trouver, formule : =A1&" (de)" ensuite copier et coller les valeurs)

De même, si vous avez une astuce pour que toutes les premières lettres se mettent en majuscule lors de la frappe, je prends également.

Un grand merci d'avance pour votre lecture et votre aide.

Je vous souhaite une agréable journée!

Bonjour et Bienvenue,

Pas sur d'avoir compris mais essaye cette formule en C2 à copier vers le bas

=NOMPROPRE(STXT(A2;CHERCHE(" ";A2;1)+1;20))&" ("&MINUSCULE(GAUCHE(A2;CHERCHE(" ";A2;1)-1)&")")

et si il n'y a rien en Colonne A faire un test

=SI(A2="";"";NOMPROPRE(STXT(A2;CHERCHE(" ";A2;1)+1;20))&" ("&MINUSCULE(GAUCHE(A2;CHERCHE(" ";A2;1)-1)&")"))

Bonne Journée

Waow!

Je suis super impressionnée!

Je ne comprends pas comment tu l'as créée mais ça fonctionne.

Tu m'as même tout fait en une formule!

Merci beaucoup pour ton aide et ta promptitude!

Re

Une petite explication de texte

=CHERCHE(" ";A2;1)-1

te permet d'avoir le Nombre de caractères avant l'espace

=NOMPROPRE()

te permet d'avoir une Majuscule en début de chaque mot

=STXT(A2;CHERCHE(" ";A2;1)+1;20)

te permet d'avoir tous les mots après l'espace a concurrence de 20 caractères

=MINUSCULE(GAUCHE(A2;CHERCHE(" ";A2;1)-1))

te permet d'avoir le mot avant le 1er espace en minuscule

il suffit d'ajouter les parenthèses au bon endroit et le tour est joué

Bonne Journée

Bonjour à tous,

en VBA

seul l'apostrophe pose problème (L'écharpe) ligne 36

la formule de DL_13 à aussi le problème

Sub Renommer()
Dim Lg&, i%, x, y
    Lg = Range("a" & Rows.Count).End(xlUp).Row
    Application.ScreenUpdating = False
    Lg = Range("A65536").End(xlUp).Row

    For i = 5 To Lg
            On Error Resume Next
        If Not IsEmpty(Range("a" & i)) Then
            Cells(i, 3) = "=LOWER(a" & i & ")" 'minuscule
            x = Split(Cells(i, 3), " ")
            Cells(i, 3) = Application.Proper(x(1)) & " (" & x(0) & ")"
            '--- 2ème colonne ---
            Cells(i, 4) = "=LOWER(b" & i & ")" 'minuscule
            y = Split(Cells(i, 4), " ")
            Cells(i, 4) = Application.Proper(y(1)) & " (" & y(0) & ")"
        End If
    Next i
        Range("c:d").Columns.AutoFit
End Sub

Bonne journée

Claude