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

L

laetitia90

XLDnaute Barbatruc

• 6 Février 2015

• #2

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

Code:

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

Code:

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

 

Pièces jointes

• pavé (1).xls

  86.5 KB · Affichages: 45

Dernière édition: 6 Février 2015

Vote positif 0 Vote négatif

L

letroubadour

XLDnaute Occasionnel

• 6 Février 2015

• #3

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

 

Vote positif 0 Vote négatif

V

VIARD

XLDnaute Impliqué

• 9 Février 2015

• #4

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

 

Pièces jointes

• pavé (2).xls

  79.5 KB · Affichages: 29

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 9 Février 2015

• #5

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).

 

Pièces jointes

• pavé sur Feuille .xls

  30.5 KB · Affichages: 26

Vote positif 0 Vote négatif

V

VIARD

XLDnaute Impliqué

• 9 Février 2015

• #6

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

 

Vote positif 0 Vote négatif

V

VIARD

XLDnaute Impliqué

• 9 Février 2015

• #7

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

Bonjour à tous

Si... voici le résultat

A+ Jean-Paul

 

Pièces jointes

• pavé sur Feuille(2) .xls

  33 KB · Affichages: 26

Vote positif 0 Vote négatif