Discussion :

[solorac]

Bonjour la Communauté,

J'ai un nouveau petit pb. J'effectue une recherche verticale sur les cellulles au format texte en me référent à une base au format stantard.

J'ai essayé de me servir de la fonction collage spécial (multiplication par 1), cela fonctionne pour les cellules qui ont uniquement des nombres, pour celles qui contiennent de l'alphanumérique j'ai une valeur# qui apparait.

Quelqu'un aurait une idée ?

Merci et à bientôt

[tibo59]

Bonsoir,

Une piste, quoique je ne sois pas sûr d'avoir bien compris.

Ta colonne est au format texte

Le RECHERCHEV que tu fais peut porter sur du texte ou des nombres.

d'où cette formule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=RECHERCHEV(A1&"";plage_cellules;colonne;0)

=e &"" permet de tout transformer en texte.

Si pas ça, reviens avec plus de détails.

Bonne soirée

@+

[Michel_M]

bonsoir,

j'ai pas trop pigé ta demande: si tu as du texte et des nombres dans ta cellule, tu ne pourras pas transformer en nombre...

Par contre il existe la possibilité d'extraire les nombres uniquement; la fonction ci dessous serait à transformer en sub pour agir sur la m^me cellule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
Option Explicit
 '' A partir d'un topo de Charles A. http://cafeine.developpez.com/access/tutoriel/regexp/
 ' la bibliothèque Microsoft VBSCRIPT REGULAR EXPRESSIONS 5.5 doit être activée
 
 'Michel_M mai 2006
 
 Function extrait_nbre(ByRef texto As String) 'As Double
    Dim reg As VBScript_RegExp_55.regexp
    Dim digit As VBScript_RegExp_55.Match
    Dim extraction As VBScript_RegExp_55.MatchCollection
 
   ' instancie
    Set reg = New VBScript_RegExp_55.regexp
 
    '  travaille sur toute la cellule
    reg.Global = True
    '  définit le modèle (caractères "digitaux" à N chiffres)
    reg.Pattern = "(\d?\d?\d)|(,)"
 
    ' éxécute l'extraction svt modèle (collection des digits...)
    Set extraction = reg.Execute(texto)
    ' concaténète les membres de la collection "extraction"
    For Each digit In extraction
        extrait_nbre = extrait_nbre & (digit.Value)
    Next digit
 
    Set extraction = Nothing
    Set reg = Nothing
 
End Function

Un grand merci au passage à Cafeine qui, à partir de son tuto, m'a initié à cette drôle de bestiole: "regexp"