controle dans Userform

[Anne_80]

Bonjour a tous

Je me lance dans Excel....
Il faut bien un début
Comment effectuer un controle dans Userform.
Je m'explique:
J'entre un nombre dans une textbox et je veux tester si ce nombre
est présent dans la liste d'une de mes feuilles au moment ou je valide sur OK

Je souhaite faire une petite gestion de stock
je suis infirmiere libérale
merci de votre aide

Anne

 

[Robert]

Bonjour Anne, bonjour le forum,

Regarde l'exemple en pièce jointe, je pense que ça devrait t'aider. Tiens-moi au courant... [file name=Anne_80.zip size=13368]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Anne_80.zip[/file]

 

[Anne_80]

bjr Robert
merci
C exactement ce que je cherche
mais j'ai le message
erreur d'exécution 9
l'indice n'appartient pas a la sélection
pourquoi?

Anne

 

[Robert]

Bonsoir Anne, bonsoir le forum,

Je pense que tu as recopié les codes dans ton fichier et que quand tu as redéfini la plage tu n'as pas changé le nom de l'onglet Feuil1 et cela provoque un bug.

 

[Anne_80]

Robert

j'ai vérifié non
j'ai utilisé ton fichier sans rien modifier

il ya tjs le Bug

Anne

 

[Robert]

Re Anne, bonsoir le forum,

Désolé Anne mais dans ce cas je ne comprends pas. Chez moi ça fonctionne sans bug. Peux-tu me dire à quel moment ce bug aapparaît. Quand tu cliques sur le bouton UserForm de l'onglet ? Quand tu cliques sur le bouton Ok de l'UserForm ? Ou bien quand tu cliques sur le bouton Voir Code ?

 

[Anne_80]

Bonsoir Robert

Quand je clique sur le bouton OK j'ai Erreur d'exécution 9, l'indice n'appartient pas à la sélection

Si je clique sur voir code j'ai erreur 1004
L'accès par programme au projet Visual Basic n'est pas fiable.

Anne

 

[Luki]

Bonsoir Anne et Robert,

Anne, regarde le niveau de protection de Xl : accepter les macros ou ce genre de truc ( sous xp et 2003 je sais trop ) pour 2000 Outil/macro/sécurité

Ptêt que...

 

[Anne_80]

Bonsoir Luki
Rien a faire

j'ai d'autres fichiers avec des macros et cela fonctionne

je suis sous Windows 2000

Anne

 

[Luki]

Re Anne, Rob

Je suis aussi sous 2000 et ça marche.

Alors 1° Est-ce que le fichier de robert qui bug chez toi , ou 2° est-ce que c'est TON fichier avec les macros de robert qui Bug?

Si 2 alors joins ton fichier, que je regarde, Sinon ????

A+

 

[Anne_80]

Luki
C'est le fichier de Robert qui Bug sur mon PC

 

[Luki]

Aîe....

Tout de suite, je ne vois pas de solution. Je pense que tu as fait des essais genre: fermer le fichier, fremer xl réouvrir etc...

Désolé mais là je sèche...


A+

 

[ChTi160]

Salut'Anne_80
Salut Robert
bonsoir le Post
bonsoir le Forum
Voilà ce que j'ai fais pour pouvoir faire fonctionner le bouton OK
Private Sub CommandButton1_Click() 'bouton 'Ok'
Dim C As Range 'déclare la variable c
Dim plage As Range

'recherche (dans la plage) de la valeur de la TextBox1 : dans les valeurs, critère: mot entier
Set plage = Sheets('Feuil1').Range('A1:A' & Sheets('Feuil1').Range('A65536').End(xlUp).Row)
With plage
Set C = .Find(TextBox1.Value) 'définit la variable c
If C Is Nothing Then 'si recherche infructueuse
MsgBox 'La données n'existe pas.' 'message
Else 'sinon
'remplace le message ici par ton code
MsgBox 'Remplace ce message par ton code...' 'message
End If 'fin condition
End With
End Sub
voilà et ainsi chez moi ca fonctionne
merci Robert
Amicalement
NEW EDITION
j'ai biensur supprimé ce qu'il y avait dans Userform initialize

Jean Marie

Message édité par: ChTi160, à: 26/04/2005 22:08

 

[Anne_80]

Bonsoir ChTi160

Ca fonctionne merci bcq

Anne

Merci à tous

 

[Robert]

Bonsoir le Fil, Luki, Jean-Marie, le Forum,

Tout d'abord merci à Luki et Jean-Marie de me venir en aide car je ne comprends pas ce qui se passe. Je suis sous Office XP familial et avec Excel 2000.
Jean-Marie je ne comprends pas pourquoi tu as mis en rouge la ligne Set plage... puisque c'est la même que moi. Par contre, il est vrai que les arguments LookIn xlValues (rechercher dans les valeurs des cellules) et LookAt xlWhole (rechercher mot entier) sont facultatives.

Édition
Ça y est, j'ai compris Jean-Marie,

Merci à toi et aussi à Luki

Message édité par: Robert, à: 26/04/2005 22:14