Erreur dans mon code

Bonjour a tous, forum bonjour



Excel 2007 VBA

Voila je souhaiterai afficher la date dans ce format (Lundi 13 Mars 20017) avec la première lettre du jour et du mois en majuscule gras et rouge

seulement cela ne s'affiche pas correctement et je ne trouve pas l'erreur dans mon code en page excel feuil1.

si quelqu'un svp veut bien regarder ou je merdouille ca serait bien gentil.

Lien pour accès au fichier, http://www.cjoint.com/c/GCnnW4qKOxz

Bonne après midi a vous et merci pour votre aide

Cdlt Vieuxray

3 réponses

  • Votes
  • Date
  • Date décroissante
  1. Contributeur
    Bonjour,

    Ta procédure fonctionne, je te l'ai modifiée pour pouvoir faire une boucle sur la colonne et le résultat est bon. Cela veux dire que tu as dû faire une erreur dans l'appel probablement.

    https://www.cjoint.com/c/GCnr0AIhRPl
    1. Salut gbinforme,

      Merci pour ta réponse, c'est gentil.

      Pas tout compris, car je ne vois pas ou tu appelles la sub ci-dessous

      Sub Date_Majuscule_Couleur()


      Bonne soirée a toi et merci pour les modifs

      Cdlt Ray
      1. Contributeur
        Bonsoir,
        Je l'ai lancée manuellement car ton bouton ne voulait pas fonctionner !
        Donc cette procédure est correcte mais il faut une valeur date en entrée.
        Tu peux d'ailleurs simplifier ton code ainsi
            With .Characters(2).Font
                 .FontStyle = "Normal"
                 .ColorIndex = xlAutomatic
            End With
            With .Characters(1, 1).Font
                 .FontStyle = "Gras"
                 .ColorIndex = 3
            End With
            With .Characters(InStr(InStr(.Text, " ") + 1, .Text, " ") + 1, 1).Font
                 .FontStyle = "Gras"
                 .ColorIndex = 3
            End With
        
    2. Salut gbinforme,

      Merci beaucoup pour les modifications, c'est sympa a toi.

      j'ai réadapter a mon programme et tout est bon, les majuscules s'affiche bien comme souhaiter.

      je te souhaite une agréable et bonne journée, et bien sur grand merci.

      Bien cordialement Raymond