Nombre décimaux VBA
HugoSo
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 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
- Excel compter cellule couleur sans vba - Guide
- Faites afficher avec un fond coloré les cellules qui contiennent une valeur comprise entre 250 et 350. quel nombre est dessiné en surbrillance ? ✓ - Forum Excel
- Vba attendre 1 seconde ✓ - Forum VB / VBA
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