Explication d'une macro

Bonjour à tous,

Je souhaiterais apporter quelques modifications à ce fichier excel déjà bien avancé (en grande partie grâce à ce forum ...).

--> J'aurai besoin de plus de types de postes sur l'onglet accueil.

J'ai actuellement 23 lignes, est-il possible d'en avoir 30 ?

Auquel cas, comment relier de nouveaux boutons sur les mois de l'année à ces différentes lignes ?

--> Dans mes tableaux de bilan mensuel, le nombre d'heures réelles effectuées se calculent selon le nombre de poste effectués x 7.5 (amplitude d'un poste de jour). Si j'intègre de nouveaux postes, les amplitudes peuvent être différentes.

J'aimerais donc dans ce calcul de temps réel, relier le poste avec son amplitude horaire (par exemple noter l'amplitude à côté du type de poste dans l'onglet accueil).

Merci du temps que vous pourrez m'accorder.

voici le fichier :

Bonjour,

Peut être ne suis je pas assez clair dans mes explications ...

Pour le premier pb, j'essaye d'avancer un peu tout seul.

J'ai fait une modification pour tester mais il reste un bug.

voici le fichier modifié avec quelques annotations pour faciliter la compréhension.

merci !

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

Personne pour me filer un petit coup de pouce ?

Est ce que c'est ma façon de vous présenter le pb qui n'est pas claire ?

quelqu'un peut-il m'aiguiller sur la macor ci-dessus ?

merci.

up

Bonjour,

C'est bien de mettre de 1 à 35.

Encore faut-il qu'il y ait 35 boutons numérotés de 01 à 35

Il ne peut y avoir 2 bouton01 (Le dernier bouton que tu viens de créer doit avoir le N° 24 ) et il faut rajouter les autres sinon la macro va planter à partir du 25ème.

A+

Ok, je vais essayer de rectifier ça.

Merci pour ton aide (et le mp...)

Bonne soirée.