XL 2013 Extraire un terme d'une cellule

Mathieu_dup · 13 Juillet 2018

Bonjour à tous,

Je voudrais extraire un terme d'une cellule mais je n'ai pas forcément d'idée de formule à utiliser pour y arriver.

En fait, c'est une extraction d'une base de données et dans la colonne "Commentaire" j'aimerais extraire les 6 chiffres qui se trouve juste après les termes IP.

Exemple :
A B (extraction)
1- Suite à commande, nous sortons un IP 123456 123456
2- Article IP 345678 plus en stock 345678

Je sais pas si c'est assez clair.

Merci pour votre aide

Mathieu

pierrejean · 13 Juillet 2018

Bonjour Mathieu

Un essai avec fonction personnalisée

Jocelyn · 13 Juillet 2018

Bonjour le Forum,
Bonjour Mathieu-dup, pierrejean ,

Principalement pour saluer pierrejean et accessoirement faire une proposition formule

Cordialement

Mathieu_dup · 13 Juillet 2018

Merci à tous les deux, les deux solution fonctionne très bien, par contre comment je peux récupérer la fonction personnalisé pour l'insérer dans mon fichier ?

Modeste geedee · 13 Juillet 2018

Bonsour®

pierrejean à dit:
Bonjour Mathieu

Un essai avec fonction personnalisée

Histoire de pinailler …
s'il n'y a pas 6 chiffres contigus ???

VB:

Function IP_6num(cellule)
Dim x
x = InStr(cellule, "IP")
If x Then
For i = x To Len(cellule)
IP = Mid(cellule, i, 6)
If IP Like "######" Then IP_6num = CLng(IP): Exit Function
Next
End If
IP_6num = "? IP"
End Function

pierrejean · 13 Juillet 2018

Re
@Mathieu

Faire Alt F11 pour aller dans l’éditeur Vba puis copier la fonction (Module1) et la coller au même endroit dans ton fichier

@Modeste
345-678 comme réponse est peut-etre plus juste que 345678 !!!

Modeste geedee · 13 Juillet 2018

Bonsour®

pierrejean à dit:
Re
@Mathieu

Faire Alt F11 pour aller dans l’éditeur Vba puis copier la fonction (Module1) et la coller au même endroit dans ton fichier

@Modeste
345-678 comme réponse est peut-etre plus juste que 345678 !!!

comme à l'habitude c'est au répondeur d'élaborer le jeu d'essai !!!

Staple1600 · 14 Juillet 2018

Bonsoir le fil, le forum

Pour les gens qui aiment regarder leurs doigts en action
(Si les données en colonne A)
F5
A:A
ENTER
CTRL+H
ALT+C
IP ESPACE
TAB
$
ALT+A
ESC
Données/Convertir
ALT+D
ALT+S
ALT+R
$
ALT+S
ALT+C
ALT+E
B1
ALT+T
F5
B:B

Finalement,mes doigts devenant gourds, je me suis résolu à macroter

VB:

Sub Macro1()
Dim ension
Dim inutif
ension = Array(Array(1, 9), Array(2, 1))
inutif = Array(Array(1, 1), Array(2, 9), Array(3, 9), Array(4, 9))
Application.Goto Reference:="C1"
Selection.Replace What:="IP ", Replacement:="$", LookAt:=xlPart, SearchOrder:=xlByRows
Selection.TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, Space:=False, Other:=True, OtherChar:="$", FieldInfo:=ension
Application.Goto Reference:="C2"
Selection.TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, Space:=True, FieldInfo:=inutif
End Sub

EDITION: La même macro mais sans Selection

VB:

Sub Macro1B()
Dim ension: ension = Array(Array(1, 9), Array(2, 1))
Columns(1).Replace What:="IP ", Replacement:="$", LookAt:=2, SearchOrder:=1
Columns(1).TextToColumns Destination:=Range("B1"), DataType:=1, Space:=0, Other:=-1, OtherChar:="$", FieldInfo:=ension
Columns(2).TextToColumns Destination:=Range("B1"), DataType:=1, Space:=-1, FieldInfo:=Array(1, 1)
Columns(3).Resize(, Columns.Count - 2).ClearContents
End Sub

job75 · 14 Juillet 2018

Bonjour JM et les autres,

Perso en VBA j'utilise peu .TextToColumns car je trouve que c'est lourdingue.

A+

Staple1600 · 14 Juillet 2018

Bonjour le fil, le forum, job75

@job75
Que ce soit lourdingue ou pas, perso j'en sais rien.
J'ai juste proposé une autre façon de faire.

J'aurai pu aussi m'embarquer sur RegExp

L'essentiel c'est de participer, non ?

job75 · 14 Juillet 2018

Re,

Staple1600 à dit:
Que ce soit lourdingue ou pas, perso j'en sais rien.
J'ai juste proposé une autre façon de faire.

Les solutions simples sont souvent les meilleures :

Code:

Sub Cherche()
[A1].CurrentRegion.Offset(1).Columns(2) = "=IFERROR(--MID(A2,FIND(""IP"",A2&""IP"")+3,6),"""")"
End Sub

A+

Staple1600 · 14 Juillet 2018

Re

@job75

job75 à dit:
Re,
Les solutions simples sont souvent les meilleures
A+

Effectivement, dans ce cas alors, pas besoin de VBA
Mettre la formule:=SIERREUR(--STXT(A2;TROUVE("IP";A2&"IP")+3;6);"") en B2 puis double-clic coin droit bas de B2

Et comme cela on rejoint la demande du premier message

Mathieu_dup à dit:
Bonjour à tous,
Je voudrais extraire un terme d'une cellule mais je n'ai pas forcément d'idée de formule à utiliser pour y arriver.

XL 2013 Extraire un terme d'une cellule

Mathieu_dup

XLDnaute Nouveau

pierrejean

XLDnaute Barbatruc

Pièces jointes

Jocelyn

XLDnaute Barbatruc

Pièces jointes

Mathieu_dup

XLDnaute Nouveau

Modeste geedee

XLDnaute Barbatruc

pierrejean

XLDnaute Barbatruc

Modeste geedee

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

Staple1600

XLDnaute Barbatruc

Discussions similaires