Erreur dans mon code
vieuxray
-
vieuxray -
vieuxray -
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
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
A voir également:
- Erreur dans mon code
- Code ascii - Guide
- Code puk bloqué - Guide
- Code activation windows 10 - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Code blocks - Télécharger - Langages
3 réponses
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
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
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
Bonne soirée a toi et merci pour les modifs
Cdlt Ray
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
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
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
