VBA - Compte mots et caractères

[Atiom]

Bonsoir le forum,

Je recherche à faire la macro suivante:

Dans une phrase si la cellule contient plus que 40 caractères alors passé les 2 derniers mots dans la colonne suivante.
Ci-joint un fichier comme exemple pour une meilleure compréhension.

Merci de votre aide.

 

[david84]

Re : VBA - Compte mots et caractères

Bonjour,
un essai à améliorer et à adapter de ton côté :

Sub test()
Dim Pl As Range, c As Range, s
Range("J11:K24").Clear
Set Pl = Range("B11:B24")
For Each c In Pl
  'If Len(Replace(c.Value, " ", "")) > 40 Then
  If Len(c.Value) > 40 Then
    s = Split(c)
    c.Offset(, 8) = Replace(Replace(c, s(UBound(s) - 1), ""), s(UBound(s)), "")
    c.Offset(, 9) = s(UBound(s) - 1) & " " & s(UBound(s))
  Else
    c.Offset(, 8) = c.Value
  End If
Next c
End Sub

A+

 

[Atiom]

Re : VBA - Compte mots et caractères

Bonsoir david84,
Impeccable.
Fonctionne parfaitement.
Merci.
Bonne soirée