Separation texte

Bonjour a tous ,

Voici le problème :

j'ai une colonne situé (colonne H) qui possède un lieu + un service

Or moi je voudrai que le service soit en colonne i

au vu du nombre de lignes, il serait long de faire la manip a la main

l'avantage c'est que le service est cité par "Sce"

donc ce qu'il faudrait faire c'est des qu'il trouve ce terme, il le bascuse sur la colonne suivante

sachant également que les cellules ne sont pas de mêmes taille

Merci de votre aide

Cordialement,

bonjour

sans fichier au cas ou , essaies cela

SI(ESTERREUR(SI(TROUVE("Sce";H1;1)>0;"service";""));"";SI(TROUVE("Sce";H1;1)>0;"service";""))

a+

Bonjour,

essaies cette macro

Const col As Byte = 8  ' 8 pour H, 1pour A, 2 pour B etc...
Const lig As Byte = 1 'ligne de départ... a adapter
Sub sortir_service()
derlig = Cells(Cells.Rows.Count, col).End(xlUp).Row
Application.ScreenUpdating = False
For cptr = lig To derlig
    tablo = Split(Cells(cptr, col), "sce")
    Cells(cptr, col) = RTrim(tablo(0))
    Cells(cptr, col + 1) = LTrim(tablo(UBound(tablo)))
Next

End Sub

Au cas où tu ne serais pas comment l'installer, tu nous demandes

j'ai du mal m'exprimer dsl.

en colonne H j'ai une colonne avec ceux ci

CENTRE HOSPITALIER Sce ONCOLOGIE

au final je voudrais

en colonne H : CENTRE HOSPITALIER

en colonne I : Sce neuro

Merci de votre aide

Cdt,

-- 01 Oct 2010, 13:36 --

j'ai teste la macro

donc,

j'ai un message d'erreur :

L'indice n'appartient pas à la sélection

et cela se trouve lorsque la colonne H est vide

sinon les 2 premières lignes il a recopié exactement la colonne H dans I

or moi je voudrais qu'a partir de "Sve"

Merci de votre aide

bonjour

j'ai cela

sinon il y a données >convertir

vois si cela t'aide cordialement

je me suis trompé j'ai utilisé Sce au lieu de sve

RE,

dans ton 1° message tu indiquais "sce" maintenant tu parles de "sve": pas étonnant alors que tout soit rapporté en colonne I

j'ai donc tenu compte de la ligne vide et mis en paramètres constantx ce terme "sve" ou "sce": décides toi pour ton vrai terme !

pour le fun, expliques moi comment le service oncologie devient neurologie: réforme des hôpitaux ??

Const col As Byte = 8  ' 8 pour H, 1pour A, 2 pour B etc...
Const lig As Byte = 1 'ligne de départ... a adapter
Const separateur As String = "sce"
Sub sortir_service()
derlig = Cells(Cells.Rows.Count, col).End(xlUp).Row
Application.ScreenUpdating = False

For cptr = lig To derlig
    If Not IsEmpty(Cells(cptr, col)) Then
        tablo = Split(Cells(cptr, col), separateur)
        Cells(cptr, col) = RTrim(tablo(0))
        Cells(cptr, col + 1) = separateur & " " & LTrim(tablo(UBound(tablo)))
    End If
Next

End Sub

Bon WE