Conversion fichier excel
Résolu/Fermé
Luke5310
Messages postés
58
Date d'inscription
mardi 4 août 2009
Statut
Membre
Dernière intervention
25 janvier 2017
-
18 avril 2014 à 16:02
Luke5310 Messages postés 58 Date d'inscription mardi 4 août 2009 Statut Membre Dernière intervention 25 janvier 2017 - 21 avril 2014 à 19:56
Luke5310 Messages postés 58 Date d'inscription mardi 4 août 2009 Statut Membre Dernière intervention 25 janvier 2017 - 21 avril 2014 à 19:56
A voir également:
- Conversion fichier excel
- Fichier rar - Guide
- Liste déroulante excel - Guide
- Fichier host - Guide
- Fichier iso - Guide
- Comment réduire la taille d'un fichier - Guide
4 réponses
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
18 avril 2014 à 16:10
18 avril 2014 à 16:10
Bonjour,
Comme tu ne dis pas où il faut séparer, impossible de t"aider...
Comme tu ne dis pas où il faut séparer, impossible de t"aider...
via55
Messages postés
14402
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 avril 2024
2 702
18 avril 2014 à 16:14
18 avril 2014 à 16:14
Bonjour
Si j'ai bien tout compris :
Avec la phrase à découper en A3
En première colonne mettre :
=GAUCHE(A3;CHERCHE("a été imprimé";A3)-1)
En 2eme :
=STXT(A3;CHERCHE("a été imprimé";A3);CHERCHE(", nombre ";A3) -CHERCHE("a été imprimé";A3))
et en 3eme :
=DROITE(A3;NBCAR(A3)-CHERCHE(", nombre";A3))
Cdlmnt
Si j'ai bien tout compris :
Avec la phrase à découper en A3
En première colonne mettre :
=GAUCHE(A3;CHERCHE("a été imprimé";A3)-1)
En 2eme :
=STXT(A3;CHERCHE("a été imprimé";A3);CHERCHE(", nombre ";A3) -CHERCHE("a été imprimé";A3))
et en 3eme :
=DROITE(A3;NBCAR(A3)-CHERCHE(", nombre";A3))
Cdlmnt
Gyrus
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
523
18 avril 2014 à 16:34
18 avril 2014 à 16:34
Bonjour,
Ou avec VBA
A+
Ou avec VBA
Sub Separer()
Dim Cel As Range
Dim T1 As String, T2 As String, T3 As String
Dim Tablo1, Tablo2, Tablo3
T1 = "le document "
T2 = " a été imprimé par "
T3 = ", nombre de pages imprimées : "
For Each Cel In Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)
Cel.Offset(0, 1) = Split(Split(Cel, T1)(1), T2)(0)
Cel.Offset(0, 2) = Split(Split(Split(Cel, T1)(1), T2)(1), T3)(0)
Cel.Offset(0, 3) = Split(Split(Split(Cel, T1)(1), T2)(1), T3)(1)
Next Cel
End Sub
A+
Luke5310
Messages postés
58
Date d'inscription
mardi 4 août 2009
Statut
Membre
Dernière intervention
25 janvier 2017
7
Modifié par Luke5310 le 21/04/2014 à 19:56
Modifié par Luke5310 le 21/04/2014 à 19:56
Merci beaucoup pour vos réponses via55 et Gyrus !
Je n'ai pas répondu avant étant donné que je n'avais plus le fichier sous les yeux mais là je viens de tester (juste en remplaçant les ; par des , car sinon ça me renvoyait toujours une erreur) et ça répond exactement à mes attentes :)
Encore une fois merci, je clos le sujet.
Je n'ai pas répondu avant étant donné que je n'avais plus le fichier sous les yeux mais là je viens de tester (juste en remplaçant les ; par des , car sinon ça me renvoyait toujours une erreur) et ça répond exactement à mes attentes :)
Encore une fois merci, je clos le sujet.