[2007] Erreur sur le code

**eliot.raymond** · 27/03/2009, 15h25

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**casefayere** · 27/03/2009, 15h29

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Qwazerty** · 27/03/2009, 15h39

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**eliot.raymond** · 27/03/2009, 16h10

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**casefayere** · 27/03/2009, 16h13

re,
pourquoi ajouter dans

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

essaie en supprimant cette partie si tu ne veux que la premiere lettre

**aalex_38** · 27/03/2009, 16h15

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Len(Cel.Value) - 1

**casefayere** · 27/03/2009, 16h16

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

**eliot.raymond** · 27/03/2009, 16h33

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

**aalex_38** · 27/03/2009, 16h34

Re

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**casefayere** · 27/03/2009, 16h36

J'ai dit des bétises

je vais essayer ton code et peut-être te donner la solution

**casefayere** · 27/03/2009, 16h46

J'ai essayé ce code et ça marche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**eliot.raymond** · 27/03/2009, 17h23

Re alex38 et Casefayere

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

j'ai mis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**casefayere** · 27/03/2009, 17h27

As-tu bien copié le dernier code que j'ai proposé, chez moi ça marche et j'ai E 2007 aussi

**aalex_38** · 27/03/2009, 18h16

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.

**eliot.raymond** · 27/03/2009, 18h18

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**casefayere** · 27/03/2009, 23h52

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**eliot.raymond** · 28/03/2009, 15h55

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

**casefayere** · 28/03/2009, 16h15

Bonjour Ray,

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 .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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**eliot.raymond** · 28/03/2009, 16h45

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

**casefayere** · 28/03/2009, 17h01

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Allez, on y croit !!!!

[2007] Erreur sur le code

Macros et VBA Excel

Discussions similaires

Partager

Partager