Userforme a terminer

[cj welch]

bonjour,

j'ai construit un userform qui se lance par un bouton appellé régul.
Seulement, je n'arrive pas à le terminer car mes connaissances en vba sont faible.

les explications sont sur la feuille

j'aurais besions de vos lumières

merci par avance

 

[cj welch]

Re : Userforme a terminer

salut said,

Cà ne marche pas, 'j'ai un message d'erreur qui me renvoi vers

Range("A" & L) = Me.ComboBox1.Column(0)

A+

 

[BERRACHED said]

Re : Userforme a terminer

Salut,cj Weich

ça marche impeccablement bien chez moi !

je crois que tu n'a pas sélectionner le nom dans le combbox ? tu as simplement fait les calcule puis tu as valider il faut sélectionner un nom sinon c'est l'erreur


Cordialement

 

[BERRACHED said]

Re : Userforme a terminer

Ré,

remplace par celui ci sinon transcris simplement la ligne en gras

Private Sub Valider_Click()
Dim L As Integer
L = Sheets("Commande").Range("A65536").End(xlUp).Row + 1
I[B]f Me.ComboBox1 = "" Then Exit Sub[/B]
With Sheets("Commande")
.Range("A" & L) = Me.ComboBox1.Column(0)
.Range("B" & L) = Me.ComboBox1.Column(1)
.Range("N" & L) = CDbl(Me.TextBox14)
.Range("M" & L) = CDbl(TextBox24)
.Range("O" & L) = CDbl(TextBox34)
.Range("P" & L) = CDbl(TextBox54)
    Rows("09:09").Copy
    Range("A" & L).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Range("a1").Select
End With
End Sub

Cordialement

 

[jp14]

Re : Userforme a terminer

Bonsoir cj welch ,BERRACHED said, le forum


Ci joint le fichier avec les modifications demandées.
J'ai protégé les "textbox" par leur propriétés.

Les valeurs sont inscrites dans la ligne de la personne sélectionnée

A tester

 

[BERRACHED said]

Re : Userforme a terminer

Ré,

Salut,JP14
mais il ce passe rien quand tu valide ? notre ami veut transcrire les données dans la feuille "Commande"

Cordialement

 

[BERRACHED said]

Re : Userforme a terminer

Bonsoir,cj Weich,Jp14

voila ton fichier modifier :

Cijoint.fr - Service gratuit de dépôt de fichiers

Cordialement

 

[cj welch]

Re : Userforme a terminer

salut said, salut Jp14,

Said, le bouton valider fonctionne, mais il faut clicker 2 fois, il faudrais peut etre améliorer le code.

jp et said est il possible d'apporter les modif suivantes pour plus de sécurité :

- au niveau de la saisie en num, peut on avoir un format 0,00 (si on tape 5, il ecrit 5,00)

- les bouton des % fonctionne mal, quand on appuis dessus on peut rentrer un nombre quand on rappuis on bloc la saisie, quand on rappuis on peut saisir. Actuellement ca ne marche qu'une seul fois.

- peut on raisonner par ligne, cad ligne véhicule, lignes utilitaires, etc. quand on rentre un seul chiffre actuellement et qu'on valide, un erreur bloquante apparait. Il serais bien qu'un message nous dise (vous devez remplir toute les info de la ligne" et paraille pour les autres lignes. bien entendu si on ne saisie d'une seul ligne et qu'on valide il n'y a pas de message d'erreur.

- enfin au niveau de la combobox, est il possible d'avoir à l'intérieur uniquement le nom et a l'extérieur de la combo le prénom. il serais aussi intéressant de mettre un message "vous avez oublier de selectionner une personne" sur le bouton valider pour eviter une erreur de macro

Dans l'attente de vous lire

A+

 

[jp14]

Re : Userforme a terminer

Bonjour cj welch ,BERRACHED said, le forum


Ci joint le fichier modifié
Le bouton Valider réalise une mise à jour et non un ajout

Pour modifier il faut écrire
dl1 = ComboBox1.List(ComboBox1.ListIndex, 2)

Pour ajouter il faut corriger la ligne ci dessus en remplaçant le code qui donne la valeur de dl1

dl1 = Sheets("Commande").Range( "a65536").End(xlUp).Row +1

Pour éviter le problème des homonymes j'ai rajouté le prénom dans la combobox.

A tester

JP

 

[cj welch]

Re : Userforme a terminer

salut jp, said,

je viens de tester le nouveau fichier, il fonctionne beaucoup mieux, seulement, j'ai relevé de petit problème :

1-quand on appuis sur valide, le transfert se fait très bien, mais la colonne total ne se vide pas.
2-pour la combobox, il faudrait juste enlevé le prénom de l'intérieur de la combo

du plus, pouriez vous choisir le format "0,00" pour les nombres (si on rentre 5 et qu'on valide, il apparait dans la textbox 5,00

Dans l'attente de vous lire

Cordialement

A+

A+

 

[jp14]

Re : Userforme a terminer

Bonjour

salut jp, said,

je viens de tester le nouveau fichier, il fonctionne beaucoup mieux, seulement, j'ai relevé de petit problème :

1-quand on appuis sur valide, le transfert se fait très bien, mais la colonne total ne se vide pas.

Fait

2-pour la combobox, il faudrait juste enlevé le prénom de l'intérieur de la combo

code à modifier
With ComboBox1
.Clear
.ColumnCount = 3 ' à modifier
.ColumnWidths = "50;0;0" ' à modifier
.Style = fmStyleDropDownList

du plus, pouriez vous choisir le format "0,00" pour les nombres (si on rentre 5 et qu'on valide, il apparait dans la textbox 5,00

Le contrôle de la saisie se faisant lors de l'entrée de chaque chiffre le formatage ne peut être réalisé qu'en fin de saisie ou sous l'action d'un bouton.
Le bouton Valider effaçant les données on ne peut voir le résultat du format.

Ci joint le fichier avec une solution pa bouton "calcul".

JP

 

[cj welch]

Re : Userforme a terminer

RE

il n'est pas possible de forcer la saisie ?
le bouton calcul, comporte un inconvegniant. un fois qu'on la utilisé on ne peut plus sans servir. et si la personne qui réalise la saise se trompe ?

De plus, est il possible d'arrondir la colonne régul a 2 chiffre après la virgule ?

Cordialement

A+

 

[jp14]

Re : Userforme a terminer

Bonjour

Ci joint une nouvelle version

A tester

JP

 

[koukou40]

Re : Userforme a terminer

Salut !

Je crois qu'il manque quelque chose !!!

 

[cj welch]

Re : Userforme a terminer

salut, koukou, jp, said

Jp koukou a raison du a oublié de joindre le fichier.

A+

 

[cj welch]

Re : Userforme a terminer

salut jp, koukou, said,

j'ai modifé mon userform en rajoutant une colonne de textbox et j'aimerais rajouter des formules de calcules dans certaines colonnes dont la nouvelle.

Dans le fichier joint, j'ai détaillé les formules a insérer au différent emplacement.

merci de votre aide

A+