Bonjour à tous
Je travaille sous VBA excel 2002
Pour situer le projet, j'ai un userform, avec un premier multipage1 de 4 pages. Dans la page 2 de ce multipage1, j'ai un autre multipage2 de 3 pages et je travaille là le code de la pages(2).
au total pour l'instant j'ai 11 Textbox dans l'userform nommées de TB01 à TB11
dont sur la multipage2.pages(2) j'ai les textbox de TB03 à 11 inclus.
au moment du changement de valeur dans l'un des TB05 à 10 je dois vérifier que la valeur n'est pas identique à celle de l'un des autres TB. J'ai donc placé ce code :
Code :
- Private Sub TB05_Change()
- Dim TB As TextBox
- For Each TB In UserForm01.MultiPage2.Pages(2)
- If TB05.Value = TB.Value Then
- MsgBox ("Vous avez déjà défini un élément en " & TB05.Value)
- TB05.Value = "X"
- Else
- End If
- Next
- End Sub
|
mon problème est au niveau du in dans la boucle for each et de restreindre la comparaison (sélection des TB) à ceux qui m'interresent. De plus même si ça ne me pose pas de problème qu'il compare à toutes dans le code suivant il me marque utilisation de proprièté sur cette ligne
Code :
- For Each TB In UserForm01.MultiPage2.Pages(2)
|
si quelqu'un à une idée ça m'évitera de passer par une compraison de valeur à valeur.
merci d'avance
Message édité par watashi le 20-10-2005 à 16:08:21
---------------
Je bidouillle c'est sur... Mais j'essaye de faire en sorte que ça marche ;-)
