multipage et index

Question

bonjour, 
g un Multipage composé de 5 pages correspondant à des jours et je voudrais récupérer l'index des pages pour effectuer un calcul calendaire 
voici mon code: 
If txtsem.Value <> "" Then 
   Dim noj As Integer 
   noj = MultiPage1.TabIndex + 1 + (txtsem.Value - 1) * 7 
   MsgBox ("le numéro du jour est" & "" & noj) '(juste pour tester s'il fait bien le calcul) 
Else 
  MsgBox ("Vous avez oublié de renseigner le n° de semaine") 
End If 
le problème est que quelque soit la page sur laquelle je click le pgm ne considère que l'index de la premiere page 
j'ai essayé de renomer les pages pag1...5 et d'utiliser la commande: 
userform1.controls("pag"&j).index  dans une boucle For mais pas de succès... 
je veux faire un traitement qui prend en compte toutes les pages qu'elles soient renseignées ou non et qui sera du type: 
Range("g5").Offset(3 * CInt(UserForm1.Controls("txtp" & i).Text), noj).Select 
Selection.Interior.ColorIndex = 7 
noj doit donc varier dans ce traitement...or ce n'est ps le cas 
    
Merci

cs_wape · Answer

Bonjour,

Essaye qqch du genre :

For iIdx = 0 To MultiPage1.Pages.Count - 1
   MsgBox "Index de la page : " & iIdx
   MsgBox "Nom de la page : " & MultiPage1.Pages(iIdx).Name
Next iIdx

wape

Multipage et index

1 réponse