Discussion :

[paf26]

Bonjour,

j'aurais besoin de savoir comment je fais pour vérifier qu'une cellule contient un texte avec des retours ligne au milieu:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if (texte.ligne1 & vbcrlf & texte.ligne 2 & ...)= string??? then

donc j'ai ma cellule qui contient le texte, sur plusieurs lignes. Ma question: je met quoi dans la string??

j'ai essayé avec des "ligne 1" & chr(13)&..; ou avec des vbcrlf mais a chaque fois il trouve que le texte correspond pas quand il devrait...

Donc que faut-il lui mettre?

Merci

[Stanler]

Bonjour,

Le saut de ligne est le Chr(13), je pense donc à une recherche tel que : "If Cells(tacellule) contient le chr(13) then...". Je ne sais pas coder cela par contre :s

[Philippe Tulliez]

Bonjour,
Le saut à la ligne dans une cellule est Chr(10) soit la constante vbLf (inséré par Alt+Enter). Une des façons de le détecter est par l'utilisation de la fonction Instr
Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 If InStr(Range("G2").Value, vbLf) Then MsgBox "Ce texte contient un retour à la ligne"

[paf26]

ok merci, j'en sais un peu plus

Mais du coup ca a l'air un peu plus complexe de vérifier ce que je veux:

Dans ma cellule, j'ai plusieurs textes possibles:
texte 1 possible:
exemple :
"blablabla 'retour ligne dans le texte vblf
suitetexte1"
texte 2 possible:
"bliblibli 'retour ligne dans le texte vblf
suitetexte2"

donc pour savoir lequel est dans la case je fait comment? (sachant que je connais toutes les possibilités.)

Je suis obligé de découper ma chaine en plusieurs morceaux?

[Philippe Tulliez]

Bonjour,
Pour découper toutes les parties séparées pas un saut à la ligne, tu peux utiliser la fonction Split.
Exemple (ne pas oublier lors de la mise en production d'ajouter la filiation complète de la cellule (Classeur + Feuille)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 Dim tblo() As String, Elem As Byte
 tblo = Split(Range("G2").Value, vbLf)
 For Elem = 0 To UBound(tblo)
  MsgBox tblo(Elem)
 Next

[paf26]

Ok merci impeccable, je met résolu!