VBA Aller à la ligne en milieu de cellule

[losanz]

Bonjour à tous,

Je souhaiterais, sous VBA:

aller à la ligne dans une cellule lorsque l'on trouve un caractére particulier dans cette cellule:

Exemple:

Texte de la cellule :' Personne n°1 Absent pour maladie'
donnerait
' Personne n°1
Absent pour Maladie '.
La fonction trouverait le mot Absent et insérerait une mise à la ligne [ chr(10) par ex.]

Merci.

 

[soft]

Bonjour Losanz, le forum,

Voilà un petit bout de code pour faire ce que tu demande :

Dim STR As String, I As Integer
    STR = Range('A1').Value
    I = InStr(1, STR, 'Absent')
    If I > 0 Then
        Range('A1') = Left(STR, I - 1) & Chr(10) & Right(STR, Len(STR) - I + 1)
    Else
        Range('A1').WrapText = False
    End If

 

[losanz]

Ce qui s'appele une auto-réponse...
Je ne citerai pas ici le proverbe 'on n'est jamais mieux servit que par soi-même', car combien de fois et d'autant plus sur ce site, on se rend compte que l'aide des autres apporte beaucoup.
Il n'y à qu'a voir les le nombre de réponses fournies par des 'Monique', 'André', 'Thierry' et autres xldiens. Merci à eux.

La reponse donc:

Caract = 'Absent'
ActiveCell.Replace _
What:=Caract, Replacement:=Chr(10) & Caract, _
SearchOrder:=xlByColumns, MatchCase:=True

Ca peut toujours servir...

 

[losanz]

Merci 'utilisateur'.

j'ai posté mon message sans avoir vu ta réponse.

Ca nous donne donc deux possibilité,

 

[soft]

Petite précision :
'Utilisateur' c'est mon statut actuel comme pour toi s'affiche 'Visiteur'