VBA - Compte mots et caractères

Atiom · 20 Mai 2015

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 · 21 Mai 2015

Re : VBA - Compte mots et caractères

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

Code:

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 · 21 Mai 2015

Re : VBA - Compte mots et caractères

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

VBA - Compte mots et caractères

Atiom

XLDnaute Occasionnel

Pièces jointes

david84

XLDnaute Barbatruc

Atiom

XLDnaute Occasionnel

Discussions similaires

VBA - Compte mots et caractères

Atiom

XLDnaute Occasionnel

Pièces jointes

david84

XLDnaute Barbatruc

Atiom

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency