Autres CreatorRibbonX palette color pour DUDU2

Function qui(personne, nom$)
   Select Case personne
        Case 1
             nom = "dudu2"
         Case 2
             nom = "patricktoulon"
     End Select
 End Function


Sub test()
    Dim nom$
  
    qui 1, nom
     MsgBox nom
  
    qui 2, nom
    MsgBox nom

End Sub

Function qui2(personne)
   Select Case personne
        Case 1
             qui2 = "dudu2"
         Case 2
             qui2 = "patricktoulon"
     End Select
 End Function
 Sub test2()
    Dim nom$
   
    nom = qui2(1)
     MsgBox nom
   
    nom = qui2(2)
    MsgBox nom

End Sub

'Callback pour customUI.onLoad
Sub CustomUIOnLoad(ribbon As IRibbonUI)
End Sub

'Callback pour icon_1 onAction
Sub ChangeColor(control As IRibbonControl)
ActiveCell.Interior.color = Val(control.Tag)
End Sub

'Callback pour tout les controls qui ont <<geticone>> dans leur attribut <<getImage>>
Sub geticone(control As IRibbonControl, ByRef returnedVal)
'le callback m'envoi le control et la variablerenurnedval(vide)
'donc avec le control j'ai son id  qui est le même que le nom de la shape correspondnate
Dim shap As Shape
Set shap = createIcon(control.ID, control.Tag) 'je crée donc une shape avec pour nom le id du control et pour couleur la valeur de son tag
DoEvents
'et maintenant j'instruit returnedval en lui donnant comme valeur l'object stdpicture que me renvoie la fonction capture
'et dans la fonction capture j'envoie la shape à transformer en stdpicture
Set returnedVal = Capture(shap, , True)'fonction de mon module fonction_images
shap.Delete 'maintenant que j'ai obtenu mon object stdpicture je peut supprimer la shape
End Sub

Function createIcon(n, color) As Shape
    Dim shap As Shape
    Set shap = ActiveSheet.Shapes.AddShape(msoShapeOval, 10, 30 * i, 20, 20)
    shap.Fill.ForeColor.RGB = color
    shap.Line.Weight = 0
      shap.Name = n
    Set createIcon = shap
End Function

<button id="id de l'icon" screentip="nom de la couleur" onAction="ChangeColor" getImage="nomducallback" tag="valeur de la couleur"/>