Super !
Merci beaucoup à vous deux vous m'avez tiré une épine du pied comme on dit !
Ce n'est plus le sujet du post, mais à tous hasard y a t-il une méthode pour adapter la taille d'une shape (bulle) à la taille de la police qu'elle contient ?
Je pose cette question car quand je fais apparaître mes bulles avec les 26 premières lettres pas de soucis mais dès qu'on passe à A1, le format de la bulle n'est plus adapté et on ne voit que le "A"
Sub BULLE()
PP = Sheets("Plan-1").Range("BH4").Value
ActiveSheet.Shapes.AddShape(msoShapeOval, 875, 275, 30, 30).Select
Selection.ShapeRange.TextFrame2.VerticalAnchor = msoAnchorMiddle
Selection.ShapeRange.Name = PP
Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = PP
With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 1). _
ParagraphFormat
.FirstLineIndent = 0
.Alignment = msoAlignCenter
End With
With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 1).Font
.NameComplexScript = "+mn-cs"
.NameFarEast = "+mn-ea"
.Fill.Visible = msoTrue
.Fill.ForeColor.ObjectThemeColor = msoThemeColorLight1
.Fill.ForeColor.TintAndShade = 0
.Fill.ForeColor.Brightness = 0
.Fill.Transparency = 0
.Fill.Solid
.Size = 15
.Name = "+mn-lt"
End With
With Selection.ShapeRange.TextFrame2.TextRange.Font.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(0, 0, 0)
.Transparency = 0
.Solid
End With
With Selection.ShapeRange.Line
.Visible = msoTrue
.ForeColor.RGB = RGB(0, 0, 0)
.Transparency = 0
.Weight = 2.25
End With
Selection.ShapeRange.Fill.Visible = msoFalse
FindShape
IncBH4
End Sub
Voici ce que j'ai "bidouillé"... (ne vous moquez pas, je ne suis pas spécialiste )