transposer pavé numérique d'un userform sur page d'accueil

[letroubadour]

bonjour à tous

j'ai récupéré sur le forum un fichier que je voudrais transformer.
Je désire transposer le pavé numérique qui est sur l'userform et le mettre sur la feuille d'accueil avec les même fonctions et je voudrais seulement que la touche "effacer " efface la totalité de la case E10 au lieu du dernier caractère

voici le fichier

merci

Le troubadour

 

[laetitia90]

Re : transposer pavé numérique d'un userform sur page d'accueil

bonjour letroubadour

brut comme cela on peut simplifier encore avec une seule macro plus une condition..... eventuellement

Sub Rectangle1_Clic()
  [e10] = [e10] & ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text
End Sub
Sub Rectangle12_Clic()
  [e10] = ""
End Sub

en simplifiant tu cree une macro es par exemple puis tout les shapes tu affecte cette macro

Sub es()
  If Application.Caller <> ("Rectangle 12") Then _
  [e10] = [e10] & ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text Else [e10] = ""
End Sub

 

[letroubadour]

Re : transposer pavé numérique d'un userform sur page d'accueil

merci c'est exactement ça, je te remercie Laetitia

bonne journée

Le troubadour

 

[VIARD]

Re : transposer pavé numérique d'un userform sur page d'accueil

Bonjour Letroubadour, Laetitia et à tous

Comme je l'avais préparé, sans avoir eu le temps de livrer.
Peut-être une autre solution sans utiliser de Shapes, mais par double click.

pièce jointe

Amicalement
Jean-Paul

 

[Si...]

Re : transposer pavé numérique d'un userform sur page d'accueil

salut

un pavé sur feuille sans bouton mais avec possibilité de déplacement (voir Nom).

 

[VIARD]

Re : transposer pavé numérique d'un userform sur page d'accueil

Bonjour SI... et à tous

Super ton pavé, je l'ai reproduit entièrement histoire de ne pas mourir bête.
Sauf les 2 boutons que je n'ai pas.

Salutation

Jean-Paul

 

[VIARD]

Re : transposer pavé numérique d'un userform sur page d'accueil

Bonjour à tous

Si... voici le résultat

A+ Jean-Paul