Nombre décimaux VBA
HugoSo
-
f894009 Messages postés 17414 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17414 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Voici mon problème :
Je possède dans un tableau les chiffres suivants :
1 bla
1.1 blabla
1.1.1 blablabla
J'aimerai savoir en VBA comment faire pour que les chiffres entiers ainsi que ceux qui n'ont qu'une seule décimale (1.1) deviennent gras. Dans mon exemple,
1 bla
1.1 blabla
1.1.1 blablabla
J'ai essayé les formules "like" sans y arrivé et je sèche.
Je sais le faire sans vba mais vu que j'ai beaucoup d'autres code ce serait plus simple de l'avoir dans un module.
Merci!
Voici mon problème :
Je possède dans un tableau les chiffres suivants :
1 bla
1.1 blabla
1.1.1 blablabla
J'aimerai savoir en VBA comment faire pour que les chiffres entiers ainsi que ceux qui n'ont qu'une seule décimale (1.1) deviennent gras. Dans mon exemple,
1 bla
1.1 blabla
1.1.1 blablabla
J'ai essayé les formules "like" sans y arrivé et je sèche.
Je sais le faire sans vba mais vu que j'ai beaucoup d'autres code ce serait plus simple de l'avoir dans un module.
Merci!
A voir également:
- Nombre décimaux VBA
- Nombre de jours entre deux dates excel - Guide
- Nombre facile - Télécharger - Outils professionnels
- Ascii nombre de caractères - Guide
- Excel compter cellule couleur sans vba - Guide
- Gto nombre episode - Forum Cinéma / Télé
3 réponses
Bonjour
tu peux utiliser une regex
Attention, la syntaxe que je te propose suppose qu'il n'y a que
1 bla
1.1 blabla
1.1.1 blablabla
Comme texte, si ça n'est pas le cas, poste un texte représentatif.
Pour l'utilisation des Regex en VBA voir
https://cafeine.developpez.com/access/tutoriel/regexp/
Par contre, si c'est pour un document Word, tu peux plus simplement créer un style de titre.
tu peux utiliser une regex
http://regexstorm.net/tester?p=%28%5e%7c%5cn%29%5cd%2b%28%5c.%5cd%2b%29%3f+%5ba-z%5d%2b%5cb&i=1+bla+%0d%0a1.1+blabla+%0d%0a1.1.1+blablabla
Attention, la syntaxe que je te propose suppose qu'il n'y a que
1 bla
1.1 blabla
1.1.1 blablabla
Comme texte, si ça n'est pas le cas, poste un texte représentatif.
Pour l'utilisation des Regex en VBA voir
https://cafeine.developpez.com/access/tutoriel/regexp/
Par contre, si c'est pour un document Word, tu peux plus simplement créer un style de titre.
Bonjour,
merci pour ta réponse.
Le problème c'est que on fichier excel n'est pas du tout de ce style la.. genre cela peut être
1.1 préparation
1.1.1 Mise en place des équipements
1.2 travaux courants
1.2.1 eau usées
1.2.1.1 canalisations
C'est une multitude de chiffres..
Les chiffres sont dans la colonne A et le texte en colonne B.
Merci
merci pour ta réponse.
Le problème c'est que on fichier excel n'est pas du tout de ce style la.. genre cela peut être
1.1 préparation
1.1.1 Mise en place des équipements
1.2 travaux courants
1.2.1 eau usées
1.2.1.1 canalisations
C'est une multitude de chiffres..
Les chiffres sont dans la colonne A et le texte en colonne B.
Merci
Bonjour,
C'est une multitude de chiffres..
Ce ne sont pas des nombres decimaux mais des indicateurs de chapitres, sous chapitres, sous-sous chapitres!!!!!!!
SI EXCEL...........
code VBA: adaptez la colonne et la feuille
C'est une multitude de chiffres..
Ce ne sont pas des nombres decimaux mais des indicateurs de chapitres, sous chapitres, sous-sous chapitres!!!!!!!
SI EXCEL...........
code VBA: adaptez la colonne et la feuille
Sub gras()
With Worksheets("feuil1").Columns(1)
L = 1
Do
TPar = Split(.Cells(L, 1), " ")
Lg = Len(TPar(0))
.Cells(L, 1).Characters(Start:=1, Length:=Lg).Font.FontStyle = "Gras"
L = L + 1
Loop Until .Cells(L, 1) = ""
End With
End Sub
