Mise en forme sur concaténation...

Bonjour,

J'ai repris la partie if target.column... car si tu n'as qu'une ligne de concernée il vaut mieux ne faire le traitement que sur modification des 2 cellules qui modifie la concaténation.
Ton code devient (avec test des majuscules) :

Private Sub Worksheet_Change(ByVal Target As Range) 
    Dim fini As Boolean, p As Long 
    If Intersect(Target, Union([B4], [D4])) Is Nothing Then Exit Sub  ' là, c'est en surveillant les 2 cellules où se trouvent les données de départ 
    Application.EnableEvents = False 
    [H4] = [B4] & " " & [D4]    ' là, on précise la cellule où opérer la concaténation, sans passer par une formule dans la feuille-même (sinon, c'est tout rouge) 
    [H4].Font.ColorIndex = 0    'là, on dit que c'est tout en noir par défaut 
    If Left([H4], 1) = UCase(Left([H4], 1)) Then 
        [H4].Characters(1, 1).Font.ColorIndex = 3    ' là, on précise qu'on veut l'initiale en rouge 
    End If 
    p = InStr([H4], " ")    ' là on sépare les mots de la chaîne de concaténation 
    While p > 0 
        If Mid([H4], p + 1, 1) = UCase(Mid([H4], p + 1, 1)) Then 
            [H4].Characters(p + 1, 1).Font.ColorIndex = 3    ' là, on applique aussi le rouge à l'initiale du mot à l'intérieur de la chaîne 
        End If 
        p = InStr(p + 1, [H4], " ")    ' et là on passe au suivant - soit, faire une boucle 
    Wend 
    Application.EnableEvents = True 
End Sub

Si plusieurs lignes sont concernées précise-le qu'on modifie les tests et l'adressage des cellules.

eric

OK, merci, c'est exactement ça qu'il me fallait !

T'es trop fort ! c'est impeccable...

A propos des lignes concernées et de l'adressage, eh ben en fait, dans mes docs d'origine, cela serait appliqué sur 2 types de "zones", l'un concernant les lignes de titre de mes listes (concaténation du nom de la classe et de celui de l'école) et l'autre concernant plutôt les noms et prénoms de mes élèves... et ce sur plusieurs feuilles...

Après, si je dois entrer dans les détails, ce serait trop fastidieux, mais disons que je sais copier-coller la macro pour que cela se fasse sur chaque cellule concernée, y compris d'une feuille à l'autre automatiquement...

Par contre, pour la zone de noms de mes élèves, je peux peut-être changer :

If Intersect(Target, Union([B4], [D4])) Is Nothing Then Exit Sub

par :

If Intersect(Target, Range("A1:K24")) Is Nothing Then Exit Sub

par exemple, et ça serait bon aussi, non ?

Amicalement,

Romuald

Extra ! Je ne pouvais pas espérer mieux, ni aussi rapidement !

Encore tous mes plus chaleureux remerciements ! ^_^

Pour répondre à ta question, effectivement, je n'ai pas une chaîne de 11 cellules à rattrouper en une seule (!!!), je voulais simplement signifier que dans cette zone (mais ce n'est qu'un exemple ici, car en réalité cela varie selon le document où je veux placer la macro), j'aurai besoin de surveiller certaines cellules définies plus loin, comme les nom-prénom des élèves, pour les concaténer par la suite.

Par contre, il est vrai que j'ai bien plus d'une dizaine de concaténations (mais pas une concaténation d'une dizaine de données, entendons-nous bien ! ^_^) à réaliser ainsi sur au moins deux docs différents... d'où le côté "fastidieux" à décrire dans ce post... et le côté "pratique" de la macro à placer en module !

L'un concerne des listes d'élèves (tri alphabétique, chronologique, par dates d'anniversaire, avec pyramide des âges, histogrammes...) avec en "en-tête" la classe et le nom de l'école et en bas de page les nom et adresse de l'établissement (1 page avec les données de départ, 5 pages avec les rappels de données - concaténées)... là, ça fait 10 références...

L'autre concerne l'emploi du temps de la classe : 1 "de base" avec les données de départ (comme nom de la classe et nom de l'école, noms-prénoms des élèves) , 1 "général" avec les diverses prises en charge extérieures des élèves qui interfèrent au cours de la semaine - donc, rappel de données du premier en "en-tête", et 1 page avec les emplois du temps individuels pour récapituler / compiler le tout à chacun de mes élèves - ils sont 12 au total -, avec re-"en-tête" puis leur nom-prénom au-dessus de chaque EdT individuel avec la présentation "qui va bien" (majuscule initiale en rouge)... Donc oui, au niveau de l'adressage, c'est un peu complexe, mais le plus dur est fait... grâce à toi !

Donc, là, merci, merci, merci... je suis vraiment trop content ! ^o^

Voilà, je devrais pouvoir me débrouiller maintenant pour continuer mes docs... mais si je "bloque" encore... eh bien je crée une nouvelle discussion ! ^_^

Amicalement,

Romuald