Saisie texte dans cellule sans effacer !

[nicostr]

Bonjour,
J'utilise un planning partagé sous excel (en fait, un classeur contenant une feuille par semaine + quelques macros de navigation).

Les cellules contiennent donc avant tout des données de type "texte".
La difficulté à la quelle je suis confronté est la suivante :
lorsque l'on clique sur une cellule qui contient déjà une information texte, le risque est grand d'écraser celui-ci, si l'on ne prend pas garde à bien repositionner le curseur APRES ce texte initial !

Existe-t-il un moyen qui pourrait permettre, à chaque nouveau clic sur une cellule, d'ouvrir un petit formulaire de saisie pemettant :
- soit de saisir une première information (avec procédure de validation pour enregistrement)
- soit de positionner dans cette même boite le cursuer APRES le texte existant + procédure de validation pour enregistrement ?

D'avance merci !

 

[Tibo]

Re : Saisie texte dans cellule sans effacer !

Bonjour,

Au plus simple, tu appuies sur la touche F2 et tu saisis le texte complémentaire.

@+

 

[nicostr]

Re : Saisie texte dans cellule sans effacer !

Merci ! C'est une première possibilité, en effet ;
Cependant, étant plusieurs à travailler sur ce même planning, j'aimerais simplement sécuriser la saisie.

A suivre !

 

[nicostr]

Re : Saisie texte dans cellule sans effacer !

Bonjour,

Existerait-il alors un moyen pour transformer cette commande F2 en macro, laquelle pourrait-être lancée lors d'un clic dans une cellule (et complétée, pour positionner le curseur à la ligne !) ?

Nicostr

 

[mth]

Re : Saisie texte dans cellule sans effacer !

Bonjour le fil

Un essai pas forcément terrible, l'idée étant d'avoir une feuille protégée sans mot de passe et de ne permettre la modification d'une cellule que par un Userform.

C'est sans doute un peu lourd pour pas grand chose, et si jamais on écrit une coquille on ne peut pas l'effacer puisque la cellule conserve son "historique" ce qui peut très vite horripiler tout le monde.

Très bonne journée,

mth

 

[hoerwind]

Re : Saisie texte dans cellule sans effacer !

Bonjour et bienvenue sur le forum, salut mth et Tibo,

Je ne vois vraiment pas où est le problème.
Si, par une malencontreuse manipulation, une donnée est écrasée, il existe l'icône "annuler" sous la barre d'outils.

 

[Staple1600]

Re : Saisie texte dans cellule sans effacer !

Bonjour le fil, nicostr, mth , Tibo, hoerwind


Même constat qu'hoerwind

On peut aussi faire CRTL+Z en hommage à Guy Williams

 

[job75]

Re : Saisie texte dans cellule sans effacer !

Bonjour à tous,

Essayez avec cette macro dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Or ActiveCell = "" Then Exit Sub
Application.SendKeys "{F2}%~"
End Sub

Mais comme dit Mireille à vouloir trop en faire...

A+

 

[nicostr]

Re : Saisie texte dans cellule sans effacer !

.../...

En réponse à "heorwind", le problème vient du fait que l'usage de ce planning est partagé entre plusieurs utilisateurs et que l'expérience a, hélas, montré que des données ont été écrasées...!
Merci pour tous ces retours, néanmoins !
a+

 

[nicostr]

Re : Saisie texte dans cellule sans effacer !

.../...
serait-il possible d'avoir le fichier "mth" en format Excel_2003 ?
Je sais, cela date un peu !
D'avance merci
Nicostr

 

[mth]

Re : Saisie texte dans cellule sans effacer !

re

Voici en 2003, avec les mêmes réserves, et mes plates excuses car je n'avais pas vérifié le format en sauvegardant ...

Bonne journée,

mth

 

[nicostr]

Re : Saisie texte dans cellule sans effacer !

Merci !
L'idée est bien celle-là (petit formulaire de saisie), mais le fait de garder "l'historique" des erreurs de saisies n'est pas "top", en effet !
Nicostr

 

[nicostr]

Re : Saisie texte dans cellule sans effacer !

La proposition de job75 me parait bien répondre à la question ;
Cependant, lors d'une deuxième saisie dans une cellule donnée, y-aurait-il moyen de n'avoir qu'un simple retour à la ligne.
Actuellement, cette macro me semble ajouter un saut de ligne supplémentaire.
A+

 

[job75]

Re : Saisie texte dans cellule sans effacer !

Re,

Pour ne pas avoir 2 retours à la ligne consécutifs :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Or ActiveCell = "" Then Exit Sub
Application.SendKeys "{F2}" & IIf(Right(ActiveCell, 1) = Chr(10), "", "%~")
End Sub

A+

 

[nicostr]

Re : Saisie texte dans cellule sans effacer !

Very impressive !
Je crois que je vais me satisfaire de cette dernière proposition.
Merci bcp !
Nicostr