Affichage dans le forum: couleur dans le code VBA

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

merinos-BernardEtang

XLDnaute Accro
Je viens de découvrir une astuce ... merci Ce lien n'existe plus

Tout en noir...
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next

 If Not Intersect(Range("client_selector"), Target) Is Nothing And Target.Count = 1 Then
   '  ***
    ActiveSheet.PivotTables("PivotTable2").PivotFields("unique").CurrentPage = Range("client_selector").Value
   ' ***
 Else
     '***
    Me.ComboBox1.Visible = False
   '***
 End If

End Sub

Et en couleur...


VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next

 If Not Intersect(Range("client_selector"), Target) Is Nothing And Target.Count = 1 Then
   '  ***
    ActiveSheet.PivotTables("PivotTable2").PivotFields("unique").CurrentPage = Range("client_selector").Value
   ' ***
 Else
     '***
    Me.ComboBox1.Visible = False
   '***
 End If

End Sub

Mais comme c'est joli... et la différence?
(J'ai ajouté des espace afin que le forum ne reconnaisse pas le code)
[ code ] ... [ /code ]
[ code= vb ] ... [ / code ]

Je rêve juste de retrouver la même chose dans excel....

Merinos
 
Bonsoir le fil, le forum

@merinos
Pas besoin d'espace [code=vb] suffit
(en utilisant la balise BBCODE idoine)

Sinon pour formater ton code VBA dans un message, tu peux aussi utiliser le bouton Insérer...
01edit.jpg

Tu sélectionnes CODE puis dans la liste déroulante, tu choisis le type de CODE.
 
Bonjour.
Menu Outils, Options…, onglet Format de l'éditeur
Chez moi j'ai ça, depuis très longtemps :
upload_2017-11-27_10-58-21.png

Mais attention, pour arriver à l'obliger à accepter ça, j'ai été obligé de détruire tous les fichiers de la police Consolas autres que celui de sa version en gras.
 
Merci,

C'est effectivement mieux...

ce dont j'avais rêvé c'est de pouvoir changer certaines instructions.
par example juste les boucles ("if then else" , "for each";... ) .

Mais avec ce que tu as donné ce sera déjà plus visible.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
9
Affichages
252
Réponses
4
Affichages
234
Réponses
14
Affichages
253
  • Question Question
Microsoft 365 Probléme VBA
Réponses
8
Affichages
329
Retour