Concaténer en VBA & Ajouter une fonction personnalisé barre d'outils

[dinaraza]

Bonjour à tous ,

Je vous explique mon problème , je suis débutant en VBA. Je cherche à concaténer deux variables nom et prénom de sorte que mon affichage final dans ma cellule soit tel que : "Martin DUPONT"

Voici mes lignes de codes :

Sub auto_open()
Dim barre As CommandBar
Dim bouton As CommandBarControl
On Error Resume Next
CommandBars("jb-Majuscules").Delete
Set barre = CommandBars.Add(Name:="jb-Majuscules")
barre.Visible = True

Set bouton = CommandBars("jb-Majuscules").Controls.Add(Type:=msoControlButton)
bouton.BeginGroup = True
bouton.Style = msoButtonCaption
bouton.OnAction = "Majuscules"
bouton.Caption = "Majuscules"


Set bouton = CommandBars("jb-Majuscules").Controls.Add(Type:=msoControlButton)
bouton.BeginGroup = True
bouton.Style = msoButtonCaption
bouton.OnAction = "NomPropre"
bouton.Caption = "NomPropre"
End Sub

Sub majuscules()
For Each c In Selection
If Not c.HasFormula Then
c.Value = UCase(c.Value)
End If
Next c
End Sub


Sub Nompropre()
For Each c In Selection
If Not c.HasFormula Then
c.Value = Application.Proper(c.Value)
End If
Next c
End Sub


D'autre part j'ai essayé cette solution pour ajouter un bouton personnalisé faisant appel à une fonction personnalisée dans la barre d'outils en ajoutant un module sur VBA :

https://excel.quebec/excel-formules-et- ... onnalisee/

Sauf que en reproduisant son exemple rien ne change

Merci d'avance et bonne journée à vous tous.

 

[Compte Supprimé 979]

Bonjour,

Premièrement en quelle version d'Excel es-tu ?

A+