Code a revoir

Bonjour a tous et toutes, forum bonjour,

Voila ce petit code me permets de changer la premiere lettre en majuscule gras et rouge dans la plage G2:H27. MAIS vous l'aurez deviner souci.

le code est a mon avis mal construit et il ne repond pas correctement a la demande.

Si quelqu'un svp veut bien me modifier le code, ca serai super gentil, car je ne trouve pas la cause

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

'*** CODE PREMIERE LETTRE MAJUSCULE GRAS et ROUGE ZONE G2:H27 Private Sub Worksheet_Change(ByVal Target As Range) With Target If Not Intersect(Target, [G2:H27]) Is Nothing Then If .Count <> 1 Then Exit Sub Application.EnableEvents = False .Font.ColorIndex = 1 .Font.Bold = False With Target.Characters(1, 1) .Font.ColorIndex = 3 .Font.Bold = True .Text = UCase(.Text) End With Application.EnableEvents = True End If If Not Intersect(Target, [G2:H27]) Is Nothing And .Count = 1 Then If Target = "" Then .Font.ColorIndex = 1 .Font.Bold = False End If End If End With End Sub

---

Merci a vous et de votre temps, une bonne journée

Raymond

Ce code remplie exactement sont office sans accro, ni soucis

Modifie une cellule il met la première lettre en rouge. Si tu modifie plusieurs cellule il ne fait rien (caopier coller par exemple) tu le lui demande toi meme avec

Code:

---

If .Count <> 1 Then Exit Sub

---

(l'enlever tels quel pourrais poser problème attention)
Il ne s'applique que sur les cellule que l'on modifie et pas celle qui été déjà remplie puisqu'ilest dans Worksheet_Change

Non sérieusement y a rien a redire je me le met de coté il pourrait me servir.

Après si tu nous précise ce que tu attend de ton code, on peut peut être voir comment le modifier. Mais là il est très bien tel quel.
Tu pourrais juste a la rigueur insérer ton deuxième test dans le premier et utiliser un else, mais ca ne changerais rien au résultat

Salut Krovax, forum,

Si mon code peut te servir, hé bien sert toi, je blague, bon merci pour ta reponse, c'est sympa.

comme tu me le propose si gentillement, je veux bien voir cette modif, ca pourrai me servir egalement plus tard, pour ma future gestion de schémas electronique.

Citation:

---

Tu pourrais juste a la rigueur insérer ton deuxième test dans le premier et utiliser un else, mais ca ne changerais rien au résultat

---

ok pour le meme resultat

juste If Not Intersect(Target, [G2:H27]) on peut pas faire autrement svp

Merci et au plaisir de te relire

Raymond

tu peux tester target.row et target.column mais c'est bien moins élégant.

sinon voila une version ou tu peux commencer ta ligne par un chiffre et qui permet de modifier plusieurs cellule d'un coup. La je ne vois pas ce que tu peux vouloir de plus ;)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Private Sub Worksheet_Change(ByVal Target As Range) Dim cel As Range For Each cel In Target With cel If Not Intersect(Target, [G2:H27]) Is Nothing Then If .Count <> 1 Then Exit Sub If cel = "" Then .Font.ColorIndex = 1 .Font.Bold = False Else Application.EnableEvents = False .Font.ColorIndex = 1 .Font.Bold = False With .Characters(1, 1) .Font.ColorIndex = 3 .Font.Bold = True If Not IsNumeric(Left(cel.text, 1)) Then .text = UCase(.text) End If End With Application.EnableEvents = True End If   End If End With Next End Sub

---

Re Krovack forum

Merci c'est très sympa, j'ai essayer ton code ca marche bien.

Pour répondre a ta question, je ne voulais rien de plus, c'est que j'apprends VBA et toutes les facons de faire sont interressantes, surtout les differentes manière d'arriver au meme resultat.

Mais tout ca n'est pas en vain, c'est deja imprimer et classer,

En fait le souci que je rencontre, lorsque j'opère en colonne G2:H27 des que je valide une entrée, c'est bon.

MAIS quand j'ecris apres donc dans une autre colonne, l'écriture reste en gras et rouge et ca c'est chiant, c'est pourquoi j'ai voulu tester autrement.

Donc pour le test en utilisant Target.Row et Target.Column pourquoi pas essayer j'aurai appris quelque chose comme ca, grace a toi et puis ca peut reservir.
Comme tu veux si tu a le temps.

En tout cas je te remercie, c'est super sympa a toi de m'aider.

Bonne apres midi

Raymond