[Déplacé VB6 --> VBA] mise en forme excel + récup info [Résolu]
cs_snake57204
Messages postés vendredi 19 novembre 2004Date d'inscription
1 novembre 2011
Dernière intervention
-
3 mai 2010 à 14:38 - Dernière réponse : cs_snake57204
Messages postés vendredi 19 novembre 2004Date d'inscription
1 novembre 2011
Dernière intervention
- 3 mai 2010 à 19:07
cs_Jack14010
Messages postés samedi 29 décembre 2001Date d'inscription
28 août 2015
Dernière intervention - 3 mai 2010 à 14:57
3
Merci
Salut
(Cf catégorie)
Pour supprimer les espaces de gauche, de droite ou les deux, il y a les instructions LTrim, RTrim et Trim.
Pour séparer des chiffres dans une chaine, il suffit d'analyser chacun de ses caractères :
Dim r As Long
Dim sChiffre As String
sChiffre = ""
For r = 1 To Len(maChaine)
If Mid$(maChaine, r, 1) Like "[0-9]" Then
sChiffre = sChiffre & Mid$(maChaine, r, 1)
Else
' C'est autre chose qu'un chiffre : ras
End If
Next r
A toi d'alimenter ce test avec la chaine de ta cellule
Vala
Jack, MVP VB NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
cs_Jack14010
Messages postés samedi 29 décembre 2001Date d'inscription
28 août 2015
Dernière intervention - 3 mai 2010 à 17:24
3
Merci
"rien ne se passe" : Oui, écrite comme ça, c'est sûr.
Si tu veux que cela modifie ta cellule, il faut lui dire :
ActiveCell.Value = RTrim(ActiveCell.Value)
Chaine --> Int :
ValeurNumérique = CInt(Chaine)
Attention : un Integer ne couvre que l'étendue 16 bits de -32768 à + 32767
Passe aux Long (avec conversion CLng) si tes chiffres doivent être plus grands ET entiers
Vala
Jack, MVP VB NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
cs_snake57204
Messages postés vendredi 19 novembre 2004Date d'inscription
1 novembre 2011
Dernière intervention - 3 mai 2010 à 15:30
0
Merci
Je viens de tester la boucle pour récupérer les chiffres, sa fonctionne bien. Mais le résultat est dans un string. Il me le faudrait dans un Int c'est possible?
a aidé 99 internautes ce mois-ci