Numérotation d'image via VBA (utilisation de masque)

Bonjour, je souhaite réaliser la numérotation d'image via VBA, j'ai joint une capture pour présenter la chose. Le tout devant être inclu dans un masque.

En gros l'utilisateur rempli le textbox en haut à gauche (rempli à 1 sur l'exemple) et les labels sont automatiquement modifiés. Pour l'instant ça marche si on ne prend qu'une diapo, mais si on crée deux diapo avec le même masque les textbox sur les deux diapo font référence au même objet, une nouvelle diapo ne crée pas de nouveau objet, donc si l'utilisateur modifie un des textbox il modifie également l'autre.

J'ai déja chercher des solutions en essayant d'inclure le numéro de diapo dans les noms d'objets mais il y a à chaque fois une erreur dans la récupération du numéro de diapo (par exemple : lCurrentView = ActiveWindow.ViewType plante l'exécution, en gros je crois que tout ce qui est en ActiveWindow fait planter l'exécution), je n'ai donc pas pu explorer davantage cette possibilité. J'ai chercher aussi à n'exécuter le code que sur la diapo en cours mais je n'ai trouvé aucune solution sur internet.

Je ne connais pas vraiment VBA et il y a peut être une chose élémentaire que j'ai complètement oublié.

Pourriez vous me dire s'il est possible de réaliser ce que je veux faire ? Si oui, vers quelle solution dois-je me tourner.

Par avance merci.

N'ayant eu de réponses je me permet de relancer le sujet.

J'ai entre temps essayé d'autres choses mais aucune n'a marché, je n'ai plus le détail de ce que j'ai tenté mais l'une consistait à utiliser une boucle for each pour éviter d'avoir à recopier 27 fois l'instruction labelxx=xx+(indice de départ).

Je vous joins l'un des essais que j'ai fait avec une boucle for to

Citation:

---

Private Sub TextBox1_Change()
Dim numero1 As Integer
Dim MonLabel As Label

If Len(TextBox1.Text) > 0 Then

numero = CInt(TextBox1.Text)
Dim i As Integer
Dim i2 As String
For i = 1 To 27

i2 = CStr(i)
'Label1.Caption = ("Label" & i)
'Set MonLabel = ("Label" & i)
'MonLabel.Text = numero + i

Next i

End If

End Sub

---

Même si j'arrive à faire marcher cette partie là, il me manquera tout de même la gestion des différentes diapos par rapport au fait que le textbox du masque se retrouve dans l'ensemble des diapos avec le même nom..