VBA - VB.Net : cela fait partie des choses à savoir ET à dire quand on cherche des solutions.
Comme expliqué dans le règlement, merci de ne pas utiliser de langage SMS, on a déjà assez de mal à comprendre les questions pour ne pas en rajouter.
"ctr c personnel comme AA;Abs;Cm des catégories de Produit"
Pour moi, c'est du chinois.
Mets toi en tête qu'on n'a pas ta feuille sous les yeux et qu'il est primordial d'expliquer clairement ton problème.
"je parle des cellules d'Excel exactement comme g donné l'exemple"
Oui, bah une cellule qui contient "4" et une autre contenant "5.5", je ne vois pas ce qu'il y a de complexe, désolé.
Pourquoi parles-tu de cellules alphanumériques ?
Le texte "ctr" fait-il partie du contenu de ta cellule ?
La vache : deux jours pour comprendre la question - on n'a pas fini !
Séparer les chiffres d'un texte : pas de fonction toute faite.
Il te faudra énumérer chaque caractère pour décider s'il est ou pas numérique.
Exemple rapide :
Tu mets ceci dans un module
Public Function SépareChiffres(monTexte As String) As Single
Dim r As Long
Dim sResultat As String
sResultat = ""
For r = 1 To Len(monTexte)
If IsNumeric(Mid$(monTexte, r, 1)) Or _
Mid$(monTexte, r, 1) = "." Then
sResultat = sResultat & Mid$(monTexte, r, 1)
End If
Next r
SépareChiffres = CSng(Val(sResultat))
End Function
et pour t'en servir :
MsgBox SépareChiffres(Range("A1").Value)