VBA Excel demande aide

Question

Bonsoir à tous,voila mon problème, j'ai crée un userform dans lequel j'ai plusieurs textbox dont certaines ne doivent être remplies que par des chiffres.J'ai utilisé l'instruction if not isnumeric then... puis j'affiche un message et remet la textbox à vide avec l'instruction textbox1.text = "". Et c'est maintenant que çà se corse car lorsque j'ai rempli toutes mes textbox et que je valide mes données et que normalement mes textbox se vident, j'ai mon message de rentrer un nombre dans les textbox "numérique" qui vient et je ne sais pas comment éviter de lancer cette instruction à la validation des données.C'est peut etre un peu confus mais si il y a quelqu'un qui veut bien m'aider je pourrai lui envoyer mon classeur xlMerci en attendant

gbinforme · Answer

bonjourJe veux bien t'aider, mets ton classeur dans : http://cjoint.com/en enlevant le confidentiel, puis tu donnes l'adresse ici.à bientôt.

pkli54 · Answer

Resalut lami20j,je viens de faire ce que tu m'a envoyer et cà fonctionne nickel mais...........car il y a toujours un mais, lorque que je valide mes données pour mon premier moteur, la feuille "moteurs" s'affiche et suis obliger de retourner à la page de garde et de cliquer sur le bouton nouveau moteurJe pense que c'est du au fait de la ligne suivante:Worksheets("Moteurs").ActivateSi je la supprime comment faire pour que mes données soit copier au bon endroit sans faire apparaitre la feuille en question???Désolé de te déranger mais suis nouveau en vbamerci

lami20j · Answer

Re,Je pense que c'est du au fait de la ligne suivante:Worksheets("Moteurs").ActivateSi je la supprime comment faire pour que mes données soit copier au bon endroit sans faire apparaitre la feuille en question???Tu ne la supprimes pas. Elle te faut pour écrire tes données.EntreEnd WithetUnload MeajouteWorksheets("Page de garde").ActivateDonc une fois le traitement terminé tu reviens sur la Page de gardeCode completPrivate Sub CommandButton2_Click()Feuilledesaisiemoteurs.HideRows(2).SelectSelection.DeleteEnd Sub'Private Sub TextBox2_Change()'If Not IsNumeric(TextBox2.Text) Then'MsgBox "Vous devez entrer un nombre."'TextBox2.Text = ""'End If'End Sub'''Private Sub TextBox3_change()'If Not IsNumeric(TextBox3.Text) Then'MsgBox "Vous devez entrer un nombre."'TextBox3.Text = ""'End If'End Sub'''Private Sub TextBox4_Change()'If Not IsNumeric(TextBox4.Text) Then'MsgBox "Vous devez entrer un nombre."'TextBox4.Text = ""'End If'End Sub''Private Sub TextBox5_Change()'If Not IsNumeric(TextBox5.Text) Then'MsgBox "Vous devez entrer un nombre."'TextBox5.Text = ""'End If'End SubPrivate Sub CommandButton1_Click()If Not IsNumeric(TextBox2.Text) Then        MsgBox "Vous devez entrer un nombre dans le champ - Intensité nominale."        TextBox2.Text = ""        TextBox2.SetFocus        Exit SubElseIf Not IsNumeric(TextBox3.Text) Then        MsgBox "Vous devez entrer un nombre dans le champ - Phase 1."        TextBox3.Text = ""        TextBox3.SetFocus        Exit SubElseIf Not IsNumeric(TextBox4.Text) Then        MsgBox "Vous devez entrer un nombre dans le champ - Phase 2."        TextBox4.Text = ""        TextBox4.SetFocus        Exit SubElseIf Not IsNumeric(TextBox5.Text) Then        MsgBox "Vous devez entrer un nombre dans le champ - Phase 3."        TextBox5.Text = ""        TextBox5.SetFocus        Exit SubElse    Worksheets("Moteurs").Activate    Rows(2).Select    Selection.Insert    Rows(2).Select    Selection.Insert    With Feuilledesaisiemoteurs        .TextBox1.Text = ""        .TextBox2.Text = ""        .TextBox3.Text = ""        .TextBox4.Text = ""        .TextBox5.Text = ""        .TextBox6.Text = ""        .TextBox7.Text = ""        .TextBox8.Text = ""        .TextBox9.Text = ""        .TextBox10.Text = ""        .ComboBox1.Text = ""        .Textbox11.Text = ""    End With    Worksheets("Page de garde").Activate ' reviens dans la Page de garde    Unload MeEnd IfEnd Sub

pkli54 · Answer

