A voir également:
- Erreur dans mon code
- Erreur 0x80070643 - Guide
- Code asci - Guide
- Code puk bloqué - Guide
- Code erreur t32 ✓ - Forum Livebox
- Erreur 38 free ✓ - Forum Mobile
3 réponses
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 689
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 689
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