Rajouter code à un code déjà existant

Bonjour Tout le Monde,
D’abord toutes mes excuses si je ne poste pas au bon endroit.
Ensuite mon problème : je n’y connais absolument rien en VBA ou Macros, ça fait presque 15 jours que je cherche et je n’ai pas trouvé de solutions à mon problème. Alors si une bonne âme voulait bien m’aider…
J’ai un fichier excel qui comporte plusieurs feuilles, l’une d’elles s’appelle Bénéficiaires (une base de données) et se remplie grâce à un Userform appelé : frm.Bénéficiaires.
Dans la feuille Exel Bénéficiaires j’ai rajouté des colonnes pour les dates de location, leur durée et les km.

Les entêtes de ce tableau (base de données) commencent en B6.
Pour les Dates de Contrats :
Début : Colonne E (dc E7)
Fin : Colonne F (dc F7)
Durée : Colonne G (dc G7)

Pour le kilométrage :
Nb de Km (Dom/Trav) : Colonne J (dc J7)
Aller/Retour : Colonne K (dc K7)
Km Parcourus : Colonne L (dc L7)

Maintenant pour le Userform :
Bénéficiaire5 = Début
Bénéficiaire6= Fin
Bénéficiaire7 = Durée
Bénéficiaire10 = Nb de Km
Bénéficiaire11 = Nb de Km Aller/Retour
Bénéficiaire12 = Nb de Km Parcourus

Voici le code VBA pour la saisie et la validation de ce userform (je précise, ce n’est pas moi qui l’ai fait, lol) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38

Private Sub cmdAjouterBénéficiaire_Click() Dim X As Integer Dim nextrow As Range   On Error GoTo cmdAjouterBénéficiaire_Click_Error   Set nextrow = Feuil4.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) For X = 1 To 49 If Me.Controls("Bénéficiaire" & X).Value = "" Then MsgBox "Veuillez saisir toutes les données" Exit Sub End If Next   If WorksheetFunction.CountIf(Feuil4.Range("A:A"), Me.Bénéficiaire18.Value) > 0 Then MsgBox "Ce bénéficiaire existe déjà" Exit Sub End If   For X = 1 To 49 nextrow = Me.Controls("Bénéficiaire" & X).Value Set nextrow = nextrow.Offset(0, 1) Next   'clear For X = 1 To 49 Me.Controls("Bénéficiaire" & X).Value = "" Next   On Error GoTo 0 Exit Sub cmdAjouterBénéficiaire_Click_Error: MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure cmdAjouterBénéficiaire_Click of Form frmBénéficiaires" End Sub   Private Sub cmdQuitterBénéficiaire_Click() Unload Me End Sub

---

Ce que j’aimerais, si vous m’avez suivie, c’est rajouter les codes pour les colonnes que j’ai rajoutées. La fonction DateDiff qu’il me calcule automatiquement sur le userform la durée de location dans Bénéficiaire7, et qu’après avoir saisie les km, que VBA me calcule les km A/R dans Bénéficiaire11 (soit Bénéficiaire10 x 2) et dans km parcourus Bénéficiaire12 : Bénéficiaire7 x Bénéficiaire11.

Help please ! J'ai vraiment essayer de comprendre le code mais j'avoue que là, je suis une vraie buse ! Désolée,8-)

Pour finir, j’ai Windows8, Exel 2013.

Merci d’avance,
LO

Bonjour,

tu parles de 6 données différentes et de 6 contrôles bénéficiaires

or, quand on regarde ton code

Code:

---

1 2 3 4

For X = 1 To 49 nextrow = Me.Controls("Bénéficiaire" & X).Value Set nextrow = nextrow.Offset(0, 1) Next

---

ici on fait une boucle sur 49 contrôles "Bénéficiaires" ... il y en a 43 de plus que ton explication de départ
j'en déduis que tu as 49 informations, le nom du contractant étant probablement en colonne A ...les 48 autres colonnes contenant des informations diverses dont notamment les 6 dont tu as parlé

donc avant de te proposer quelque chose, décrit mieux la situation exacte de ton userform, et pas uniquement les informations qui te posent problème
on ne peut pas deviner ... hélas

il manque aussi dans ta gestion d'erreur , que se passe t il quand tu as le message?
Sinon effectivement explique un peu plus on pourra t'aider. Meme sans le code , come ton explication ne correspond pas , explique nous plus en details.
Sinon peut être que le code correspond pas trop ?..
Voila n'hésite pas

Bon désolée, je pensais avoir été claire:oops:… c’est sûr ce n’est pas évident de se faire comprendre à travers un écran.
Au début, le formulaire et le code fonctionnait parfaitement bien, je n’ai jamais eu de problèmes avec.
Le truc qui se passe, c’est que j’en avais marre de saisir à chaque fois les trajets, les dates de location et les km directement sur le tableau excel. Alors j’ai rajouté des colonnes à mon tableau excel et donc forcément à mon userform.

