[2007] Erreur sur le code

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

[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, 14h29

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, 14h39

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, 15h10

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, 15h13

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, 15h15

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, 15h16

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** · 28/03/2009, 15h45

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, 16h01

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 !!!!

**eliot.raymond** · 28/03/2009, 17h12

RE-re

ca marche mais quand on demarre ou que l'on change de cellule ca ecrit toujours en ROUGE et GRAS minuscule

j'ai beau lui dire ecrit noir hé bien y veut pas

xlautomatic ca veut dire quoi ???
j'ai mis 1 pour noir pareil ca reste rouge

je vais encore essayer pas facile tout ca

merci bien a plus tard

Ray

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

Bon je viens de faire un fichier tout bete en exemple, essaie le, ça marche
mais tiens moi au courant,

PS : je l'ai enregistré en version E97-2003 car je ne connais pas ta version excel

**eliot.raymond** · 28/03/2009, 17h58

Re

je viens d'essayer ton fichier, ca fonctionne bien, je suis entierement d'accord MAIS pourquoi il ecrit en ROUGE et GRAS minuscule

ecrit un mot ca change bien ok
passe a la cellule dessous ok
ecrit hé bien ca ecrit minuscule rouge gras
pourquoi pas noir ????
c'est la que je comprends pas, c'est pas faute d'essayer crois moi

les mysteres de l'informatique va savoir

j'allais oublier suis sur Excel 2007 Fr et vista officiel

merci raymond

**casefayere** · 28/03/2009, 18h02

J'ai renvoyé un fichier entre temps, essayes le

**eliot.raymond** · 28/03/2009, 18h04

oui oui j'ai vu mais meme probleme

**casefayere** · 28/03/2009, 18h11

Ok, si c'est important qu'au moment de la frappe, tes caractères soient en "Normal" et noir, je vais peut-etre trouver la solution avec un code un peu plus long

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

Je vais te faire une autre proposition
Cette proposition ne changera que la cellule active

[2007] Erreur sur le code

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager