Supprimer d'une cellule le texte d'une autre cellule

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Mastergonk

XLDnaute Nouveau
Bonjour à tous,

après avoir recherché en vain dans le forum la solution à mon problème, je me vois contraint d'ouvrir ce post pour vous poser ma question :

Je recense les contacts de plusieurs collaborateurs dans un fichier Excel, qui comporte une colonne par type de donnée (PRENOM, NOM, ENTREPRISE, ...)
Un des collaborateurs ne peut me fournir qu'un fichier dans lequel le prénom du contact est répété dans la cellule NOM à la suite du nom du contact. Ainsi, pour Jean DURAND, la colonne PRENOM comporte bien "Jean", mais la colonne NOM comporte "DURANDJean".

Existe-t-il une solution pour pour supprimer le prénom de la colonne "NOM" ?

Merci par avance de votre aide !
Cyril
 
Re : Supprimer d'une cellule le texte d'une autre cellule

Bonjour Mastergonk

Une fonction personnalisée a tester
Edit Salut kiseki

Code:
Function nom_seul(nom_entier, prenom)
nom_seul = UCase(Trim(Replace(LCase(nom_entier), LCase(prenom), "")))
End Function
 
Re : Supprimer d'une cellule le texte d'une autre cellule

Merci pour vos réponses.
Kiseki, ci-joint un exemple de mon fichier.
Pierrejean, comment puis-je intégrer cette fonction ? (désolé, sans doute une question de débutant 🙄)
 

Pièces jointes

Re : Supprimer d'une cellule le texte d'une autre cellule

Re

La fonction est a copier dans un module standard (Visual Basic > insertion > Module)
Ensuite elle est utilisée comme toutes les autres fonctions
Elle est repertoriée dans le groupe personnalisées de la liste presente dans insérer une fonction qui apparait lorsque l'on clique sur le fx de la barre de formule
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour