[2007] Erreur sur le code

Version imprimable

Voir 40 message(s) de cette discussion en une page

[Excel 2007][/VBA]

Bonjour a tous et toutes, forum bonjour,

Voila je souhaiterai mettre la premiere lettre du premier mot d'une phrase en MAJUSCULE en GRAS et ROUGE, mais ca plante et je ne trouve pas l'erreur.

Si quelqu'un veut bien me depanner, hé bien ca serai super sympa.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim Cel As Variant For Each Cel In Range("G2:H27") Cel.Select ActiveCell = UCase(Left(ActiveCell, 1)) & Right(ActiveCell, Len(ActiveCell) - 1) With ActiveCell.Characters(1, 1).Font .Name = "Arial" .FontStyle = "Gras" .Size = 14 .ColorIndex = 3 End With Next Cel End Sub
Merci d'avance et bonne apres midi a tous

Raymond

Bonjour,
je pense que ton cel.select ne sert à rien, mais il faudrait savoir sur quelle ligne ça plante, remplace activecel par cel

Code:

1
2
3
4
5
6
7
cel = UCase(Left(ActiveCell, 1)) & Right(ActiveCell, Len(ActiveCell) - 1)
    With ActiveCell.Characters(1, 1).Font
            .Name = "Arial"
            .FontStyle = "Gras"
            .Size = 14
            .ColorIndex = 3
    End With

Salut
Ca partait bien pourtant avec la boucle For each...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cel As Variant
For Each Cel In Range("G2:H27")
'Cel.Select
Cel.value = UCase(Left(Cel.value, 1)) & Right(Cel.value, Len(Cel.value) - 1)
    With Cel.Characters(1, 1).Font
            .Name = "Arial"
            .FontStyle = "Gras"
            .Size = 14
            .ColorIndex = 3
    End With
Next Cel
End Sub

Je ne sais pas si ça fonctionne mieux je n'est pas testé, mais en tous cas la vérité est rétabli ^^

A++
Qwaz

Salut a vous Casefayere et Qwazerty

Merci de m'avoir repondu, ca ne marche pas, j'ai suivi vos conseils

(1)erreur d'execution 5
(2)argument appel de procedure incorrect
(3)le code Cel.Value= Ucase etc....etc passe en jaune
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub Worksheet_Change(ByVal Target As Range) Dim Cel As Variant For Each Cel In Range("G2:H27") Cel.Value = UCase(Left(Cel.Value, 1)) & Right(Cel.Value, Len(Cel.Value) - 1) With Cel.Characters(1, 1).Font .Font.Name = "Arial" .Font.Style = "Gras" .Font.Size = 14 .ColorIndex = 3 End With Next Cel End Sub
Merci bien a vous,

A plus tard
raymond

27/03/2009, 15h13
casefayere

re,
pourquoi ajouter dans

Code:

Cel.value = UCase(Left(Cel.value, 1)) & Right(Cel.value, Len(Cel.value) - 1)

Code:

& Right(Cel.value, Len(Cel.value) - 1)

essaie en supprimant cette partie si tu ne veux que la premiere lettre
27/03/2009, 15h15
aalex_38

Il peut y avoir plantage si ici, si la cellule est vide :

Code:

Len(Cel.Value) - 1
27/03/2009, 15h16
casefayere

j'ai oublié de dire que la valeur -1 avec right ne doit pas etre acceptée,

ne pas faire attention à cette réponse, j'avais mal regardé le len

Excuses-moi
27/03/2009, 15h33
eliot.raymond

RE re

j'ai essayer de nouveau mais rien n'y fait erreur en tout genre, bref je suis completement perdu

Que faire, a part reprendre a zéro ?? svp

Raymond

Re

J'ai modifié ton code ainsi (fonctionne testé) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub z()
Dim Cel As Range
For Each Cel In Range("G2:H27")
If Len(Cel.Value) > 1 Then
    Cel.Value = UCase(Left(Cel.Value, 1)) & Right(Cel.Value, Len(Cel.Value) - 1)
else
Cel.Value = UCase(Cel.Value)
End If
    With Cel.Characters(1, 1).Font
            .Name = "Arial"
            .Bold = True
            .ColorIndex = 3
            .Size = 14
    End With
Next Cel
 
End Sub

27/03/2009, 15h36
casefayere

J'ai dit des bétises :oops: je vais essayer ton code et peut-être te donner la solution

J'ai essayé ce code et ça marche

Code:

1
2
3
4
5
6
7
8
9
For Each Cel In Range("G2:H27")
Cel.Value = UCase(Left(Cel, 1)) & Right(Cel, Len(Cel) - 1)
    With cel.Characters(1, 1).Font
            .Name = "Arial"
            .FontStyle = "Gras"
            .Size = 14
            .ColorIndex = 3
    End With
Next Cel

27/03/2009, 16h23
eliot.raymond
Re alex38 et Casefayere

Je suis desolé ca ne fonctionne pas chez moi, j'ai essayer vos versions

j'ai mis
Code:

1 2 3 Private Sub Worksheet_Change(ByVal Target As Range) Dim Cel As Variant
'si je ne mets pas ce code = erreur de pile

