Code secret et bouton

Bonjour à tous, merci de me donner un petit coup de main pour 2 questions:

1° - J'ai écrit une petite macro du style;message=input box( "Entrez votre code confidentiel","nom de mon programme","utilisateur")

if message="" then exit sub

range("a1").value = message

Je voudrais que sur l'écran apparaisse des asteriscs ou étoiles à la place du code tapé ? ( au moment de la saisie)

2°-mes petites macro démarent avec des boutons, je voudrais pouvoir déplacer mes boutons (colonne) en fonction de la valeur de ma cellule par ex B3. ( si B3 = 10 mon bouton va en colonne J, un peu plus tard si B3 = 21 alors le bouton se retrouve en colonne U)

Par avance un grand merci.

Philippe

Bonjour.

Ayant eu le même problème que toi sans trouver la solution, j'ai contourné le problème en créant une USF.

Tu créé un textbox, et dans la partie PasswordChar, tu mets ton asterisc.

Merci pass pass pour ta réponse à ma première question

Bonjour Philippe 88 le forum

voilà ci-dessous pour le point 2, en l'absence de fichier tu adapteras!!!

a+

Papou

Sub déplacer()
    Dim i&, n&,col&
    n = 0
    col = 1 ' là tu mets le numéro de la colonne   
    For i = 1 To col-1
        n = n + Feuil1.Cells(1, i).Columns.Width
    Next i
    ActiveSheet.Shapes("CommandButton1").Select
    Selection.ShapeRange.Left = n
End Sub

Merci beaucoup

pour ma 2° question

à bientôt

Bien cordialement