Mettre en gras une partie du résultat de la VBA

Le 08/12/2015 à 19:49

bonjour

encore un truc tordu, je voudrais que les parties suivantes du code si dessous apparaisse : en gras et souligné :

Cells(ligne + 3, 10).Value & ":"

Cells(ligne + 3, 15).Value

merci par avance de votre aide

philippe

 Cells(ligne + 3, 2).Value = Cells(ligne + 3, 10).Value & ":" & " " & Cells(ligne + 3, 11).Value & " " _
 & "," & " " & Cells(ligne + 3, 15).Value & " " & "," & " " & Cells(ligne + 3, 12).Value & " "  _
& Cells(ligne + 3, 13).Value & " " & Cells(ligne + 3, 14).Value

Le 08/12/2015 à 21:32

Bonsoir,

Ci-joint une proposition à tester.

Bonne soirée

Bouben

51mettreengraspartietexte.xlsm (26.24 Ko)

Le 09/12/2015 à 11:37

bonjour

merci pour ton aide ça à l'aire de fonctionner mais je n'arrive pas à associer ta macro à la mienne.

ci joint le fichier de test et le code

merci pour ton aide

Philippe

Sub diffusionresponsable()
Sheets("diffusion liste des clubs").Select
Range("b1:b500").Select 'on supprime les données de la feuille
Selection.ClearContents
Dim Ligne As Integer, ligne1 As Integer
Dim ligne3 As Integer
'titre
Ligne = 2 'diffusion
ligne1 = 2 'équipe
Cells(Ligne, 2).Value = "RESPONSABLES EQUIPES DE" & " " & Worksheets("Equipes").Cells(ligne1, 1).Value
ligne1 = 2 'équipe
ligne3 = 5 'diffusion
Do While Cells(ligne3, 1).Value <> ""
Cells(ligne3, 10).Value = Sheets("Equipes").Cells(ligne1, 2).Value
With Cells(ligne3, 11)
.Formula = "=IFERROR(VLOOKUP(RC[-1],'Inscriptions'!R2C3:R150C10,4,FALSE),"""")"
.Value = .Value
End With
With Cells(ligne3, 12)
.Formula = "=IFERROR(VLOOKUP(RC[-2],'Inscriptions'!R2C3:R150C10,5,FALSE),"""")"
.Value = .Value
End With
With Cells(ligne3, 13)
.Formula = "=IFERROR(VLOOKUP(RC[-3],'Inscriptions'!R2C3:R150C10,6,FALSE),"""")"
.Value = .Value
End With
With Cells(ligne3, 14)
.Formula = "=IFERROR(VLOOKUP(RC[-4],'Inscriptions'!R2C3:R150C10,7,FALSE),"""")"
.Value = .Value
End With
With Cells(ligne3, 15)
.Formula = "=IFERROR(VLOOKUP(RC[-5],'Inscriptions'!R2C3:R150C10,8,FALSE),"""")"
.Value = .Value
End With
Cells(ligne3, 2).Value = Cells(ligne3, 10).Value & ":" & " " & Cells(ligne3, 11).Value & " " & "," _
& " " & Cells(ligne3, 15).Value & " " & "," & " " & Cells(ligne3, 12).Value & " " _
& Cells(ligne3, 13).Value & " " & Cells(ligne3, 14).Value
ligne1 = ligne1 + 1 'équipe
ligne3 = ligne3 + 2 'diffusion
Loop
End Sub

20tirage-test2.xlsm (71.37 Ko)

Le 09/12/2015 à 20:43

Bonsoir,

Ci-joint une nouvelle version, ajoutée dans ton fichier, à tester.

Bonne soirée

Bouben

45tirage-test2-v0-1.xlsm (76.95 Ko)

Le 09/12/2015 à 21:59

bonsoir bouben

ok pour moi c'est bien se que je souhaite

merci beaucoup

Philippe