Bonjour,
Est ce que quelqu'un pourrait m'expliquer cette macro ?
Sub maj_boutons()
'Applique les codes de la page d'accueil sur la légende des boutons (bouton01 à bouton23)
Dim n As Byte, i As Byte
For n = 3 To 14
Sheets(n).Select
ActiveSheet.Unprotect (220305)
For i = 1 To 23
ActiveSheet.Shapes("bouton" & Format(i, "00")).Select
Selection.Characters.Text = Sheets("Accueil").Cells(7 + i, 2).Value '1ère cellule : B8
Next i
ActiveSheet.Protect Password:=220305, UserInterfaceOnly:=True, AllowFormattingCells:=True, DrawingObjects:=True, Contents:=True, Scenarios:=True
Next n
Sheets("Accueil").Select
End Sub
j'ai ajouté des cellules à reporter sur la légende de nouveaux boutons
j'ai changé For i = 1 To 23 en For i = 1 To 35 mais ça ne fonctionne pas ...
il m'indique une erreur
Sub maj_boutons()
'Applique les codes de la page d'accueil sur la légende des boutons (bouton01 à bouton23)
Dim n As Byte, i As Byte
For n = 3 To 14
Sheets(n).Select
ActiveSheet.Unprotect (220305)
For i = 1 To 35
ActiveSheet.Shapes("bouton" & Format(i, "00")).Select
Selection.Characters.Text = Sheets("Accueil").Cells(7 + i, 2).Value '1ère cellule : B8
Next i
ActiveSheet.Protect Password:=220305, UserInterfaceOnly:=True, AllowFormattingCells:=True, DrawingObjects:=True, Contents:=True, Scenarios:=True
Next n
Sheets("Accueil").Select
End Sub