Imposer un format date et Texte -meme cellule

Bonjour à vous,

Voici ce que j'aimerais pouvoir faire :

La colonne a , c et d doivent absolument être en format de date afin que les utilisateurs ne puisse indiquer autre chose et le format doit être respecté. Mais il doivent aussi pouvoir indiquer les lettres S/O ( pas autre chose)

Est ce possible via une macro ? J'ai essayer avec la validation et imposer le format de date mais par la suite aucun texte n'est autoriser. Est ce quelqu'un à une idée ? Je commence en Excel, votre aide me sera très utile !

Merci

Bonsoir,

Je pense qu'avec du vba , c'est relativement simple, en couplant avec un évenementiel de feuille , cela devairt être transparent pour l'utilisateur.

Mais peut être qu'avec les experts en formule de For.Ex.Prat, je sais que l'on ne sais jamais .....

Si tu veux , je te prépare la démo en vba...

Bonjour Misterno

Une formule en VBA pourrait faire , si tu as un peu de temps pour maider , ton aide sera apprécié !!!

Merci

Bonsoir

Misterno, tu peux 'rouler" en VBA parce que c'est impossible en validation de données

Cordialement

bonjour

eventuellemnt sans vba ( format perso et validation perso)

695cahtie-mic.xls (15.50 Ko)

je n'ai fait que pour une cel a titre d'essai (j'ai cherché)

Bonsoir

Tout d'abord merci à tulipe_4

J'avais fait des recherches aussi mais je plantais dans la formule de mon format personnalisé (pour la validation des données)

Moi j'ai compris soit une date (donc tout nombre), soit la chaîne complète "S/O" et j'ai noté cela

Menu : Données ---> Validation --> Personnalisé avec comme Formule

=OU(ESTNUM(A1);A1="S/O")

Bien sur format de la cellule : Date

A voir

Bonsoir

Moi, j'ai cru comprendre une date ou s/o

C'est pour cela que...

Cordialement

bonsoir

moi j'ai lu le titre date et texte et non pas date ou texte a moins que........

wait and see

pour etre sur j'ai testé (experimenté) le format suivant 0;@ qui permet (a voir) de mettre soit une lettre ; soit une lettre et la date ;soit la date et une lettre reste a choisir la droite ou la gauche dns validation

cordialement

Bonjour ,

Voici donc un exemple

pour voir le code : Clic Droit sur l'onglet feuil1, puis visualiser le code

Ici donc , le format est surveillé à l'intérieur de la grille,

Si s/o alors devient S/O , le format cellule est forcé en mode texte

Si date 1/1/11 devient 01/01/2011, le format cellule est forcé en mode date

si autre chose alors message donnant la consigne de saisie et force en saisie la date du jour

voilà, après l'on peut toujours adapter mais le principe est là

voilà , c'est tout pour le moment

Pour pouvoir réagir en temps réél par rapport au saisie clavier, on utilise l'évenementiel de la feuil1 se déclenchant lorsqu'un changement est détecté dans la feuille.

Voici le code

Private Sub Worksheet_Change(ByVal Target As Range)
Dim inter As Variant

 'passage uniquement si une cellule est sélectionnée
 If Target.Count = 1 Then

  'Là, prise en compte des lignes 3 à 26
  If Target.Row > 2 And Target.Row < 27 Then

  'Là on ne prendra en compte que les colonnes B, C et D
   If InStr(1, "2,3,4", Target.Column) > 0 Then

  'Mémorise la valeur avant transformation du type de cellule
   inter = Target.Text

   'Si date détectée
    If IsDate(Target.Text) Then
      Target.NumberFormat = "dd/mm/yyyy"
      Target = inter

      'Texte ="S/O" détecté
     ElseIf UCase(Target.Text) = "S/O" Then
           Target.NumberFormat = "@"
           Target = UCase(inter)

          'Valeur NC alors message
          Else
           MsgBox "Valeurs autorisées : Date sous format : jj/mm/aaaa ou annotation S/O"
           Target.NumberFormat = "dd/mm/yyyy"
           Target = Date
         End If
    End If
  End If
 End If
End Sub

et voici le fichier , en excel2003Fr

Bonjour a tou!,

Je vous remercie pour votre aide! Je vais essayer les différentes proposition sur mon fichier ce matin.

Il s'agit bien de pouvoir inscrire que la date par ex. d'une réunion ou sans objet si aucune réunion n'est prévu pour ce dossier ( les dossier étant représnté sur chaque ligne.) et rien si le dossier n'est pas encore traité.

Je vous reviens d'ici peu avec le résultat des tests !

Merci encore !

Cat

-- 29 Juil 2011, 05:36 --

Bonjour,

Le code fonctionne bien , mais est ce que c'est possible d'autoriser qu'il n'y es aucune donnée dans les cellules, par exemple si il n'y à pas encore de date pour une réunion mais qu'elle sera planifié plus tard ?? Tout en gardant la possiblité d'inscrire S/O si il n'y à rien ?

Aussi , est possible que le format de date affiché soit : 28 juin 2011 par exemple ?

Merci encore

Bonjour,

Voilà les petites mise au point ....

BOnjour,

Le code fonctionne bien mais petit problème, la date du jour et l'année s'inverse .

Si j'écris le 15 mai 2011, il le change pour le 11 mai 2015 !

Aussi je n'arrive pas à ne pas faire s'afficher le - entre les dates.

ex. 15-janvier-2011,,, est-ce possible qu'il ne s'affiche pas ?

Merci

pour le temps consacré à m'aider !!

Bonjour,

Comme ça peut -être ....

Merci pour la rapidité !!!

Ca fonctionne, peut-etre que mon format de date d'était pas correct !!

Merci

Je continue de faire quelques tests.

Merci

Rechercher des sujets similaires à "imposer format date texte meme"