NgXCherche
Messages postés18Date d'inscriptionsamedi 10 mai 2008StatutMembreDernière intervention30 juin 2008
-
16 mai 2008 à 15:38
jeanjeandada
Messages postés152Date d'inscriptionlundi 21 avril 2008StatutMembreDernière intervention20 novembre 2011
-
16 mai 2008 à 21:29
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 :
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 !!
NgXCherche
Messages postés18Date d'inscriptionsamedi 10 mai 2008StatutMembreDernière intervention30 juin 2008 16 mai 2008 à 16:41
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
Messages postés18Date d'inscriptionsamedi 10 mai 2008StatutMembreDernière intervention30 juin 2008 16 mai 2008 à 17:29
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 ?????????????????