Excel- afficher un mot en gras en VBA Résolu

Question

Bonsoir,
Je cherche à afficher en 'gras' un mot à partir de ce code:
Sheets("Feuil1").Cells(1, 1) = MonMot

Quelqu'un peut-il me dire ce que je dois écrire en plus SVP ?

Merci

Ricky38 · Answer

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

mod77 · Answer

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

mod77 · Answer

Ok, on est 2! Merci quand même d'avoir essayé.

Je vais quand même prendre ton code ça va me servir.

Merci.

eriiic · Answer

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

Mike-31 · Answer

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

mod77 · Answer

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

Mike-31 · Answer

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

Mike-31 · Answer

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

mod77 · Answer

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

Mike-31 · Answer

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.

mod77 · Answer

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.

Excel- afficher un mot en gras en VBA

11 réponses

Votre réponse

Discussions similaires

Newsletters