Re,OK pour la ligne supplémentaire, mais j'ai du mal m'expliquer:quand je suis dans le userform, j'ai peut etre une dizaine de moteurs à rentrer et je voudrais éviter à chaque fois que je clique sur ok de revenir à la page de garde >nouveau moteur>rentrer les données ect ect...je devrais rajouter un bouton dans le userform pour valider les données et rester dans le userform puis avec un autre bouton sortir du userform ??qu'en penses tu ???comment faire pour écrire les données dans la bonne feuille sans quitter le userform et sans faire apparaitre en fond la feuille moteurs ???merci

lami20j · Answer

Ok, j'ai compris ce que tu veux.Dès que j'ai fait les modif je t'envoie le code.

lami20j · Answer

D'abord quelques conseils:Essaie de donner des noms à tes objects (zone de texte, boutons, feuille...)TextBox2 ce n'est pas très clair et tu vois ça quand il faut corriger ou ajouter dans le codeComme TextBox2 c'est le champ pour Intensité nominale tu pourras nommé ta zone : txtIntesiteNominale ou txtIntensNom, etc...prefix txt pour savoir qu'il s'agit d'une zone de texteIntensitéNominale tu sais à quoi se réfère ta zone de texte.Des prefixescmd pour CommandButton (cmdOk, cmdAnnuler - mieux que CommandButton1,...)lst pour ListBoxopt pour OptionButton, etc....Revenons à ton code.Que veut qu'il se passe quand tu fait clic sur le bouton Annuler?Je vois dans ton code que tu caches la feuille de saisie et tu supprimes la ligne 2. Pourquoi? Tu veux annuler la dernière saisie?Si tu te contentes de cacher la feuille, sache qu'elle reste en mémoire. Il faut la déchargée. Par exemple avec UnloadMe ou Unload Ta_Feuille.Pour quitter l'application crée un bouton avec le libellé Fin et tu le nomme cmdFin et tu ajoutes ce bout de codePrivate Sub cmdFin_Click()    Worksheets("Page de garde").Activate    Unload MeEnd SubVoilà le code avec le bouton Fin ajoutéPrivate Sub cmdFin_Click()    Worksheets("Page de garde").Activate    Unload MeEnd SubPrivate Sub CommandButton2_Click()Feuilledesaisiemoteurs.HideRows(2).SelectSelection.DeleteEnd Sub'Private Sub TextBox2_Change()'If Not IsNumeric(TextBox2.Text) Then'MsgBox "Vous devez entrer un nombre."'TextBox2.Text = ""'End If'End Sub'''Private Sub TextBox3_change()'If Not IsNumeric(TextBox3.Text) Then'MsgBox "Vous devez entrer un nombre."'TextBox3.Text = ""'End If'End Sub'''Private Sub TextBox4_Change()'If Not IsNumeric(TextBox4.Text) Then'MsgBox "Vous devez entrer un nombre."'TextBox4.Text = ""'End If'End Sub''Private Sub TextBox5_Change()'If Not IsNumeric(TextBox5.Text) Then'MsgBox "Vous devez entrer un nombre."'TextBox5.Text = ""'End If'End SubPrivate Sub CommandButton1_Click()If Not IsNumeric(TextBox2.Text) Then        MsgBox "Vous devez entrer un nombre dans le champ - Intensité nominale."        TextBox2.Text = ""        TextBox2.SetFocus        Exit SubElseIf Not IsNumeric(TextBox3.Text) Then        MsgBox "Vous devez entrer un nombre dans le champ - Phase 1."        TextBox3.Text = ""        TextBox3.SetFocus        Exit SubElseIf Not IsNumeric(TextBox4.Text) Then        MsgBox "Vous devez entrer un nombre dans le champ - Phase 2."        TextBox4.Text = ""        TextBox4.SetFocus        Exit SubElseIf Not IsNumeric(TextBox5.Text) Then        MsgBox "Vous devez entrer un nombre dans le champ - Phase 3."        TextBox5.Text = ""        TextBox5.SetFocus        Exit SubElse    Worksheets("Moteurs").Activate    Rows(2).Select    Selection.Insert    Rows(2).Select    Selection.Insert    With Feuilledesaisiemoteurs        .TextBox1.Text = ""        .TextBox2.Text = ""        .TextBox3.Text = ""        .TextBox4.Text = ""        .TextBox5.Text = ""        .TextBox6.Text = ""        .TextBox7.Text = ""        .TextBox8.Text = ""        .TextBox9.Text = ""        .TextBox10.Text = ""        .ComboBox1.Text = ""        .Textbox11.Text = ""    End WithEnd IfEnd Sub

lami20j · Answer

