[Déplacé VB6 --> VBA] mise en forme excel + récup info [Résolu]
cs_snake57
- Messages postés
- 204
- Date d'inscription
- vendredi 19 novembre 2004
- Dernière intervention
- 1 novembre 2011
- Messages postés
- 204
- Date d'inscription
- vendredi 19 novembre 2004
- Dernière intervention
- 1 novembre 2011
A voir également:
- Mise en forme vba
- [déplacé VB6 -> VBA] Selection de feuille excel avec une macro ✓ - Forum - Visual Basic 6
- [Déplacé VB6 -> VBA]Trier une liste de prix sur excel ✓ - Forum - Visual Basic 6
- [Déplacé VB6 --> VBA] Excel Copier coller avec une macro sous condition ✓ - Forum - Visual Basic 6
- [Déplacé VB6 --> VBA] Macro excel code VBA courriel automatique sous condition d ✓ - Forum - Visual Basic 6
- [déplacé VB6 -> VBA] Formulaire sous excel ✓ - Forum - Visual Basic 6
6 réponses
Meilleure réponse
- Messages postés
- 14010
- Date d'inscription
- samedi 29 décembre 2001
- Dernière intervention
- 28 août 2015
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 :
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)
(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 rA 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)
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
104 internautes nous ont dit merci ce mois-ci
- Messages postés
- 14010
- Date d'inscription
- samedi 29 décembre 2001
- Dernière intervention
- 28 août 2015
"rien ne se passe" : Oui, écrite comme ça, c'est sûr.
Si tu veux que cela modifie ta cellule, il faut lui dire :
Chaine --> Int :
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)
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)
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
104 internautes nous ont dit merci ce mois-ci
- Messages postés
- 204
- Date d'inscription
- vendredi 19 novembre 2004
- Dernière intervention
- 1 novembre 2011
- Messages postés
- 204
- Date d'inscription
- vendredi 19 novembre 2004
- Dernière intervention
- 1 novembre 2011
- Messages postés
- 204
- Date d'inscription
- vendredi 19 novembre 2004
- Dernière intervention
- 1 novembre 2011
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.