Nombre décimaux VBA

Question

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!


Configuration: Windows / Chrome 69.0.3497.100

Utilisateur anonyme · Answer

Bonjour
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.

HugoSo · Answer

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

f894009 · Answer

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

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

Nombre décimaux VBA

3 réponses

Discussions similaires

Newsletters