probleme avec format

Bonjour,

Mon problème est le suivant:
Avant de commencer je souhaite indiquer que le classeur sur lequel je programme en VBA, sera utilisé par plusieurs utilisateurs qui auront des "niveaux" très différents dans Excel.
Problématique:
Je protège une feuille en écriture (dans l'exemple ci-dessous la feuille se nomme "NOTE"). Dans cette feuille certaines cellules sont dévérouillées pour permettre l'écriture. Dans l'exemple ci-dessous A1 est une cellule dévérouillée.

A l'ouverture du classeur la feuille "NOTE" est automatiquement vidée.
Si l'utilisateur A mets une date dans A1 , en appuyant sur un bouton on alimente une autre feuille ("DATABASE") du classeur avec le contenu de A1 donc une date.
A ce stade Excel a automatiquement changé le format de standard -> date de la cellule A1 dans NOTE et dans la cellule cible de DATABASE. [ICI est mon problème !]
quand l'utilisateur B (ou même A) reprend le même fichier, la case A1 de "NOTE" est vide mais maintenant le format de A1 est Date. Si il entre un nombre, on se retrouve avec une date, ce que je ne souhaite pas. De plus, il se pourrait que plus tard j'écrase la date écrite dans Database avec un chiffre mais celui-ci va se transformer en date.

Comme je vérouille déjà la feuille en écriture, je ne peux pas verrouiller le format des cellules dévérouillées...
Une solution "simple" est de rentrer le caractère " ' " avant la date mais ne pouvant maîtriser les utilisateurs, je souhaiterais trouver une astuce de programmation. Je pensais changer le format à chaque ouverture de "NOTE" et "DATABASE" mais il existe peut-être un meilleur moyen ?

Je vous remercie.

Bonjour,

selon la version Excel utilisee, tu peux regarder les regles de validations de donnees (onglet donnees).

Tu peux y forcer certaines choses comme le format ou le type de valeur voire meme une valeur issues d'une liste specifique.

Bonjour,

tu peux également forcer le format de la cellule à "général" à cette étape :

Citation:

---

A l'ouverture du classeur la feuille "NOTE" est automatiquement vidée.

---

ou à la fermeture du fichier, ou son enregistrement, ou .... le moment que tu jugera opportun

l'enregistreur de macro te fournira la ligne de code à utiliser ;)

Bonjour Jean-philippe,

La version actuelle est Excel 2010. Les options de validation des données de ma version n'intègre pas "Texte", seulement une taille de texte min max. J'ai essayé en faisant par exemple 'longueur du texte" min 1 max 30, mais quand je mets une date, Excel continue à changer automatiquement le champs date.

En parallèle j'essaye la voie "modification du format des cellules qui pourrait se faire dans un deuxième temps" mais le problème, c'est qu'une date qui a été rentrée dans une cellule standard, transforme le format automatiquement en date mais si je change ensuite le format de cette cellule, cette date devient un chiffre.

Pour l'instant ma seule solution est de "former" les utilisateurs futurs à mettre le caractère " ' " avant la date. Cette solution n'est pas parfaite pour moi car le programme VBA que j'ai fait, pourrait servir à d'autres personnes dont je ne maîtriserai pas la diffusion.

Si vous avez d'autres idées je suis preneur !

Merci

Merci Joe mais comme indiqué ci-dessus, la modification du format qui se ferait après change la date en chiffre.

....

En fait le probleme que tu as c'est dans la meme cellule tu permets a tes utilisateurs de taper soit une valeur numerique soit une date...

Ne serait-il pas judicieux de faire 2 cellules dans lesquelles ecrire et te permettre de forcer le format dans chacune d'elles ?

Citation:

---

Envoyé par joe.levrai

Bonjour,

tu peux également forcer le format de la cellule à "général" à cette étape
ou à la fermeture du fichier, ou son enregistrement, ou .... le moment que tu jugera opportun

---

Dans ce cadre, on peut très bien jouer sur l'évènement SelectionChange de la feuille
Quand on arrive en A1, on efface le contenu et on remet le format à Général

Tu n'as plus de problème de format puisqu'il repart à "blanc" quand tu sélectionnes la cellule pour saisir

Code:

---

1 2 3

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("A1")) Is Nothing Then Target.Value = "": Target.NumberFormat = "General" End Sub

---

A sécuriser un peu quand même si besoin, par exemple vérifier qui Target ne contient qu'une cellule

Jean-Philippe,

Sans rentrer dans les détails, mon projet ne me permet pas de faire une case pour chaque. L'idée est de mettre du texte dans cette case mais ce texte peut-être:
des lettres
une date
des nombres...

Mon programme doit prendre tous les cas.

Joe,
Je vais creuser ta proposition, malheureusement pas maintenant...Je reviendrai vous indiquer la progression du sujet....

Merci à vous deux

Joe,

En fait je ne pouvais pas appliqué ta méthode car à partir du moment où la date était rentrée le format devenait date. En revanche, j'ai utilisé ton idée de la manière suivante:

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_SelectionChange(ByVal Target As Range)   Sheets("NOTE").Unprotect Range("A1").NumberFormat = "@" Sheets("NOTE").Protect   End Sub

---

L'idée étant de "forcer" le format texte à chaque déplacement dans les cellules. Maintenant je dois faire de même pour la cellule cible où le texte sera rentrée dans la Database (ce qui va me prendre plus de temps car mon programme alimente de pleins de manière différentes cette database...grrrrr). Franchement le système de reconnaissance des dates par Excel, m'a bien pris la tête.

En tout cas, merci pour votre support