extraire date et nombre dans une chaine de caractères

[pascal21]

Date:04/10/2010
Machine:380
Kms:
Heures:
Intervenants:
Interventions:
Détails:

bonjour
j'ai colonne C cette série de caractères présentée à la ligne comme celà
j'aimerais colonne A extraire la date
et colonne B extraire le numéro machine, toujours 3 chiffres
j'ai essayé avec =gauche() mais ça me copie le contenu depuis le mot date
merci de votre aide

 

[Tibo]

Re : extraire date et nombre dans une chaine de caractères

Bonjour,

En A1 :

=STXT(C1;TROUVE(":";C1)+1;99)*1

à mettre au format Date

en B1 :

=GAUCHE(C1;TROUVE(":";C1)-1)

à recopier en ligne 2 (sans le format Date)

@+

 

[Pierrot93]

Re : extraire date et nombre dans une chaine de caractères

Bonjour,

essaye peut être la conversion de données, tu sélectionnes ta colonne => barre de menu Excel => Données => convertir => Etape 1 "délimité" => Etape 2 tu coches "autre" et tu mets les :

bonne journée
@+

Edition : bonjour Tibo🙂

 

[Pierrot93]

Re : extraire date et nombre dans une chaine de caractères

Re,

une solution vba :

Option Explicit
Sub test()
Dim c As Range
For Each c In Range("A1", Range("A65536").End(xlUp))
    If InStr(c, ":") > 0 Then c.Offset(0, 1) = Split(c, ":")(1)
Next c
End Sub

@+

 

[pascal21]

Re : extraire date et nombre dans une chaine de caractères

bonjour Pierrot, tobo
pour la conversion de données j'y étais justement, çà fonctionne en masquant les colonnes qui ne servent pas çà aurait pu faire
le problème est que si les données changent la conversion ne se fait pas
ou alors je ne n'ai pas vu
je vais essayé la méthode à tibo
qu'il faudra que j'intègre dans un code en VBA car la feuille est sensée etre supprimée puis recrée avec les nouvelle données

 

[Pierrot93]

Re : extraire date et nombre dans une chaine de caractères

Re,

regarde mon post de 7h52, je proposais justement un vba....

 

[pascal21]

Re : extraire date et nombre dans une chaine de caractères

re pierrot
j'étais entrain de de l'essayer et je n'arrive pas à le faire fonctionner
rien ne se passe
je vais sauvegarder et emmener tout çà au boulot pour y jeter un oeil
les solutions de Tibo ne fonctionne pas je n'ai pas les résultats excomptés
en a1 j'ai valeur#
et en B1 j'ai date
remarque: c'est ce que j'ai demandé lol !!!!!🙂

j'aimerais extraire la date 😱 😛

 

[Pierrot93]

Re : extraire date et nombre dans une chaine de caractères

Re,

le code proposé, boucle sur la colonne A et envoie les donnée après les : en colonne B, rien ne t'empêche de modifier les colonnes....

 

[pascal21]

Re : extraire date et nombre dans une chaine de caractères

petite précision sur les données de la colonne C
il s'agit d'une extraction d'un d'un commentaire
il se peut que çà soit du texte et que ton code ne puisse le collecter car je viens encore d'essayer en le mettant sur l'activate de la feuille et rien ne se passse

 

[Pierrot93]

Re : extraire date et nombre dans une chaine de caractères

Re,

si le texte est bien dans une cellule, cela devrait fonctionner....

 

[pascal21]

Re : extraire date et nombre dans une chaine de caractères

]on c'est peut être pas compris
les données collectées sont dans la colonne C
et la date doit se trouver dans la colonne A et le n°machine dans la colonne B
voila ce que j'obtiens si je modifie un peu ton code comme ça

Dim c As Range
For Each c In Range("c1", Range("c65536").End(xlUp))
    If InStr(c, ":") > 0 Then c.Offset(0, -2) = Split(c, ":")(1)
Next c

"04/10/2010
Machine"

c'est déjà un début de piste
j'ai résolu le problème en mettant un : devant Machine
je venais seulement d'arriver à lire ton code
qui doit être grosso modo inscrire ce qu'il y a entre des :
maintenant comment faire pour la machine en changeant le : par un . ou autre chose
bon aller il faut que j'aille au boulot j'y regarde tout à l'heure

 

[Pierrot93]

Re : extraire date et nombre dans une chaine de caractères

Re,

le code ne fait pas de "distingo", tout ce qui est après les : ira colonne A.... pour faire ce que tu veux il faut tester autrement, à savoir utiliser l'opérateur "like" pour comparer le début de la chaîne, maintenant à savoir si les chaînes de caractères sont reproduites à l'identique....

 

[Pierrot93]

Re : extraire date et nombre dans une chaine de caractères

Re,

regarde peut être ceci :

Option Explicit
Sub test()
Dim c As Range
For Each c In Range("C1", Range("C65536").End(xlUp))
    If InStr(c, ":") > 0 Then
        If c.Value Like "Date*" Then
            c.Offset(0, -2) = Split(c, ":")(1)
            ElseIf c.Value Like "Machine*" Then c.Offset(0, -1) = Split(c, ":")(1)
            Else
            MsgBox "j'en sais rien..."
        End If
    End If
Next c
End Sub

 

[hoerwind]

Re : extraire date et nombre dans une chaine de caractères

Bonjour à vous tous,

Quand je vois le nombre de messages pour répondre à une petite question qui devrait pourtant être simple à résoudre, je me demande bien ce que notre ami Pascal attend pour mettre un petit exemple en pièce jointe ?

 

[pascal21]

Re : extraire date et nombre dans une chaine de caractères

Bonjour à tous
hoerwin a raison j'aurais dù commencer par proposer un ptit' exemple
donc le voilà