Re : concatener avec format
bonsoir tt le monde , voici un code qu' une personne de mon boulot a réussi a faire , dans cette macro a chake fois ke l on encadre une valeu avec #G celle ci se met en gras , par contre on arrive pas à l appliquer pour plusieurs mise en forme par exemple si on rencontre #I alors italique , #GI gras italique
kelkun a une idée ??
merci d avance
Public Sub miseEnforme()
' declaration des variables
Dim chaine As String
Dim debut As Integer
Dim fin As Integer
Dim indice As Integer
Dim listeparam(2, 20) As Integer
For a = 0 To 1
For b = 0 To 19
listeparam(a, b) = 0
Next b
Next a
Range("h26").Select
chaine = ActiveCell.FormulaR1C1
debut = 0
fin = 0
indice = 0
'boucle de traitement
For i = 1 To Len(chaine) - 1
If Mid(chaine, i, 1) = "#G" Then
' le texte suivant est en gras
If debut = 0 Then
debut = i + 2 - (2 * (1 + 2 * indice))
Else
fin = i - 1 - (2 * (1 + 2 * indice))
End If
End If
If debut > 0 And fin > 0 Then
If indice < 19 Then
listeparam(0, indice) = debut
listeparam(1, indice) = fin
indice = indice + 1
End If
debut = 0
fin = 0
End If
Next i
Range("h26").Replace what:="#G", replacement:="", lookat:=xlPart,
searchorder _
:=xlByRows, MatchCase:=False
For j = 0 To 19
debut = listeparam(0, j)
fin = listeparam(1, j)
format = listeparam(2, j)
If debut = 0 Then
Exit For
End If
With Range("h26").Characters(Start:=debut, Length:=fin - debut + 1).Font
.FontStyle = "gras"
Next j
End Sub