A voir également:
- Erreur dans mon code
- Erreur 0x80070643 - Accueil - Windows
- Code asci - Guide
- Code puk bloqué - Guide
- Code telephone oublié - Guide
- Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
3 réponses
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 716
13 mars 2017 à 18:55
13 mars 2017 à 18:55
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
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 716
Modifié par gbinforme le 13/03/2017 à 22:14
Modifié par gbinforme le 13/03/2017 à 22:14
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
