Extraction de donnée d'une chaine de caractére

[Defcom60]

Bonjour,


Ci joint un fichier excel contenant un tableau.

-je voudrais extraire dans la colonne commentaire la "famille Motif" et l'ajouter en fin de tableau.
- même chose pour "Société Emission" à ajouter en fin de tableau.

je voudrais l'extraction s'exécute en cliquant sur le bouton "extraction de données" sur l'intégralité du tableau.

merci d'avance pour votre aide.

 

[Cousinhub]

Re : Extraction de donnée d'une chaine de caractére

Bonsoir,

dans le code de la feuille :

Private Sub CommandButton1_Click()
Dim Cel As Range
Dim X As Integer, Y As Integer
Application.ScreenUpdating = False
For Each Cel In Range("F2:F" & [F65000].End(xlUp).Row)
    X = InStr(1, Cel, "Famille motif :")
    Y = InStr(X, Cel, " Motif :")
        Cel.Offset(, 4).Value = Mid(Cel, X + 16, Y - X - 16)
    X = InStr(1, Cel, "Société Emission :")
    Y = InStr(X, Cel, " Rédacteur :")
        Cel.Offset(, 5).Value = Mid(Cel, X + 19, Y - X - 19)
Next Cel
End Sub

Bonne soirée

 

[Tibo]

Re : Extraction de donnée d'une chaine de caractére

Bonjour,

Pour la Société Emission, en K2, cette formule :

=GAUCHE(STXT(F2;TROUVE("Société Emission";F2)+19;99);TROUVE(" ";
STXT(F2;TROUVE("Société Emission";F2)+19;99)))

à recopier vers le bas.

Pour la Famille motif : il faut que tu nous donnes plus de détails. Je ne vois pas comment on peut extraire le mot Climatisation (ou Prestation en régie) de ton texte.

@+

Edit : salut bhbh . Bonne soirée à toi, là-bas (avec j'imagine une météo à envier...)

@+

 

[Robert]

Re : Extraction de donnée d'une chaine de caractére

Bonjour Defcom, bonjour le forum,

Désolé mais j'ai pas compris ta demande. Tu veux extraire en fin (???) de tableau. Cela signifie donc que tu veux recopier les deux dernìeres colonnes ? Car tu ne précises pas si tu veux cela dans un autre onglet et lequel... Il nous faudrait plus d'explications pour pouvoir t'aider.

Édition :

Oooops je vois qu'il n'y a que moi qui navet (oui on peu l'envisager comme ça dans ce cas là...) rien compris...

 

[Cousinhub]

Re : Extraction de donnée d'une chaine de caractére

Salut, Tibo

(avec j'imagine une météo à envier...)

Ben, pas facile, pour un breton....

Pour le problème qui nous concerne, j'ai supposé une erreur de "casting"...
Il voulait sans doute mettre "Sols et murs", en ligne 2...

A voir...

 

[jp14]

Re : Extraction de donnée d'une chaine de caractére

Bonjour le fil

Ci joint le fichier avec une procédure

A tester

JP

 

[pierrejean]

Re : Extraction de donnée d'une chaine de caractére

bonjour Defcom60

Vois si cela te convient

Edit: Salut a tous
pour etre a la bourre je suis a la bourre !!!!

 

[CBernardT]

Re : Extraction de donnée d'une chaine de caractére

Bonjour à tous,

Je vois que le sujet interpelle !

Un essai parmi les votres

 

[Defcom60]

Re : Extraction de donnée d'une chaine de caractére

Bonjour tous le monde,

Merci pour toutes vaut réponse pour le moment j'ai testé la première solution qui fonctionne.

Je vais tester les autres.


merci

 

[Defcom60]

Re : Extraction de donnée d'une chaine de caractére

Bonjour,


j'ai un autre problème de filtration des dates.

je voudrais filtré tous les dates du mois de Novembre 2009 de la colonne "Date d'achèvement".

merci

 

[jeanpierre]

Re : Extraction de donnée d'une chaine de caractére

Bonjour Defcom60, le fil,

Dans la liste déroulante, tu choisis Personnalisé, et dans le premier champ Est supérieur ou égal à et tu indiques 01/11/209.

Dans le second, Est inférieur ou égal à et 30/11/2009.

Tu termines par OK.

Bon après-midi.

Jean-Pierre

 

[Defcom60]

Re : Extraction de donnée d'une chaine de caractére

Merci j'avais pas essayer avec supérieur ou égal.