Discussion :

[alphanet]

Bonjour,

Je souhaiterais entrer un nombre déjà dans une cellule Excel sans passer par le clavier, simplement avec la souris.
Alors, je me demandais s'il est possible de lier à une cellule Excel un dispositif : soit un petit clavier où il serait possible de cliquer les chiffres composant le nombre pour le saisir dans la cellule ou encore un petit curseur qui permettrait la sélection d'une valeur comprise entre deux bornes, à inscrire dans la cellule, ou enfin, la possibilité d'associer une liste de valeurs prédéfinie à la cellule dans laquelle je pourrais sélectionner une valeur avec la souris .

Merci de m'indiquer si vous connaissez le moyen de réaliser ces procédés de saisie dans Excel ou à l'aide d'un autre logiciel. Le but que je recherche est de me faciliter et d'accélérer la saisie de valeurs dans des cellules, en vue de calculs sur ces valeurs.

Merci d'avance pour vos suggestions.

[fred65200]

bonjour alphanet
voilà un départ à améliorer, je ne sais pas si c'est pratique.

clic droit dans une cellule et tu saisies / OK

pas de gestion des cellules vides ou remplies.

cordialement

[Invité]

Salut fred65200

, tu essayes de nous faire un truc un peu plus costaud, et le mettre dans le forum Excel/Contribution, ce serait cool.

[alphanet]

Bonjour,

Merci bien Fred, c'est un trés bon début, ça marche
Comment peut-on modifier les propriétés du clavier ?

Par exemple, j'aimerais bien qu'il s'affiche juste en dessous accolé à la cellule ?
Tu fais ça avec VisualBasic Editor ? cela m'intéresse.
Est-ce que c'est faisable pour un amateur débutant, pas trop compliqué ?
Et est-ce que les autres options seraient réalisables comme un curseur ou une liste ??

Tiens nous au courant si tu améliores cette première version

Bien cordialement.

[fred65200]

bonjour,

quelques modifications apportées.
Simplification du code avec un module de classe
Saisie de nombre valide uniquement
Correction des problèmes de séparateur décimal, (plusieurs approches)

Pas trouver une ergonomie fonctionnelle

Affichage sous la cellule à adapter (cf.code UserForm1)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Private Const monDecalageX As Integer = -38   'en points
Private Const monDecalageY As Integer = -88 'en points

Toujours pas convaincu

N'hésitez pas à donner vos suggestions
cordialement

[NEC14]

Bonjour Fred65200

C'est super, mais peut-on ajouter une touche "total" ?
Sinon ça me plait beaucoup.

[fred65200]

bonjour,

certainement, on peux faire une calculatrice mais là, je ne vois pas l'intérêt d'une calculatrice dans Excel.

Tu trouveras certainement des exemples en faisant une recherche.

cordialement

NB j'ai uploader un nouveau fichier environ 10 minutes après le 1er avec une petite modification d'affichage.

[cafeine]

Joli travail Fred, si toutefois ça peut en intéresser certains, on peut lancer le clavier virtuel de windows :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Shell "osk.exe"

[NEC14]

bonjour,

certainement, on peux faire une calculatrice mais là, je ne vois pas l'intérêt d'une calculatrice dans Excel.

Tu trouveras certainement des exemples en faisant une recherche.

cordialement

NB j'ai uploader un nouveau fichier environ 10 minutes après le 1er avec une petite modification d'affichage.

Ce n'était qu'une question. Mais tu as raison, quel intérêt.
A+

[fred65200]

re

vite fais (j'avais essayé il y a quelques années donc à améliorer)

une calculatrice simple

@+

[fred65200]

bonjour:

Joli travail Fred, si toutefois ça peut en intéresser certains, on peut lancer le clavier virtuel de windows :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Shell "osk.exe"

Bien plus efficace merci

cordialement

[NEC14]

re

vite fais (j'avais essayé il y a quelques années donc à améliorer)

une calculatrice simple

@+

ça c'est champion.

[alphanet]

Bonsoir,

Impeccable cette nouvelle version alphanet2 avec sa nouvelle ergonomie et tes conseils pour positionner le clavier.
Je me suis demandé comme je pourrais apporter la modification suivante.
Actuellement, quand on reclique une case où une valeur a été saisie, il est nécessaire d'effacer l'ancienne valeur pour en entrer une nouvelle.

Serait-il possible que lorsque je retourne sur une cellule contenant un nombre, et que j'active le clavier en la cliquant, je puisse entrer un nouveau nombre directement sans avoir à effacer l'ancienne valeur ? donc, il faudrait que la réactivation du clavier remette la valeur à zéro pour une nouvelle saisie.

Tous mes remerciements.
Cordialement.

[fred65200]

bonjour,

dans le module de code du userform, dans la procédure UserForm_Initialize, remplace la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.Caption = Replace(ActiveCell.Value, ",", ".")

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.Caption = ""

cordialement

[alphanet]

Merci Fred pour cet modif.
C'est fait, impec.

Bien cordialement.

[fred65200]

re



As tu testé le classeur n°3?

EDIT un classeur regroupant deux versions disponible ici

@+

[Singular]

Merci à cafeine de fred65200 pour ces fonctionnalités peu connues!

Le topic devrait être Résolu, non?