besoin d'aide

[Zeb83]

Bonsoir amis du forum

j'aurais besoin de vos lumières car les miennes sont éteintes.
je souhaiterai faire apparaitre le nombre de jours restant dans mon usf après avoir saisi le matricule.
j'ai commencé mais malheureusement je n'arrive pas à activer la macro 'affiche' de la feuille 2.
Pour l'instant le matricule se recopie dans la feuille 2 mais je dois activer la macro via le bouton 'cherche' pour avoir le nombre de jours restants.
J'espère être explicite.

par avance merci.

je joins le fichier [file name=Jours2_20060213201307.zip size=26125]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Jours2_20060213201307.zip[/file]

 

[Hervé]

bonsoir zeb
bonsoir le forum
bonsoir tatie jeannine

pas sur d'avoir compris, mais si ton objectif est de renvoyer dans les textbox les jours suivant le nom, tu peux essayer ceci :

Private Sub TextBox1_AfterUpdate()
' après validation de la saisie du matricule
Dim i As Integer, DercellA As Long
DercellA = Range('base!A1').End(xlDown).Row
i = ligne
If i > DercellA Then i = 1
TextBox2.Value = Cells(i, 2)
TextBox3.Value = Cells(i, 3)
Range('Feuil2!A5') = TextBox1.Value
TextBox4.Value = Cells(i, 4)
TextBox5.Value = Cells(i, 5)
TextBox6.Value = Cells(i, 6)
TextBox7.Value = Cells(i, 7)
TextBox8.Value = Cells(i, 8)
TextBox9.Value = Cells(i, 9)
TextBox10.Value = Cells(i, 10)
If i = 1 Then MsgBox ('Matricule non trouvé')
End Sub

mais, ca doit pas etre ca, non ?

salut

 

[Zeb83]

Merci hervé

mais ce que je cherche à vrai dire c'est d'activer ma macro 'affiche' dès que le Textbox1 est renseigné.

 

[Zeb83]

Merci hervé

mais ce que je cherche à vrai dire c'est d'activer ma macro 'affiche' dès que le Textbox1 est renseigné.

 

[Hervé]

re zeb

je sens le souffle du zop dans mon cou.

si tu veux lancer la procédure affiche des le remplissage du textbox1, il te faut créer une procédure affiche : public sub affiche()

puis dans l'évenementielle de ta textbox1 :

Private Sub TextBox1_AfterUpdate()
affiche
end sub

mais pas une fonction, les fonctions permettent d'externaliser des procédures répetitives.

de plus ton code va bugger par la suite, tu fais référence à cells(i,2) sans avoir initialisé i à travers une boucle.

bon alors, zop ou pas zop le hervé ?

salut

 

[Charly2]

Bonsoir zeb, bonsoir Hervé, bonsoir à toutes et à tous,
et bonsoir à la tatie Jeannine d'Hervé

J'avais compris la demande de zeb un peu différemment, donc je mets pas à la corbeille

[file name=zeb83_Jours.zip size=17425]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/zeb83_Jours.zip[/file]

EDITION : Personnellement, je dirais bien ZOP

EDITION 2 : Pour zeb, il suffisait d'utiliser Val(TextBox1) pour que ta procédure Affiche fonctionne correctement.

A+

Message édité par: Charly2, à: 13/02/2006 23:03

Message édité par: Charly2, à: 13/02/2006 23:12

 

[Hervé]

re tout le monde
salut charly
bonsoir tonton marcel

euh....c'est plus le souffle du zop que je sens là, ca s'apparente plus à une tempète.

par contre, ami charly, est ce normal que quelque soit le matricule tapez, on à 10 en textbox4 et seulement ca.

ferions nous ensemble un grand plongeon dans le zop ?

salut

 

[Charly2]

re,

M'est avis qu't'as p'têt pas tout à fait tort pour la tempête

J'avais laissé une instruction utilisée pour tester :

For i = 4 To 10
Me.Controls.Item('TextBox' & 4) = .Cells(5, i)
Next i

Mais je pense que c'est mieux comme ça :

For i = 4 To 10
Me.Controls.Item('TextBox' & i) = .Cells(5, i)
Next i

En PJ la version corrigée :whistle:

[file name=zeb83_JoursV1_001.zip size=19632]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/zeb83_JoursV1_001.zip[/file]

A+