Discussion :

[laurent27530]

Bonjour,

Je voudrais pouvoir extraire des chaine de caracteres se trouvant dans une cellule pour les mettre dans des colonnes différentes

dans la cellules A1 j'ai le texte suivant
Analyse :
Le serveur est figé
Actions Correctives :
Reboot effectué
Incident Récurrent : NON


dans B1 je voudrais mettre la partie Analyse dans mon cas Le serveur est figé
dans C1 je voudrais mettre la partie Actions Correctives dans mon cas Reboot effectué
Dans D1 je voudrais mettre la partie Incidents Récrrent dans mon cas NON


Pouvez vous m'aider dans la syntaxe de la requite ?

Merci d'avance

[kiki29]

Salut, à titre de curiosité : Manipuler les chaînes de caractères en VB6 et VBA Excel

[laurent27530]

Merci mais je ne trouve pas mon Bonheur

Moi j'aurai besoin de savoir comment extraire entre 2 groups de mots
Sur les exemples ne parle que d'extraction entre des caracteres simple.

pour B1 entre "Analyse :" et "Actions correctives :"
Pour C1 entre "Actions correctives :" et "incidents Récurrents"
Pour D1 les caracteres après "incidents Récurrents : "

[illight]

Salut !


J'ai une solution, qui est très sale si tu veux

Tu utilise la fonction Split sur ta cellule :

Code :

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

TabCarac() = split(range("A1").value;chr(10))

ça te permettrai déjà de couper ta cellule. Le problème est que vu que le "NON" est sur la même ligne, ça marche pas pour la dernière...

[patricktoulon]

bonjour

quand tu elargie ta cellules est ce que le texte se met sur une seule ligne ??

si c'est le cas c'est ton affichage qui met des saut de ligne au quel cas il va te faloir proceder autrement

ensuite

ton texte est toujour comme ca" le seveur est figé balblabla "

si c'est les cas il va te faloir utiliser pour ton split les mot récurrents

[laurent27530]

bonjour,


je viens de trouver cette facon avez vous une solution plus propre ?


Range("B1") = Split(Range("A1").Value, "Actions Correctives :")
Range("C1") = Split(Range("A1").Value, "Incident Récurrent :")
Range("C1") = WorksheetFunction.Substitute(Range("C1"), Range("B1"), "")
Range("D1") = Right(Trim(Range("A1")), 3)