Donc là, maintenant, j’ai bien 49 colonnes qui correspondent à mes 49 contrôles, d’ailleurs ce numéro 49 c’est le seul truc que j’ai changé dans le code vba car à la base il y en avait 41.

J’ai récupéré des codes de Datediff et faire des multiplications dans un userform, sauf que je ne sais pas comment l’écrire dans ce code. J’ai pas trop envie de foutre en l’air un truc qui marche bien, juste parce que je suis feignante… lol

Je vous joins mon fichier excel, ça vous aidera probablement.


Amitiés,
LO

Bonjour

l'inconvenant avec ce genre de userform c'est que dans une boucle il est difficile de transcrire les données des textbox et autres controls dans les emplacements dans le sheets

une chose a faire toute simple mais alors archi simple
dans le "TAG" de chaque controls tu met soit l'index ou la lettre de la colonne correspondante au celle du sheets

ainsi avec xl(up).row pour la derniere ligne et le tag du control tu a forcement l'adresse de la cellule de destination c'est assez simple comme procédé

ensuite l'ors de la validation dans ton usf

tu fait

Code:

---

1 2 3

for each ctrl in me.controls if ctrl.tag<>"" then cell(derlig,ctrl.tag)=ctrl' ca c'est le cas ou tu aurais mis l'index de la colonne dans le tag next

---

maintenant si tu a mis la lettre de la colonne tu fait

Code:

---

1 2 3

for each ctrl in me.controls if ctrl.tag<>"" then range(ctrl.tag & derlig)=ctrl next

---

derlig ayant été defini juste avant avec xl(up).row+1 bien entendu

comme tu peut le voir il n'y a rien de compliqué

j'espère avoir été clair sur ce point

Bonjour Patrick,
Je suis sûre que tu es très clair mais c'est moi qui ne comprend pas le langage VBA, :ptdr::ptdr:
Ces lignes que tu me proposes, je l'ai retranscris où exactement dans le code que j'ai posé en début de sujet ? Et donc, si je les rajoute ça va me calculer la durée et la distance ?

Amitiés,
LO

Bonjour,

ce que propose Patrick, c'est d'optimiser la manière dont tu associes chacun de tes contrôles à la colonne où il faut l'écrire

ça tombe bien, j'ai décris ce sujet il y a quelques jours :

Explication : http://www.developpez.net/forums/d15...r/#post8240609
Le visuel de l'endroit où on associe le numéro de colonne au contrôle : http://www.developpez.net/forums/d15...r/#post8240655
Et parce que je suis parfois (souvent ?:ptdr:) tête en l'air, le code avec un test pour éviter les erreurs : http://www.developpez.net/forums/d15...r/#post8240717


Ceci étant, concernant les contrôles où tu veux un calcul automatique, il y a deux solutions :

- coder dans ton userform le calcul automatique de ces champs lors de la saisie des champs qui permettent de les calculer
- coder dans la macro qui exporte les données, le calcul des valeurs

la solution 1 est la plus lourde, car elle va nécessiter de gérer en temps réel ce que l'utilisateur saisi (y compris les cas où il saisit des données incorrectes, comme des lettres au lieu des chiffres)

pour la solution 2, c'est un peu plus simple :

- tu peux laisser les contrôles à calculer, ils seront simplement laissés vides (et s'ils sont remplis .. le code n'utilisera pas leur valeur dans tous les cas)
- tu mets dans le tag de chaque contrôle le numéro de la colonne où il faut écrire
- le code ressemblera à ça

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43

rivate Sub cmdAjouterBénéficiaire_Click() Dim Ligne As Long Dim Col As Integer Dim Ctrl As Control   On Error GoTo cmdAjouterBénéficiaire_Click_Error   With Feuil4 ' ligne d'écriture Ligne = .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0)   ' boucle sur les 49 contrôles For Col = 1 To 49 ' recherche du contrôle For Each Ctrl In Me.Controls If Ctrl.Tag <> "" Then If Ctrl.Tag = Col Then ' on regarde la colonne d'écriture Select Case Col ' 7 = durée location : on le calcule Case 7 .Cells(Ligne, Col) = DateDiff("d", CDate(Me.Bénéficiaire5), CDate(Me.Bénéficiaire6)) ' 11 = trajet A/R : on le calcule Case 11 .Cells(Ligne, Col) = Val(Me.Bénéficiaire10) * 2 ' 12 = distance totale durant location : on le calcule Case 12 .Cells(Ligne, Col) = Val(Me.Bénéficiaire7) * Val(Me.Bénéficiaire10) ' les autres : on les écrit directement dans la feuille Case Else .Cells(Ligne, Col) = Ctrl End Select End If End If Next Ctrl Next i End With   Exit Sub cmdAjouterBénéficiaire_Click_Error: MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure cmdAjouterBénéficiaire_Click of Form frmBénéficiaires"   End Sub

---

A éventuellement adapter bien sûr, je ne l'ai pas testé, et la gestion des erreurs est minimaliste

Bonjour

joe: ca n'est pas optimisé du tout !

Citation:

---

Code:

---

1 2 3 4 5 6 7

