Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

VBA Aller à la ligne en milieu de cellule

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion losanz
  • Date de début Date de début

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 !

S'inscrire
L

losanz

Guest
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.
 
Trier par date Trier par votes
Bonjour Losanz, le forum,

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

Code: 
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
 
Vote positif 0 Vote négatif
😛 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... 😉
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

H
  • Question Question
XL 2019 masquer des colonne sous condition d'une cellule en vba
Réponses
5
Affichages
247
sylvanu
C
  • Question Question
XL 2016 récupérer la mise en forme d'une cellule vers une autre cellule
Réponses
1
Affichages
640
TooFatBoy
J
  • Question Question
Autres Extraire chaque mot d'une phrase dans plusieurs cellule en colonne même ligne
2
Réponses
17
Affichages
569
jmst1
J
A
  • Question Question
Microsoft 365 Tri sur feuille protégée +Aide protection de données déjà saisies
Réponses
2
Affichages
518
TooFatBoy
F
  • Question Question
XL pour MAC utilisation de Subtotal en VBA-Excel. - détection de la ligne des titres
Réponses
3
Affichages
224
sylvanu
C
  • Résolu(e)
Microsoft 365 Recherche de doublons à plusieurs critères sur plusieurs colonnes
Réponses
4
Affichages
359
job75
D
  • Résolu(e)
Microsoft 365 VBA Déplacement de la cellule active dans une ligne sélectionnée
Réponses
11
Affichages
530
danielco
D
C
  • Résolu(e)
Autres Validation de données avant verrouillage de la ligne
2
Réponses
17
Affichages
767
com689
C
A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
579
sylvanu
  • Résolu(e)
XL 2021 VBA - Comment ajuster la largeur d'une colonne sur une cellule qui contient des retours à la ligne
Réponses
9
Affichages
508
Phil69970
N
  • Question Question
Microsoft 365 Propagation de formule dans un tableau avec des valeurs existantes (saisies manuellement)
Réponses
4
Affichages
389
NikonvsWild
N
A
  • Question Question
Microsoft 365 créer un lien vers une cellule dont la ligne est fluctuante
Réponses
3
Affichages
338
AtTheOne
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
868
piga25
S
  • Résolu(e)
Microsoft 365 Mailing mise en forme HTML : revenir à la ligne automatique si trop de texte saisie
2
Réponses
17
Affichages
1 K
spike29
S
M
  • Résolu(e)
XL 2010 Ressortir uniquement les nombres de la musique d'une course hippique
Réponses
5
Affichages
418
mamarus1
M
A
  • Résolu(e)
Microsoft 365 programme VBA pour "importer" les valeurs de certaines cellules d'une autre feuille appartenant à une ligne que j'identifie par un n°
2
Réponses
27
Affichages
1 K
arnomorize
A
A
  • Résolu(e)
XL 2016 Recherche d'un mot dans une cellule et surlignage de la ligne
Réponses
4
Affichages
571
Abi23
A
W
  • Question Question
XL 2019 Changer la graisse et la taille avant le deuxième retour à la ligne dans une cellule
Réponses
6
Affichages
263
Webperegrino
W
P
  • Résolu(e)
XL 2021 peut on mettre plusieurs fonctions si erreur index les une à la suite des autres
Réponses
9
Affichages
275
PR.
P
  • Résolu(e)
Microsoft 365 VBA - BeforeDoubleClick, 1ère cellule vide à partir de cellule active pour insertion de ligne
Réponses
4
Affichages
438
AlCapone
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…