Au début je voulais créer 2 autres boutons pour voir les enregistrements précédent et suivant mais je ne sais pas si c'est faisable. Bien sûr que c'est faisable. Mais en ce cas c'est mieux de créer une autre feuille pour Visualisation et pourquoi pas pour Editer (le cas où tu veux apporter des modifications à tes données).

pkli54 · Answer

Quand tu dis de créer une feuille visualisation, çà serai une copie de la feuille moteurs ???? En principe , il ne dois pas y avoir de modifs sauf si on vient a changer un moteur, mais bon on ne sais jamais.Pour l'instant je vais essayé de terminer sans les boutons de recherche(précédent et suivant trop compliqué)Encore un petit service: lorsque que je rentre les données dans la feuille moteurs j'insère le nouveau moteur et ceux rentrer auparavant descende d'une ligne, je voudrais renter le nouveau à la suite des autres quel instruction dois je mettre au lieu de :Rows(2).Select    Selection.Insertmerci

lami20j · Answer

Quand tu dis de créer une feuille visualisation, çà serai une copie de la feuille moteurs ???? Oui pour les zones de texte et les libellés. Mais pour les  boutons ça change.Précédant, Suivant, Le 1er enregistrement, Le dernier enregistrement, Recherche, Editer, Annuler, Supprimer....Pour le petit service. Je ne comprends pas ce que tu veux.Tu veux le données comme çamoteur  n...moteur 1?oumoteur 1..moteur n?

pkli54 · Answer

c'est exactement çà:moteur 1..moteur nest çà çà bloque:Private Sub CommandButton4_Click()Feuilledesaisiemoteurs.HideLoad Worksheets("Moteurs")  <<<<çà me met une erreurWorksheets("Moteurs").Show <<<<çà me met une erreur

pkli54 · Answer

Merci, çà marche maintenant et pour classer par ordre d'entréemoteur 1..moteur n je fais quoi ???????????et commentmercidésolé de te déranger mais pour l'instant t'es le seul qui ai bien voulu m'aider donc j'en profite ( encore un peu)

lami20j · Answer

Par ordre d'entrée :remplace ce code    Worksheets("Moteurs").Activate    Rows(2).Select    Selection.Insert    Rows(2).Select    Selection.Insert    With Feuilledesaisiemoteurs        .TextBox1.Text = ""        .TextBox2.Text = ""        .TextBox3.Text = ""        .TextBox4.Text = ""        .TextBox5.Text = ""        .TextBox6.Text = ""        .TextBox7.Text = ""        .TextBox8.Text = ""        .TextBox9.Text = ""        .TextBox10.Text = ""        .ComboBox1.Text = ""        .Textbox11.Text = ""    End Withavec    Worksheets("Moteurs").Activate    r = Range("A65536").End(xlUp).Row + 1    Cells(r, 1) = Textbox11.Text    Cells(r, 2) = ComboBox1.Text    Cells(r, 3) = TextBox1.Text    Cells(r, 4) = TextBox2.Text    Cells(r, 5) = TextBox3.Text    Cells(r, 6) = TextBox4.Text    Cells(r, 7) = TextBox5.Text    Cells(r, 8) = TextBox6.Text    Cells(r, 9) = TextBox7.Text    Cells(r, 10) = TextBox8.Text    Cells(r, 11) = TextBox9.Text    Cells(r, 12) = TextBox9.Text        With Feuilledesaisiemoteurs        .TextBox1.Text = ""        .TextBox2.Text = ""        .TextBox3.Text = ""        .TextBox4.Text = ""        .TextBox5.Text = ""        .TextBox6.Text = ""        .TextBox7.Text = ""        .TextBox8.Text = ""        .TextBox9.Text = ""        .TextBox10.Text = ""        .ComboBox1.Text = ""        .Textbox11.Text = ""    End WithEn ce cas tu auras leligne 2   - moteur1 ( la 1ère saisie)ligne 3   - moteur2...ligne n  - moteur n ( la dérnière saisie)J'ai remarqué aussi que tu as la propriètes ControlSource positionnée sur certaines cellules pour les zones de texte et combobox. Vérifie si ça sers à quelque chose dans ton cas. Moi j'ai supprimé.

pkli54 · Answer

C'est sympa de ta part de continué à m'aider.Entretemps j'ai fait quelques modifs et certainement des erreurs.J'ai rajouter tes instructions mais j'ai toujours une erreur à la ligne 2 de la feuille moteurs et aussi quand je valide avec OK du Userform çà bloque le userform ????Il faudrait aussi pouvoir utiliser le caractere - car je peux avoir des moteurs en mono donc les textbox isnumeric doivent pouvoir accepter le -.Je te met le classeur entier modifié à l'adresse ci dessous.Merci et bonne soiréehttp://cjoint.com/?msvcZd0pOP

