Re: usf
#41
Aspirant XLPages

Inscription: 10/04/2017
De limoge

Messages: 30

Système d'exploitation:
pc
Version Excel utilisée:
2003
Posté le : 15-05-2017 23h11

bonsoir tout le monde 

non je crois que je laisse tombé cette idées je repart sur une autre base ,enfin tu verras j'ai  posté le dossier dans ta boite  j'ai plus beaucoup de temps je travail de  6h à 21h en se moment mes animaux vont bientôt partir  mais je pense que le dossier est pas mal tu  verras s'il faut l améliorer 

a+

Hors Ligne
Rapport   Haut 

Re: usf changement de code svp
#42
Aspirant XLPages

Inscription: 10/04/2017
De limoge

Messages: 30

Système d'exploitation:
pc
Version Excel utilisée:
2003
Posté le : 30-06-2017 14h54

bonjour  le forum
 dans mon useforme avec des textbox
j aurais voulus changer textbox2 par un inputbox souligner voila le code macro
comme ca il fonctionne mais après avoir valider alors se que je recherche c'est qu'il apparaisse au moment ou je clique sur mon textbos2  marche comme cela mais mon input box apparaît après avoir validé 

merci pour tout aide apporter
Private Sub CommandButton2_Click()

Dim Numlignevide As Integer

With Sheets("INDV")

Numlignevide = .Columns(1).Find("").Row 'on trouve la dernière ligne vide du tableau'

.Cells(Numlignevide, 1) = TextBox15.Value
.Cells(Numlignevide, 2) = DTPDate1.Caption
.Cells(Numlignevide, 3) = TextBox13.Value
.Cells(Numlignevide, 4) = TextBox14.Value
.Cells(Numlignevide, 5) = TextBox1.Value
.Cells(Numlignevide, 6) = TextBox2.Value = InputBox("quelle dose svp ?", "dose ?")
.Cells(Numlignevide, 7) = TextBox3.Value
.Cells(Numlignevide, 8 = TextBox4.Value
.Cells(Numlignevide, 9) = TextBox5.Value
.Cells(Numlignevide, 10) = TextBox6.Value
.Cells(Numlignevide, 11) = TextBox7.Value & " " & TextBox8.Value & " " & TextBox9.Value
.Cells(Numlignevide, 12) = TextBox10.Value

End With

MsgBox "Saisie effectuée, vous pouvez quitter"
Unload Me
UserForm2.Show ' on vide USF2

 

Hors Ligne
Rapport   Haut 

Re: usf
#43
Aspirant XLPages

Inscription: 10/04/2017
De limoge

Messages: 30

Système d'exploitation:
pc
Version Excel utilisée:
2003
Posté le : 07-07-2017 18h15

bonsoir le forum

j ai enfin trouvé merci

Hors Ligne
Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes