VBA mise en gras d'une des deux cellules lors d'une concaténation

lancelot92 · 29 Juin 2015

Bonjour à tous,

après plusieurs recherches infructueuses, je m'en remets à vous pour résoudre un petit problème qui n'est sûrement pas compliqué mais que je peine à résoudre.

J'ai un code (qui fonctionne parfaitement) qui permet de concaténer les valeurs de cellules de plusieurs colonnes. Seulement j'aimerais mettre en gras (ou en couleur) la valeur qui provient de la cellule B c'est-à-dire

Code:

Range("B" & i).Value

mais je en sais pas comment m'y prendre.

Auriez vous des idées ?

Pour info, voici mon code complet

Code:

Sub tri_actions()
j = 96
For i = 4 To 31
If Not Range("G" & i) = "" Then
Range("AP" & j).Value = "- " &[B] Range("B" & i).Value [/B]& Chr(10) & Range("J" & i).Value
Range("AU" & j).Value = Range("N" & i).Value
Range("AV" & j).Value = Range("O" & i).Value
j = j + 4
End If
Next
j = 98
For i = 4 To 31
If Not Range("G" & i) = "" Then
Range("AP" & j).Value = Range("M" & i).Value
j = j + 4
End If
Next
Cells(7, 35).Select
'ActiveSheet.PrintOut
ThisWorkbook.Save
End Sub

Paf · 29 Juin 2015

Re : VBA mise en gras d'une des deux cellules lors d'une concaténation

Bonjour

une solution possible:

rajouter juste après

Code:

Range("AP" & j).Value = "- " & Range("B" & i).Value & Chr(10) & Range("J" & i).Value

la ligne

Code:

Range("AP" & j).Characters(3, Len(Range("B" & i))).Font.Bold = True

A+

lancelot92 · 29 Juin 2015

Re : VBA mise en gras d'une des deux cellules lors d'une concaténation

Bonjour Paf,

Cela fonctionne... à la perfection.

Problème résolu.

Un grand merci à toi !!

lancelot92 · 29 Juin 2015

Re : VBA mise en gras d'une des deux cellules lors d'une concaténation

Juste une petite dernière chose :
Là ça fonctionnement parfaitement car je mets en gras depuis le premier caractère jusqu'à la longueur de Range("B" & i).. La longueur de la chaîne de caractères peut donc être variable, ça ne pose aucun problème elle sera toute en gras.

Cependant si je veux mettre en gras la deuxième partie de la concaténation à savoir Range("J" & i).Value, comment dois-je faire ? Car celle-ci démarre à la fin de Range("B" & i)., et peut donc être variable.

Suis-je compréhensible ? Comment dois-je faire ?

Paf · 29 Juin 2015

Re : VBA mise en gras d'une des deux cellules lors d'une concaténation

Re,

Ce sera le même principe, en utilisant Range("AP" & j).Characters(Départ, Longueur).Font.Bold = True

où Départ indiquera la position où commenceront les caractères gras( ici après CHR(10)): soit 2 ("- " ) + longueur Bi (Len(Range("B" & i))) + 1 (Chr(10)) + 1 (pour être sur le caractère suivant chr(10))

et où Longueur sera le nombre de caractères à mettre en gras; soit Len(Range("J" & i))

Bonne suite

lancelot92 · 30 Juin 2015

Re : VBA mise en gras d'une des deux cellules lors d'une concaténation

C'est bon tout est rentré dans l'ordre. Ce que coup ci je crois que c'est résolu. =)

Un grand merci pour votre aide Paf !

VBA mise en gras d'une des deux cellules lors d'une concaténation

lancelot92

Guest

Paf

XLDnaute Barbatruc

lancelot92

Guest

lancelot92

Guest

Paf

XLDnaute Barbatruc

lancelot92

Guest

Discussions similaires

VBA mise en gras d'une des deux cellules lors d'une concaténation

lancelot92

Guest

Paf

XLDnaute Barbatruc

lancelot92

Guest

lancelot92

Guest

Paf

XLDnaute Barbatruc

lancelot92

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency