Forums XLPages

Tous les messages (jmcr)

1 2 3 »
Re: usf
#1
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 

msgbox change en useforme
#2
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 18h14

bonsoir le forum
voila ma recherche j ai un useforme qui marche très bien j ai fait une autre useforme pour changer un smgbox
que je trouve pas jolie car je voudrais changé pour une ecriture en couleur voila le code que je voudrais changer

Private Sub btn_fermeture_Click()
Dim reponse As Integer
reponse = MsgBox("Attention, avez-vous validé les dernières modifications SVP ? Voulez-vous fermer ?", 52, " Fermeture sans validation")
If reponse = 7 Then 'non=7 oui=6
Exit Sub
Else
Unload Me
End If
End Sub
comment mon useforme20 peut prendre sa place ou par quelle code je peut le faire pouvez vous m'aidé
 

Edité par jmcr le 08/07/2017 22:44:28
Hors Ligne
Rapport   Haut 

Re: usf changement de code svp
#3
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
#4
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
#5
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 21h33

bonsoir le forum Éric j ai regardé le zip il s'agit de l'useforme 1 erreur?????? il aurais du être  useforme2   moi aussi j'ai une autre tu me diras si cela est la deuxième

a+ 

Pièce jointe:
zip erreur.zip   [ Taille: 31.11 Ko - Téléchargements: 58 ]
Hors Ligne
Rapport   Haut 

Re: usf
#6
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 14h12

bonjour le forum ERIC 

le temps que je te face parvenir mon dossier  peux tu m'aidé sur la suite voila ma feuille de soin indiv dans la feuille 1 mon boutons qui doit  lancée un useforme ,mais voila j'ai un bug que je vois pas il me marque erreur de compilation  avec tout mes remercîment pour votre aide 

JMR

Pièce jointe:
zip Test.zip   [ Taille: 36.09 Ko - Téléchargements: 68 ]
Hors Ligne
Rapport   Haut 

Re: usf
#7
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 09h48
Bonjour le forum, Éric Je comprend moi aussi j'aime pas cela même zipper il fait 663 KO ou alors je le. Coupe par feuille de deux enfin je prend bien noté de ton mp je t'envoie cela dès se soir à+
Hors Ligne
Rapport   Haut 

Re: usf
#8
Aspirant XLPages

Inscription: 10/04/2017
De limoge

Messages: 30

Système d'exploitation:
pc
Version Excel utilisée:
2003
Posté le : 14-05-2017 22h03

bonsoir le forum  ERIC  désoler le fichier est déjà trop lourd 635 ko comment je fait   ????

voila comme tu me le demande le dossier j'ai bien avancées dessus 

dans se dossier tu as une base que tu connais avec les modifs et une boutons en plus fiche 

en  feuille 2 qui se nomme INDV tu a les traitements que j'ai remplis mais il s'agit d'une simulation bien sur pour voir comment se comporte les feuilles.

en feuille 3 que j'ai appelées  FICHE  si tu regarde dans la cellule G4 tu as une liste déroulante   et regarde  en bas du tableau  si une bête est malade cela donneras sont traitement reçus   que j aimerais bien faire venir avec le bouton de useforme  en  aperçus

​et en dernier la feuille départ avec liste déroulante qui donne les renseignements pour le départ

regarde si tu peux mieux faire fait comme tu le sens tu as toute ma gratitude et mon amitié sincère

 JMC

Hors Ligne
Rapport   Haut 

Re: usf
#9
Aspirant XLPages

Inscription: 10/04/2017
De limoge

Messages: 30

Système d'exploitation:
pc
Version Excel utilisée:
2003
Posté le : 13-05-2017 14h55

BONJOUR le forum ERIC

cela est avec un grand plaisir que je viens dire que l'opération à été trouvé les variable sont a leur place 

le problème des 0011 et fonctionne bien 

l'erreur 1004 est finis j'ai inversé juste le numéros de travaille avec le numéros national et useforme est situé en bas a droite pour une meilleur visibilité si tu veux je peux te données les modifs

avec tout ma gratitude pour m'avoir aidé et poussées plus loin avec toute ma gratitude la plus sincère et aux plaisir de te relire

 

Hors Ligne
Rapport   Haut 

Re: usf
#10
Aspirant XLPages

Inscription: 10/04/2017
De limoge

Messages: 30

Système d'exploitation:
pc
Version Excel utilisée:
2003
Posté le : 10-05-2017 14h04

bonjour le forum,ERIC

Pas de problème ,rien de presser cela peut attendre ,par contre sur tu veux que je le modifie dit moi ou  et comment??????? ,te prend pas la tête pour les prochain pensionnaire je rentrerais tout mes données dans ma basse comme avant ligne par ligne ,prend tout ton temps aux plaisirs de te relire

ps  si dans la colonne C je mets la formule =droite( b4;4) il les inscrit   les 00 0011 mais quand je regarde la colonne C   il MA effacées  cette formule ,enfin je recherche pourquoi

 

aux plaisirs de vous relire 

JMC

Hors Ligne
Rapport   Haut 

1 2 3 »