For Col = 1 To 49 ' recherche du contrôle For Each Ctrl In Me.Controls If Ctrl.Tag <> "" Then If Ctrl.Tag = Col Then ' on regarde la colonne d'écriture Select Case Col

---

---

pourquoi 2 boucle ??????
moi j'en vois qu'une seule d'utile

Code:

---

1 2 3 4

For Each Ctrl In Me.Controls If Ctrl.Tag <> "" Then ' on regarde la colonne d'écriture Select Case Ctrl.tag

---

;);)

Bonjour,

Comment tu gères l'éventualité qu un autre contrôle contient également un tag qui servirait à autre chose ?

Tu préfères complexifier le sélect case pour ne pas utiliser "case else" ?

Pourquoi pas...

Citation:

---

Envoyé par joe.levrai

Bonjour,

Comment tu gères l'éventualité qu un autre contrôle contient également un tag qui servirait à autre chose ?

Tu préfères complexifier le sélect case pour ne pas utiliser "case else" ?

Pourquoi pas...

---

pas du tout !

les tags sont inutilisés jusqu'à preuve du contraire donc on est libre de toute manip
ton select case est une bonne idée mais sur le tag

je vois pas ou est le soucis
si dans le tag c'est 7 et bien ta date diff etc.......
ca ne change rien a la procédure sauf que tu ne boucle plus sur des cells
tu t'embrouille tout seul :mouarf:

d'autant plus que si vraiment il y avais des tags qui serviraient a autre chose ce serait bien gênant
car par exemple
si tu avais dans un tag un chiffre et qui servirait a autre chose et bien dans ta boucle cells si ce chiffre correspond a une colonne et bien walouh ton code fout le foutoir
donc ton raisonnement n'est pas pertinent tu comprends ?

maintenant si tu parle d'un éventuel tag avec des caractères alphabétique ou non numérique la chose est simple

Code:

---

if isnumeric(ctrl.tag)

---

tu prends des chemins toi des fois :mouarf:

Rha je suis sur mobile c est pas pratique de faire des longs discours

On parle d'une boucle sur 49 incréments, qui permet de ne pas brider l'usage des tag à ces seuls contrôles.

C est pas cher payé pour garder de la souplesse sur toute évolution future

On est d accord qu'en l état actuel de son code c'est superflu

Mais l excès d optimisation peut empêcher les débutants de sortir du sentier qu'ils s étaient tracés auparavant

Si c était mon code, pour sûr j aurai fais différemment et en 4 fois moins de lignes... Mais je veux vraiment qu elle puisse soit en mesure d'ajouter des choses sans buter sur un plantage bidon

Bonjour à vous,
Désolée du retard... je n'ai pas reçu d'alerte de réponses dans ma boîte mail.

Je vais lire attentivement vos réponses et reviendrais vers vous après mes "bidouillages". En tous les cas merci pour le temps que vous m'accordez:oops:

Amitiés,
LO

Bonjour,
Après 1 semaine.... j'ai rien compris ! J'ai essayé dans tous les sens et rien ne fonctionne, c'est officiel je ne comprend absolument rien à VBA :ptdr:

Amitiés,

re
bonjour
je vais me contenter de te proposer celui ci
quand tu va sélectionner les textbox de date je te réserve une surprise
pour les Kilomètres je te laisse faire tu y arrivera je crois non?

Bonjour Patrick,
D'abord merci de t'être penché sur mon souci.

Alors, VBA me dit que l'objet est introuvable et pointe sur "ctrls" ?

Et j'avais plusieurs questions :
tu déclares les variables sauf que je ne l'ai comprends pas : Calendar1, lecontrol ? c'est quoi ces bêtes ?
tu fais 2 fois le calcul de la durée, une fois avec Bénéficiaire5 et la deuxième avec Bénéficiaire6, pourquoi ? je pensais qu'on devait le faire qu'une fois ?

De mon côté, j'avais déclaré les textbox date de cette manière :
Private Sub Reg5_Exit(ByVal Cancel As MSForms.ReturnBoolean)

Et toi ainsi :
Private Sub Bénéficiaire29_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

c'est quoi la différence si on dit la même chose ?

J'ai vraiment essayé de comprendre avant de revenir dans le forum... mais là j'avoue je bloque...

Merci d'avance pour tes réponses,

Amitiés,
LO

Edit : ayé je viens de comprendre le 2ème calcul de la durée, c'est si la date ne va pas !!! aïe aïe aïe

Bonjour
regarde dans tes références tu avoir une manquante
dans vbe regarde si tu a un calencar sinon met le (control supplémentaire dans la boite a outils )

on ne calcule pas deux fois la date
c'est seulement que si tu change d'avis après avoir mis la date2 tu peut toujours changer la date1 le calcul se refera tout seul
j'(ai fait en sorte aussi que tu puisse pas mettre une date inferieure a la date1 dans la date2

l'évènement mousedown sert a faire apparaitre le calendar
en gros tu écris rien dans les textbox date c'est le calendar qui le fait c'est plus simple non?