Multipage et index

niikkoo Messages postés 50 Date d'inscription mercredi 20 juillet 2005 Statut Membre Dernière intervention 4 septembre 2007 - 2 août 2005 à 14:44
cs_wape Messages postés 262 Date d'inscription samedi 21 décembre 2002 Statut Membre Dernière intervention 19 décembre 2010 - 3 août 2005 à 10:24
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

1 réponse

cs_wape Messages postés 262 Date d'inscription samedi 21 décembre 2002 Statut Membre Dernière intervention 19 décembre 2010 12
3 août 2005 à 10:24
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
0
Rejoignez-nous