Excel- afficher un mot en gras en VBA

Salut,

tu as plusieurs mots dans ta cellule et tu veux en mettre un seul en gras ? ou bien tu veux simplement mettre le contenu de la cellule en gras ?

Pour une cellule:

Sub gras()
    Sheets("Feuil1").Cells(1, 1).Select
    Selection.Font.Bold = True
End Sub

Merci

Bonsoir,

En fait, j'ai un mot et je veux qu'il soit écrit en gras lorsque je l'affiche dans la feuil1 dans une cellule qui n'est jamais la même. C'est pourquoi je pensais que c'était le mot qu'il fallait mettre en gras et pas la cellule.
Mais je ne connais pas bien VBA je ne comprends pas forcément la philosophie.

Merci de votre aide

Ok, on est 2! Merci quand même d'avoir essayé.

Je vais quand même prendre ton code ça va me servir.

Merci.

Bonjour tout le monde,

Si ton mot est seul dans la cellule le code de ricky est suffisant (et on peut se passer du .select)
Sinon :
[A1].Characters(Start:=12, Length:=6).Font.FontStyle = "Gras"
mettra en gras 6 caractères à partir du 12ème

eric

Salut,

A moins que tu souhaites que MonMot se mette en gras dès que tu le saisis quel que soit la position dans la feuille dans ce cas colles le code ci-dessous dans les propriétés de la feuille (clis droit sur l'onglet de la feuille concernée/visualiser le code)
remplaces dans le code "MonMot" par le mot que tu souhaites mettre en gras

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column >= 1 Then
If Target = "MonMot" Then Target.Font.Bold = True
If Target <> "MonMot" Then Target.Font.Bold = False
End If
End Sub

Bonjour à tous,

Comme j'étais fatigué hier soir, je vois encore que je n'ai pas été suffisament clair, je vous demande de m'en excuser, et vous copie ici la procédure que j'ai:

Private Sub cmdbata_Click()
lg = Range("A1").Value

piece = Range("B1").Value 'piece = lg où stoker les noms de pièces
nom = cmdbata.Caption 'prend le nom du bouton de commande
Cells(lg, 11) = nom 'affiche le nom du bouton

nom.Select 'ESSAI D'APPLICATION DU PRINCIPE DE RICKY38
Selection.Font.Bold = True

Sheets("Feuil1").Cells(piece, 1) = nom 'affichage nom du bouton dans tableau en feuil1

Range("A1").Value = lg + 1 'affiche lg
End Sub

J'ai essayé d'appliquer les lignes de Ricky38 mais évidement ça plante.
Pouvez-vous me corriger SVP?

Merci

Re,

Bizarre comme code, et on est très loin de la demande initiale en A1 soit lg tu as un compteur si en A1 tu saisis une valeur numérique et le code plante si tu as du texte.
Ensuite en A et 11 colonne à droite soit en colonne K le nom du bouton s'incrémente, la ligne paramétrant le gras est mal codifié, si tus souhaitais mettre en gras la saisie en colonne A il conviendrait d'écrire

Cells(lg, 1).Font.Bold = True

Private Sub CommandButton1_Click()
lg = Range("A1").Value
piece = Range("B1").Value 'piece = lg où stoker les noms de pièces
nom = CommandButton1.Caption 'prend le nom du bouton de commande
Cells(lg, 11) = nom 'affiche le nom du bouton
Sheets("Feuil1").Cells(lg, 1) = nom 'affichage nom du bouton dans tableau en feuil1
Selection.Font.Bold = True
Range("A1").Value = lg + 1 'affiche lg
End Sub

Mais encore une fois, en ce qui me concerne j'ai du mal à suivre ta demande. Tu devrais reprendre tes explications et détailler ce que tu veux faire

Salut Ricky,

J'ai du mal à comprendre la demande et je pense qu'il en est de même pour toi, dans ce cas difficile d'écrire un code structuré.
Enfin attendons les explications de Mod afin d'éclairer notre lanterne

Bonne fin de week-end

Bonjour messieurs,

Voici le lien: https://www.cjoint.com/?bFqF1iNW2y

Le code est affecté aux bouton de commande "Bat A" et "Bat B".
Après avoir appliqué le code donné par Mick31 au poste 9, le nom "Bat A" s'affiche correctement dans la zone résultat en cours, mais pas en feuil1 colonne A où je voudrais que le nom figure en Gras aussi.

C'est tout.

Merci à vous

Re,

Afin que le code s'applique à la feuille1, lorsque tu es feuille1, ouvres la barre d'outils contrôle et crées le bouton, double clic sur ce bouton, ce qui va t'ouvrir les propriétés du bouton avec ce début de code

Private Sub CommandButton1_Click()

End Sub

reste plus qu'a coller le code macro entre les deux lignes
exemple

lg = Range("A1").Value
piece = Range("B1").Value 'piece = lg où stoker les noms de pièces
nom = CommandButton1.Caption 'prend le nom du bouton de commande
Cells(lg, 11) = nom 'affiche le nom du bouton
Sheets("Feuil1").Cells(lg, 1) = nom 'affichage nom du bouton dans tableau en feuil1
Selection.Font.Bold = True
Range("A1").Value = lg + 1 'affiche lg

Lorsque tu cliqueras sur le bouton qui se trouve sur la feuille, le code s'appliquera à la feuille.

Re,

J'ai bidouillé la formule de Micke31 et j'ai trouvé ceci et ça marche!
Je me disais bien que ça tenait à peu de chose

Cells(lg, 11) = nom 'affiche nom du bouton en Gras en feuille courante
Cells(lg, 11).Font.Bold = True

Sheets("Feuil1").Cells(piece, 1) = nom 'affichage nom du bouton dans tableau en "Feuil1"
Sheets("Feuil1").Cells(piece, 1).Font.Bold = True

Merci à tous les 2.