Bonjour à tous
lorsque je lance un enregistrement de macro je me retrouve avec des lignes de code, qui me semble ne pas servir pour l'action en question et qui en plus crée un bug.
Donc je voulais avoir vos lumières sur la question.
Voici un exemple : j'enregistre le fait de cliquer sur un bouton et aller sur une feuille en particulier .
lorsque je vais sur l'editeur de vba voilà ce que je trouve :
Sub IndexRetour2()
'
' IndexRetour2 Macro
'
'
ActiveSheet.Shapes("Button 8").Select
Selection.Characters.Text = "Bouton 8"
With Selection.Characters(Start:=1, Length:=8).Font
.Name = "Calibri"
.FontStyle = "Normal"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = 2
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Sheets("INDEx").Select
End Sub
et donc toute la partie qui va de "With Selection.Characters" à " .ThemeFont = xlThemeFontNone
End With " provoque une erreur .
et si je l'enlève cela fonctionne correctement
Avez vous une explication?
d'avance merci
Ksandre
lorsque je lance un enregistrement de macro je me retrouve avec des lignes de code, qui me semble ne pas servir pour l'action en question et qui en plus crée un bug.
Donc je voulais avoir vos lumières sur la question.
Voici un exemple : j'enregistre le fait de cliquer sur un bouton et aller sur une feuille en particulier .
lorsque je vais sur l'editeur de vba voilà ce que je trouve :
Sub IndexRetour2()
'
' IndexRetour2 Macro
'
'
ActiveSheet.Shapes("Button 8").Select
Selection.Characters.Text = "Bouton 8"
With Selection.Characters(Start:=1, Length:=8).Font
.Name = "Calibri"
.FontStyle = "Normal"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = 2
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Sheets("INDEx").Select
End Sub
et donc toute la partie qui va de "With Selection.Characters" à " .ThemeFont = xlThemeFontNone
End With " provoque une erreur .
et si je l'enlève cela fonctionne correctement
Avez vous une explication?
d'avance merci
Ksandre