Extraire une valeur

Bonjour,

Je travail actuellement sur VBA Excel 2010 (au cas où). Je cherche à extraire des données contenu dans des cellules, mais toutes différentes, cependant les données que je cherche sont standard, par exemple, mes données sont :

4589 Danser

Nager 4589

nager la nuit 4551

Ce que je cherche à extraire ici est le nombre 45XX

Comme vous les voyez, ils commencent tous par 45 et comportent 4 chiffres. Cependant, le fait que ce nombre peut être placé un peu n'importe où me dérange. Je pensais y arriver, mais au final, je ne vois pas trop comment procéder dans ce cas-ci :/

Bonjour @ tous,

en B1 :

=CNUM(STXT(A1;TROUVE("45";A1);4))

@ tirer vers le bas

@ + +

Bonjour,

Merci beaucoup, est-il possible de le faire en VBA ? (raison pratique dans le cadre de mon utilisation)

Merci beaucoup, c'est exactement ce que je veux faire, mais dans un "langage" différent

Je m'excuse de ne pas avoir précisé,

Cordialement,

Jule04

Bonjour,

en VBA utiliser les fonctions Instr et Mid …

Bonjour,

Ci-dessous une fonction personnalisée, à utiliser dans ton code.

Elle fonctionne comme une fonction de feuille de calcul.

Option Explicit
Public Function Search45xx(Cell As Range)
Dim x As Double
    If IsEmpty(Cell) Then
        Search45xx = ""
        Exit Function
    End If
    x = WorksheetFunction.FindB("45", Cell.Value, 1)
    Search45xx = CInt(Mid(Cell.Value, x, 4))
End Function