Code pour supprimer des mots dans une cellule texte

Bonjour,

Je voudrais savoir s'il possible de supprimer un mot dans une cellule texte, si par exemple, le nombre de caractère est supérieure a 52

, supprimer le mot Bleu

En B1 le nombre de caractere , en A1 la phrase

Exemple Joint

Merci

Bonsoir Totoche31

Voici un exemple avec un peu de VBA dans la feuille

Bon je n'ai pas trouvé le mot "bleu", bon vu le temps aussi

A+

Merci pour cela ...

Cependant, désolé pour ma méconnaissance, j'ai bien vu le code. Mais, Il n'y a pas de macro attaché pour exécuter le code ?

Ou cela s'exécute tout seul ? fonction du contenu de la cellule.. je dois loouper quelque chose

Merci bcp

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sTmp As String, NbCar As Integer
' Sortir si plus d'une cellule est sélectionnée
If Target.Count > 1 Then Exit Sub
' Vérifier si saise dans colonne A
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
' Sinon
sTmp = Target.Value
NbCar = Target.Offset(0, 1).Value
' Si pas de nombre de caractères déterminé, on sort
If NbCar = 0 Then Exit Sub
' Vérififcation
If Len(sTmp) > NbCar Then
Do While Len(sTmp) > NbCar
sTmp = Left(sTmp, InStrRev(sTmp, " ") - 1)
Loop
' On inscrit le texte tronqué au dernier espace
Application.EnableEvents = False
Target.Value = sTmp
Application.EnableEvents = True
End If
End Sub

Re,

Oula Totoche31 c'est la base du VBA

Avez-vous essayé au moins le fichier donné ?

Le code est mis dans la feuille, il s'agit de l'évènement "Change",
donc à chaque modification sur la feuille, la procédure est exécutée

Rien besoin d'autre

A+

Ben oui, j'ai bien sur ouvert le document, modifier le contenu de la cellule A1...

Mais j'ai pas vu de changement...

Desolé

Re,

Normal le nombre de caractères voulu est le même que celui du texte 😜

Changer le nombre à 45 par exemple, retournez en A1, appuyez sur F2 (mode édition) puis Entrée

Et vous verrez

Merci effectivement cela fonctionne

Mais le besoin se confirme plus précisément.

Est il possible par exemple si le nombre de Caractères en A1 est Supérieur a 80 de supprimer un mot , par exemple le mot "voiture" ?

Bonsoir Totoche31

Heu comment dire

C'est ce que je fais avec mon code, j'avais vu le besoin arriver de loin

Ici je récupère la gauche du texte avec en longueur, l'espace avant le dernier mot

sTmp = Left(sTmp, InStrRev(sTmp, " ") - 1)

Comme ça je ne coupe jamais de texte

A+