XL 2013 Extraire un terme d'une cellule

[Mathieu_dup]

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]

Bonjour Mathieu

Un essai avec fonction personnalisée

 

[Jocelyn]

Bonjour le Forum,
Bonjour Mathieu-dup, pierrejean ,

Principalement pour saluer pierrejean et accessoirement faire une proposition formule

Cordialement

 

[Mathieu_dup]

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]

Bonsour®

Bonjour Mathieu

Un essai avec fonction personnalisée

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

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]

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]

Bonsour®

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]

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

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

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]

Bonjour JM et les autres,

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

A+

 

[Staple1600]

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]

Re,

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 :

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

A+

 

[Staple1600]

Re

@job75

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

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.