Mettre en Gras le contenu d'une variable

[tinbo]

Bonjour le Forum,

Je reviens vers vous car la je bloque...

Voici mes lignes:

"Range("A8").Select

ActiveCell = UCase(CompanyName1.Value) & vbCrLf & Address1.Value & vbCrLf & UCase(Country1.Value)"

J'arrive a mettre en Majuscule le contenu de mes comboboxes

Ce qui fait que dans ma cellule, j'ai bien le nom de la compagnie et le pays en majuscule, mais j'aimerai pouvoir les mettre en Gras...

Merci d'avance...

 

[PascalXLD]

Re : Mettre en Gras le contenu d'une variable

bonjour

ajoutes

activecell.font.bold=true

 

[tinbo]

Re : Mettre en Gras le contenu d'une variable

bonjour

ajoutes

activecell.font.bold=true

Bonjour Pascal !

Malheureusement, cela va me mettre toute la ligne alors que je souhaiterai uniquement la compagnie et le pays.

 

[PascalXLD]

Re : Mettre en Gras le contenu d'une variable

Re

Arf je n'avais pas fait attention que tu avais aussi l'adresse entre 2
mais le problème c'est que tu ne peux pas dire mettre en gras comme cela car là c'est un peu différent

M'enfin on doit pour s'en sortir vu que c'est juste la fin et le debut

je regarde et te tiens au courant

 

[PascalXLD]

Re : Mettre en Gras le contenu d'une variable

re

essaies ceci

nbre1 = Len(CompanyName1.Value)
nbre2 = Len(Address1.Value)
nbre3 = Len(Country1.Value)
Range("A8").select
ActiveCell = UCase(CompanyName1.Value) & vbCrLf & Address1.Value & vbCrLf & UCase(Country1.Value)


    With ActiveCell.Characters(Start:=1, Length:=nbre1).Font
        .FontStyle = "Gras"
    End With
    With ActiveCell.Characters(Start:=nbre1 + nbre2 + 1, Length:=nbre3).Font
        .FontStyle = "Gras"
    End With

 

[tinbo]

Re : Mettre en Gras le contenu d'une variable

re

essaies ceci

nbre1 = Len(CompanyName1.Value)
nbre2 = Len(Address1.Value)
nbre3 = Len(Country1.Value)
Range("A8").select
ActiveCell = UCase(CompanyName1.Value) & vbCrLf & Address1.Value & vbCrLf & UCase(Country1.Value)


    With ActiveCell.Characters(Start:=1, Length:=nbre1).Font
        .FontStyle = "Gras"
    End With
    With ActiveCell.Characters(Start:=nbre1 + nbre2 + 1, Length:=nbre3).Font
        .FontStyle = "Gras"
    End With

Voici ce que ca me fait:


IXSEA PTE LTD

53 Ubi Ave 1

#03-10 Paya Ubi Industrial Park

408934

SINGAPORE

 

[PascalXLD]

Re : Mettre en Gras le contenu d'une variable

Voici ce que ca me fait:


IXSEA PTE LTD

53 Ubi Ave 1

#03-10 Paya Ubi Industrial Park

408934

SINGAPORE

Bizarre puisque le premier gras je le fais bien démarré au start 1 et toi il commence à l'adresse

tu pourrais envoyé ton fichier sans données confidentielles dedans STP

 

[tinbo]

Re : Mettre en Gras le contenu d'une variable

Bizarre puisque le premier gras je le fais bien démarré au start 1 et toi il commence à l'adresse

tu pourrais envoyé ton fichier sans données confidentielles dedans STP

Desole il est vraiment trop gros...

Est ce parce que j ai une version en anglais d excel ??

 

[PascalXLD]

Re : Mettre en Gras le contenu d'une variable

re

j'ai juste besoin de l'uf et d'une feuille pour faire le test
tu peux virer le reste

 

[tinbo]

Re : Mettre en Gras le contenu d'une variable

re

j'ai juste besoin de l'uf et d'une feuille pour faire le test
tu peux virer le reste

voila !!!!

 

[PascalXLD]

Re : Mettre en Gras le contenu d'une variable

re


modifies le code ainsi

Range("A8").Select
            ActiveCell = UCase(CompanyName1.Value) & vbCrLf & Address1.Value & vbCrLf & UCase(Country1.Value)
            nbre1 = Len(CompanyName1.Value)
            nbre2 = Len(ActiveCell)
            nbre3 = Len(Country1.Value)
            With ActiveCell.Characters(Start:=1, Length:=nbre1).Font
            .FontStyle = "Gras"
            End With
            With ActiveCell.Characters(Start:=nbre1 + 1, Length:=nbre2 - nbre3 - nbre1).Font
            .FontStyle = "Normal"
            End With
            With ActiveCell.Characters(Start:=(nbre2 - nbre3), Length:=nbre3).Font
            .FontStyle = "Gras"
            End With

 

[tinbo]

Re : Mettre en Gras le contenu d'une variable

re


modifies le code ainsi

Range("A8").Select
            ActiveCell = UCase(CompanyName1.Value) & vbCrLf & Address1.Value & vbCrLf & UCase(Country1.Value)
            nbre1 = Len(CompanyName1.Value)
            nbre2 = Len(ActiveCell)
            nbre3 = Len(Country1.Value)
            With ActiveCell.Characters(Start:=1, Length:=nbre1).Font
            .FontStyle = "Gras"
            End With
            With ActiveCell.Characters(Start:=nbre1 + 1, Length:=nbre2 - nbre3 - nbre1).Font
            .FontStyle = "Normal"
            End With
            With ActiveCell.Characters(Start:=(nbre2 - nbre3), Length:=nbre3).Font
            .FontStyle = "Gras"
            End With

En faite ca marche si je replace Gras par Bold et si je les declare comme "integer"

Merci en tout cas et une bonne fin de journee ou que tu sois !!!

 

[PascalXLD]

Re : Mettre en Gras le contenu d'une variable

re

bah quand je fais cela sur le classeur que tu m'as envoyé ça marche

 

[tinbo]

Re : Mettre en Gras le contenu d'une variable

re

bah quand je fais cela sur le classeur que tu m'as envoyé ça marche

En faite ca marche si je replace Gras par Bold et si je les declare comme "integer"

Merci en tout cas et une bonne fin de journee ou que tu sois !!!