erreur d'execution (28) plante au code For each etc etc

et redemarre excel 2007 hé oui

j'ai rebooter mon PC j'ai essayer un autre GROS code qui fonctionne sans probleme

peut etre incompatiblité j'ai vista XL07, j'ai pourtant un wagon de codes tout
excel mais la je ne vois pas
quand on bidouille un truc c'est un autre qui merdouille, greeeuuuuu

ray
27/03/2009, 16h27
casefayere

As-tu bien copié le dernier code que j'ai proposé, chez moi ça marche et j'ai E 2007 aussi
27/03/2009, 17h16
aalex_38

Chez moi ça fonctionne aussi, mais le worksheet change pose peut-être problème, sans target ça signifie que le calcul est lancé à chaque changement.

L'erreur de pile peut faire penser a quelque chose comme ça.

deja tu peu essayer dans une procèdure a part pour voir.

RE Casefayere

De cette facon ca fonctionne, MAIS ca ne correspond plus a ce que je souhaitai.

(1) il démarre en ecrivant minuscule rouge
(2) passe la premiere lettre en majuscule rouge et le reste du mot est en rouge gras

(A) Ce que je voudrai c'est que ca demarre en ecrivant minuscule noir
(B) Que ca transforme juste la premiere lettre en majuscule rouge
(C) Et que ca repasse en ecriture minuscule noir

Reste a coder les couleurs au bon endroit
Je trouve que c'est pas facile pour les couleurs
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False For Each Cel In [G2:H27] Cel.Value = UCase(Left(Cel, 1)) & LCase(Mid(Cel, 2)) With Cel.Characters(1, 1).Font .ColorIndex = 3 .Name = "Arial" .FontStyle = "Gras" '--> C'est quoi le code contraire de GRAS .Size = 10 End With Next Cel Application.EnableEvents = True End Sub
J'ai de nouveau essayer ton code mais rien a faire soit que le change le PC ou le bonhomme, je deconne, je suis arriver a ca deja pas mal

Presque bon, merci et bonne journée a tous

ray

re,
Je ne suis pas d'accord avec toi, il y a toujours une solution, recopie exactement ce code, j'insiste :

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
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Cel
Application.ScreenUpdating = False
Application.EnableEvents = False
With Range("G2:H27").Font
        .ColorIndex = xlAutomatic
End With
For Each Cel In Range("G2:H27")
Cel.Value = UCase(Left(Cel, 1)) & Right(Cel, Len(Cel) - 1)
    With Cel.Characters(1, 1).Font
            .Name = "Arial"
            .FontStyle = "Gras"
            .Size = 11
            .ColorIndex = 3
    End With
With Range("G2:H27").Font
        .ColorIndex = xlAutomatic
End With
 
Next Cel
Application.ScreenUpdating = True
Application.EnableEvents = True
 
End Sub

allez on y croit,

Bonne nuit

28/03/2009, 14h55
eliot.raymond

Salut Casefayere,

j'ai essayer ton code d'hier soir, mais il ne fonctionne pas chez moi, j'ai fait attention comme tu me le conseillai, je t'en remercie, mais as tu lu le mien de ce matin je l'ai modifier a 8h30.

dit moi ce que tu en penses svp

Merci pour le temps passer pour le coup de main.

Bonne journée a toi

Raymond

Bonjour Ray,

En attendant de comparer nos codes que moi j'ai mis en selectionchange, toi en change, pour ta question

Citation:

.FontStyle = "Gras" '--> C'est quoi le code contraire de GRAS

Code:

.FontStyle = "Normal"

J'espère avoir le temps de regarder car je dois sortir

Je viens de tester ton code, j'ai juste ajouter une instruction, vérifie :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Private Sub Worksheet_Change(ByVal Target As Range) Dim cel 'à ajouter '--------------------------------------- With Range("G2:H27").Font .ColorIndex = xlAutomatic End With '------------------------------------------ Application.EnableEvents = False For Each cel In [G2:H27] cel.Value = UCase(Left(cel, 1)) & LCase(Mid(cel, 2)) With cel.Characters(1, 1).Font .ColorIndex = 3 .Name = "Arial" .FontStyle = "Gras" '--> C'est quoi le code contraire de GRAS .Size = 10 End With Next cel Application.EnableEvents = True End Sub

28/03/2009, 15h45
eliot.raymond

Re

C'est presque bon des que je l'ai lancer j'ai ecrit, ca marcher bien

MAIS des que j'ai entrer un autre mot dans la cellule suivante

la premiere en GRAS MAJUSCULE ROUGE ok mais le reste aussi reste en gras

toujours une solution tu m'a dit hier , comment on peut modifier ca svp

Merci aussi pour Font.style="gras" ou "normal" le VBA me monte a la tete

ca ce fume pas le VBA pourtant

merci a plus tard
Raymond

Mais non, calmes toi, pour éviter le gras il suffit d'ajouter dans ma partie de code
Code:

1 2 3 4 5 6 7 'à ajouter '--------------------------------------- With Range("G2:H27").Font .ColorIndex = xlAutomatic .FontStyle = "Normal" End With '------------------------------------------
Allez, on y croit !!!!

Voir 40 message(s) de cette discussion en une page