Probléme CoDERésolu

Question

Bonjour cher forum ;)

Voici le code (bien connu) qui permet de prendre sur une celllule que les chiffres de gauche parmi une chaine de caractére :

=GAUCHE(C238;SOMME(NON(ESTERREUR(STXT(C238;LIGNE(DECALER(A$1;;;NBCAR(C238)));1)*1))*1))

En C238 la cellule où on veut isoler les chiffres
Exemple cellule C238
786bobo
321gtiop

MAIS VOILA j'ai remarqué que lorsque la série de chiffres est égale à : 1731 le code prend AUSSI la premiére lettre de la chaine de caractére.
PAR exemple si en C238 j'ai   "1731tyuo"    le code me renvoi 
1731t

Est ce que quelqu'un saurait-il pourquoi ?
Merci merci merci et encore merci de donner une éventuelle solution !!


+

Renfield · Accepted Answer

si tu cliques dans un de tes cellules

Insertion > Fonction > Catégorie : Personnalisées 

dans ta liste, tu dois voir ExtraireNombre
Ok, il te demande la Range a utiliser, tu selectionne ta cellule, et normallement c'est good

enfin, sur mon poste ca l'est

Renfield · Answer

possibilité de passer par une macro:


Alt+F11
puis a ajouter dans un module :

Public Function ExtraireNombre(ByRef voRange As Range) As Long
    ExtraireNombre = Val(voRange.Text)
End Function

et dans ta cellule:
=ExtraireNombre(C238)

NgXCherche · Answer

Hmmmmmmm J'ai mit ta fonction dans un module (j'ai plusieurs modules) Mais lorsque je met dans la cellule =ExtraireNombre(C238), j'obtiens ---- #NOM? Merci d'avoir répondu !!

Renfield · Answer

:/ étrange, tourne impec' là, au boulot...

je viens de retenter dans un  tout nouveau classeur, verdict identique : ca fonctionne au poil :/

NgXCherche · Answer

Ah .. Bon bin c'est trés étrange alors parce que moi aussi j'ai ouvert un new classeur. (La fonction se trouve dans le module 13).
J'ai tapé dans A1 : 1731ter 1 rese
J'ai essayé mon code et il me renvoie 1731t
J'ai essayé ta manip, et j'ai #NOM

:'(

NgXCherche · Answer

lol OK super merci !
Ca marche impec !
Super chelou le probléme #NOM de la 1° manip
et encore merci ca marche !!!!!
++ forum ; )

NgXCherche · Answer

Euuuhhhhhh
Y a un autre truc bizarre.............
POURquoi lorsque j'éxécute la procédure BLABLA : 

Sub BLABLA()
    fctcode
End Sub
Sub fctcode()
Dim tre As Double


For tre = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row To 6 Step -1
        If Cells(tre, 3).Value <> "" Then
            Cells(tre, 7).Value = ExtraireNombre(Cells(tre, 3))
        End If
Next tre
End Sub

Public Function ExtraireNombre(ByRef voRange As Range) As Long
    ExtraireNombre = Val(voRange.Text)
End Function

Ca compile mais rien ne se passe sur la feuille
Alors que quand je compile la procédure BLABLA en appuyant sur F5 Tout fonctionne correctement ?????????????????

pompompom bizzarre .. non ?? :D

NgXCherche · Answer

~~Alors que quand je compile la procédure BLABLA en appuyant sur F5 Tout fonctionne correctement ?????????????????~~ Alors que quand je compile la procédure fctcode en appuyant sur F5 Tout fonctionne correctement ????????????????? excusez moi

jeanjeandada · Answer

Est ce clair??

Probléme CoDE

9 réponses

Votre réponse