lami20j · Answer

avec OK du Userform çà bloque le userform ???? Il faut spécifier ce que tu saisies ou ce que tu fait pour savoir chercher l'erreur. Je n'ai pas des erreurs donc je ne sais pas où est le problème.Essaie pour l'instant une saisie normale, pour voir le comportement de ta ligne 2http://cjoint.com/?msvzFYgCRspouvoir utiliser le caractere -  Donne un exemple de valeur que tu veux saisir.

pkli54 · Answer

Par contre je ne sais pas si tu as remarqué mais quand tu valide avec le bouton OK dans le userform, il y a le bouton "retour feuille de saisie" qui apparait à droite du userform ???problème avec les instructions visible ????

pkli54 · Answer

en fait dans les textbox intensite absorbée phase 1 / phase 2 et phase 3 on a dit qu'il ne fallait que des chiffres mais lorsque que j'ai des moteurs monophasés , je n'ai qu'une seule intensité absorbée qui peut etre rentrée en ph1 ph 2 ou ph3 tout dépend du cablage donc il faudrait prévoir de pouvoir utiliser le caractere --- pour dire qu'il n'y a pas de valeur dans 2 textboxOK ????

pkli54 · Answer

Salut lami20j,je te l'avais dit que j'aurai encore besoin de tes connaissances.J'ai rajouté 2 optionbutton pour faire un choix mais j'ai un problème avec la syntaxe.Si tu veux bien y jeter un oeil dis le moi, je posterais le classeur comme hier.Merci d'avance.

pkli54 · Answer

http://cjoint.com/?mtuAAFe88HBonsoir et merci

lami20j · Answer

j'ai mis la colonne tension en dernier dans ma feuille, si je veux la déplacer par exemple en colonne D, je suppose que je dois modifier toutes les lignes dans le code pour tous les reports d'information?? Oui il faut faire corespondre Cells(r, la_colonne) aux zones de texte (voilà pourquoi  c'était mieux de nommer les zones de texte.Pour l'impression tu peux arranger le tableau sous excel. La mise en forme de classeur n'affecte pas la saisie dans les cellules, tant que les adresses de cellules ne changent pas. Si tu insères une colonne par exemple les adresses de cellules change donc il faut modifier dans le code.

pkli54 · Answer

Bonjour lami20j,problème du jour (si çà ne te dérange pas et surtout si tu veux bien),j'ai créé un nouveau Userform (feuillesaisieCTA) dans lequel j'ai 2 Optionbutton qui doivent me permettrent l'accés à 3 textbox dans lesquelles il faudrait faire des calculs ????je te met le classeur en copie , et si tu veux bien y regarder.Merci d'avancehttp://cjoint.com/?mupGf6rMP4

pkli54 · Answer

Salut,
toutes remarques sont bonnes à prendre lorsqu'elles sont constructives.
Pas de problème et merci pour la liste , c'est vrai que c'est plus facile lorsque tout est "nommé".
Voila ce que j'aimerai, dans le userform feuilledesaisieCTA:
dans la frame gainage le choix doit se faire sur un type de gaine : ronde ou carrée: si le bouton rond est sélectionné alors on doit pouvoir rentrer un diametre (en mm) et ne plus pouvoir rentrer des valeurs dans hauteur et largeur; si on choisit le bouton carrée, alors le champ diamètre doit etre inaccessible et on rentre des valeurs dans largeur et hauteur (en mm).La valeur dans surface effective doit s'y mettre automatiquement en fonction de la valeur diametre ou largeur x hauteur (en m² mais sans unité).
Dans la frame désiré: on entre le débit(valeur qui est connue), automatiquement la vitesse doit apparaitre dans le champ vitesse désirée.
Dans la frame mesuré: on entre la vitesse (cette vitesse est mesurée sur chantier avec un appareil de mesure), automatiquement le débit s'inscrit dans débit mesuré.
J'espère que c'est assez explicite ??
@+ merci

pkli54 · Answer

J'ai oublier la formule pour calculer le débit:débit en m3/h; vitesse en m/s ; surface en m²débit = vitesse x surface x 3600

pkli54 · Answer

Pas de problème, c'est quand tu veux et/ou quand tu peux !!!!!
En fait j'aimerais commencer à faire les nouveaux rapports 2006 avec ce classeur donc fais à ton aise.
J'ai continué à bosser sur le classeur: nouveaux userform...donc j'ai assez de boulot dessus pour pouvoir attendre.
Merci @+

VBA Excel demande aide - Page 2

Newsletters