recuperer le chiffres d'une cellule

Bonsoir Yabong,

1)Je te propose une petite macro qui ne conserve que les chiffres d'une expression.

La plage de travail est 'A1:A20'.

Sub JusteLesChiffres()
Dim Plage As Range, C As Range, i As Byte, Nombre As String
'Effacement des lettres et signes
With Sheets('Feuil1')
Set Plage = .Range('A1:A20')
For Each C In Plage
If Len(C) > 0 Then
For i = 1 To Len(C)
If IsNumeric(Mid(C, i, 1)) Then
Nombre = Nombre & Mid(C, i, 1)
End If
Next i
C = CDbl(Nombre)
Nombre = ''
End If
Next C
End With
End Sub

2) Syntaxe d'une input :
Dim Nombre As String, Msg As String, Title As String, Default As String

Msg = 'Veuillez entrer le N° !'
Title = 'CHOIX DE L'UTILISATEUR' ' Définit le titre.
Default = 'numéro' ' Définition de la valeur par défaut.
' Affiche le message, le titre et la valeur par défaut.
Nombre = InputBox(Msg, Title, Default) ' Valeur de la variable.
If Nombre = '' Or Nombre = 'numéro' Then Exit Sub ' Sortie en cas d'erreur de manipulation

Cordialement

Bernard

Message édité par: CBernardT, à: 06/05/2006 10:11

merci, ca marche a la perfection
Bonne soirée

yabong

Ave,

''... les chiffres ne sont pas tout le temps placés en debut, milieu ou fin, n'ont pas une taille définie, mais par contre sont contigus...''

Une formule matricielle :
=1*(STXT(A1;EQUIV(0;(ESTERREUR(STXT(A1;LIGNE(INDIRECT('1:'&NBCAR(A1)));1)*1)*1);0);NBCAR(A1)-SOMME((ESTERREUR(STXT(A1;LIGNE(INDIRECT('1:'&NBCAR(A1)));1)*1)*1))))

Ou une fonction perso à mettre dans un module ordinaire
Exemple d'utilisation : =EXTRACT_ENTIER(A1)

Function EXTRACT_ENTIER(chaine)
For i = 1 To Len(chaine)
If Asc(Mid(chaine, i, 1)) supérieurà 47 And Asc(Mid(chaine, i, 1)) inférieurà 58 Then x = x & Mid(chaine, i, 1)
EXTRACT_ENTIER = x * 1
Next
End Function

PS : Remplacer supérieurà et inférieurà par les bons signes

AV [aaa]

Bonjour Yabong, AV et le forum,

Bien vu AV, l'extraction limitée à certains caractères du code ASCII est une excellente solution pour dépolluer un texte de caractères indésirables. J’archive l’astuce.

Cordialement

Bernard