XL 2013 concevoir un userform de données

B

Bebere

XLDnaute Barbatruc

• 29 Août 2015

• #2

Re : concevoir un userform de données

bonjour Ivgu,le forum
bienvenue
fait d'après ce que j'ai compris

 

Pièces jointes

• transfert donnéesV1.xls

  58 KB · Affichages: 51

Vote positif 0 Vote négatif

I

ivgu19

XLDnaute Junior

• 29 Août 2015

• #3

Re : concevoir un userform de données

Bonsoir Bebere,
veuillez excuser mon absence et ma mauvaise explication
Je vais vous décrire les actions que le codage pourrait excécuter (si c'est réalisable?)
-A l'ouverture de l'USF les textbox sont vides.
dans une boucle on reproduit les lignes ci dessous (dans l'essai 4 fois)
1-le focus est positionné sur le textbox 1
2-je saisis une valeur dans le textbox 1 (relevé compteur d'eau)
3-le textbox 5 prend alors la valeur de la cellule de J2 devenu ancien index(suite à l'insertion d'une colonne(9))
4-le textbox 9 prend la valeur de txt1 moins txt5 (conso 2015 - 2014)
5-le textbox 13 prend la remarque (par ex 1)
le bouton cmdValider remplit les colonnes I,H,G de la feuille essai puis enregistre le classeur
merci de votre solution
ivgu19

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 31 Août 2015

• #4

Re : concevoir un userform de données

bonjour Ivgu
voilà une autre version

 

Pièces jointes

• transfert donnéesV2.xls

  71.5 KB · Affichages: 63

Vote positif 0 Vote négatif

I

ivgu19

XLDnaute Junior

• 31 Août 2015

• #5

Re : concevoir un userform de données

Bonjour Bebere,
Il est bien ce code et pour être parfait, je vous demande, si vous avez encore un peu de temps à me consacrer, que le point 5
prenne la valeur de la précédente consommation .
Ainsi en introduisant 1 Msg on pourrait comparer ces 2 valeurs ( toute première formulation) par ex si conso plus grande que 1,5 conso précédente="ouyouyouille" .
Enfin pouvez-vous introduire des boucles car dans le projet final il me faudra l'adapter pour 50 relevés d'index.
Par avance merci et bonne journée
@+

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 1 Septembre 2015

• #6

Re : concevoir un userform de données

bonjour Ivgu
pour la comparaison 1,5 est ce une valeur réelle,si non donne des précisions
colorer la cellule F exemple vert ok,rouge pas bon,orange acceptable +texte

 

Vote positif 0 Vote négatif

I

ivgu19

XLDnaute Junior

• 1 Septembre 2015

• #7

Re : concevoir un userform de données

Bonjour Bebere,
Je préfère un message du genre
si conso > 50% conso précédente alors "conso importante"
sinon si conso + ou - 10% conso précédente alors "RàS"
sinon si conso = conso précédente alors "non utilisée"
sinon si conso < conso précédente alors "erreur"
Ainsi avant de passer à la ligne suivante on a ce genre d'information
A+

 

Vote positif 0 Vote négatif

I

ivgu19

XLDnaute Junior

• 3 Septembre 2015

• #8

Re : concevoir un userform de données

Coucou Bebere,
vous n'avez plus de temps à me consacrer, dommage pour moi.
Néanmoins, je vous remercie pour les solutions que vous m'avez proposées
Cordialement
ivgu

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 9 Septembre 2015

• #9

Re : concevoir un userform de données

bonjour Ivgu
je pense que voilà une version comme tu le souhaites

 

Pièces jointes

• transfert donnéesV5.xls

  75 KB · Affichages: 54

Vote positif 0 Vote négatif

I

ivgu19

XLDnaute Junior

• 9 Septembre 2015

• #10

Re : concevoir un userform de données

Bonsoir Bebere,
Effectivement cette V5 répond à mes souhaits et sur l'essai réalisé je dis chapeau Bebere.
Après demain je ferai le test en vrai grandeur.
A bientôt pour confirmation
Cordialement

 

Vote positif 0 Vote négatif

I

ivgu19

XLDnaute Junior

• 11 Septembre 2015

• #11

Re : concevoir un userform de données

Bonjour Bebere,
je n'arrive pas à trouver l'erreur 13 provoquée dans le code du module 1.
Peux-tu rajouter,avant le transfert par le cmd, un contrôle sur le remplissage des textbox "Nouveau index" avec un message d'alerte.
Cordialement

 

Pièces jointes

• Calanques_conso.xls

  256 KB · Affichages: 58

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 11 Septembre 2015

• #12

Re : concevoir un userform de données

bonjour Ivgu
tu insères la colonne nouvel index en J(avant en i)
de ce fait l'ancien index est en K(me("textbox" & i+45)= j qui est vide
une question les chiffres de l'userform (à gauche des textbox nouvel index)ont ils un rapport avec ceux de la colonne A
si oui il faut rechercher la ligne où ils se trouvent

 

Vote positif 0 Vote négatif

I

ivgu19

XLDnaute Junior

• 12 Septembre 2015

• #13

Re : concevoir un userform de données

bonjour Bebere,
ok, j’insérais la colonne en 10 au lieu de 9.
Pour répondre à ta question le chiffre à gauche des textbox sont les repères des compteurs. La col A affecte un n° d'ordre pour regrouper des lots, relation avec l'usf1 ( bâtiment A, bat B, service), la col B affecte un n° d'ordre pour suivre la position des compteurs dans le bâtiment, relation avec l'usf4.
J'ai passé le code d'alerte sur les 20% en commentaire car pas justifié (c'est le cas général)
Pour les alertes, il me semble que tu les traites à partir des index alors que je parlais de conso dans mon message(le résultat n'est pas le même).
Ne voulant pas bidouiller le code, je te retourne le fichier car les 6 heures passées dessus n'ont rien produit.
Bonne soirée l'ami

 

Pièces jointes

• Calanques_consoV2.xls

  217 KB · Affichages: 35

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 13 Septembre 2015

• #14

Re : concevoir un userform de données

bonjour Ivgu
lire feuil1,anciens index et conso précédentes sont affichés à l'ouverture de l'userform

 

Pièces jointes

• Calanques_consoV3.xls

  225.5 KB · Affichages: 59

Vote positif 0 Vote négatif

I

ivgu19

XLDnaute Junior

• 13 Septembre 2015

• #15

Re : concevoir un userform de données

re,
j'ai adapté les copie TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) et apprécié l'affichage à l'ouverture de usf.
cependant, j'ai un souci avec la condition : If c >= CDbl("0,50") Then MsgBox "consommation importante" du module 1.
L'alerte ne correspond pas à 50% de la conso précédente
Pour moi : si 'c' est la nouvelle conso et 'b' l'ancienne je vois qq chose comme c >= b * 1.5 à mettre en musique. Es-tu d'accord avec ce raisonnement
exemple: quand b=10 et que je fais en sorte d'avoir 15 en c, je n'ai pas d'alerte.
c'est sans doute le dernier réglage à effectuer pour que tout aille bien.
Merci de ta patience

 

Vote positif 0 Vote négatif