niikkoo
Messages postés50Date d'inscriptionmercredi 20 juillet 2005StatutMembreDernière intervention 4 septembre 2007
-
2 août 2005 à 14:44
cs_wape
Messages postés262Date d'inscriptionsamedi 21 décembre 2002StatutMembreDernière intervention19 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