Sous formulaire Excel

J'ai commencé à refaire un fichier en reprenant tes logiques de formulaires mais je n'ai pas encore terminé.

Oui bien sûr que tu peux mettre à jour des cellules à partir de ton formulaire.
Mettons;
- la feuille "données"
- le nom en colonne "A"
- le formulaire "frm_saisie"
- le champ "txt_nom"
- l'adhérent se trouve en ligne 2

Pour charger ton formulaire (donc de la feuille vers le formulaire) --> sur initialisation du formulaire par exemple

Code:

---

frm_saisie.txt_nom = Sheets("données").Range("A2")

---

Et donc en toute logique pour téléverser du formulaire vers la feuille tu inverses la ligne précédente --> sur change de "txt_nom" par exemple (ou mieux sur "AfterUpdate")

Code:

---

Sheets("données").Range("A2") = frm_saisie.txt_nom

---

Par contre avant ces 2 lignes de code tu dois définir la ligne Excel. Je t'ai mis 2 ici pour te montrer mais c'est aux étapes précédentes du code de définir le numéro de ligne correct à prendre en compte.

Bonjour,

Ici un fichier reprenant la partie gestion des adhérents (hors encore création).

Le formulaire adhérent:
- reprend les données de la feuille des adhérents
- met à jour les données de la feuille des adhérents (dès que tu quittes une des zones du formulaire la feuille se met à jour)
- te permet de naviguer en prenant en compte ou non les archives
- les archives sont tous les adhérents dont l'année de la dernière activité est <> de l'année calendaire en cours (donc au premier janvier tout le monde sera automatiquement considéré comme archivé)
- n'est pas esthétique mais pour le moment ce n'est pas le but
- est sur fond orange pour les adhérents inactifs (archivés) et vert pour les autres (actifs)

J'ai commencé également à préparer un peu le terrain pour les parcelles mais sans plus. Il est donc normal que toutes les colonnes du tableau des parcelles n'apparaissent pas sur le formulaire des parcelles (adresse de la parcelle notamment) et que toutes les colonnes de ton fichier ne soient pas encore reprises.

Teste et dis nous. Je continue dans ce sens ?

Bonjour et merci pour la réponse

Si possible me renseigner pour que je puisse compléter le frmsaisie de la BDD jointe
Les fonctions à transposer sont sur le tableau forum.xls joint
Merci encore







https://fromsmash.com/5VXIYOM~Dk-ct

Complément
Ci joint tableau adresses

OK me revoilà (dsl mais pas toujours dispo)

Citation:

---

TxtCode = Left(txtNom, 2) & Left(txtPrenom, 2) & txtINSEE & txtDoublons

---

OK c'est fait. Le code se mettra à jour dès que tu feras une modification dans nom ou prenom ou insee ou doublon

Bouton de modif des données adhérents selon le code adhérent OK

Salut et merci

J'avais écris tes fonctions pour txtCode mais il faut renter un caractère pour qu'il paraisse ? il ne se fait automatiquement

La fonction pour le bouton modif ( de données existantes) est laquelle en VBA

Merci

Et voilà avec tes fonctions.
Je n'ai pas transposé réellement tes fonctions en créant une fonction de recherche mais j'ai créé une mise à jour automatique.

Donc ta classe tarif et tes cotisations se mettent à jour selon saisie surface forêt (qui pourrait être calculée par la somme de la surface des parcelles de l'adhérent).
Ton reste solde cotisation se met à jour selon la saisie surface forêt ou règlement effectué.

Citation:

---

Envoyé par fergut

La fonction pour le bouton modif ( de données existantes) est laquelle en VBA

---

Tu n'as pas de fonction magique. C'est à l'utilisateur de la créer.
Je te l'ai faite.
1) trouver le code adhérent pour savoir sur quelle ligne la modification doit être faite
2) reporter les valeurs du formulaire (voir mon post du 06/02/2021, 05h22)


Je n'ai pas fait tout les champs pour la mise à jour. Je n'ai fait que les 5 premiers. A toi de continuer en dupliquant les lignes que j'ai faites et en changeant la colonne et le nom de la zone.

Code:

---

1 2 3 4 5 6 7

'reporter les données du formulaire dans la feuille sur la ligne contenant le code adhérent Sheets("BDD en cours").Range("A" & ligne_cours) = frmsaisie.txtID Sheets("BDD en cours").Range("B" & ligne_cours) = frmsaisie.txtCot_UFP38 Sheets("BDD en cours").Range("C" & ligne_cours) = frmsaisie.cboAnnee Sheets("BDD en cours").Range("D" & ligne_cours) = frmsaisie.cboFonction Sheets("BDD en cours").Range("E" & ligne_cours) = frmsaisie.cboStatut

---

Et donc tu continues avec les colonnes F, G, H, ... et les bons noms d'objet en face.

Salut.

Citation:

---

Envoyé par Alex020181

[...]

Code:

---

1 2 3

'reporter les données du formulaire dans la feuille sur la ligne contenant le code adhérent Sheets("BDD en cours").Range("A" & ligne_cours) = frmsaisie.txtID[...]

---

Et donc tu continues avec les colonnes F, G, H, ... et les bons noms d'objet en face.

---

Perso, je travaillerais avec un tableau structuré. Si demain on insère une colonne en B, ça va être rock 'n roll de devoir modifier toutes les lignes de code pour les colonnes qui se seront décalées.

En exemple, un tableau structuré t_Contacts, un userform avec tboID, tboFirstName et tboLastName

Pièce jointe 590489

Et le code VBA qui recherche la ligne et transfère les valeurs, soit dans une ligne existante si l'ID transmis existe, soit dans une nouvelle ligne. On a ainsi une seule fonction pour le transfert, qu'il soit en "Insert" ou en "Update".

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Function GetRowRange(ID As Long) As Range Dim i   i = Application.Match(ID, Range("t_Contacts[ID]"), 0) If IsError(i) Then Set GetRowRange = Range("t_Contacts").ListObject.ListRows.Add().Range Else Set GetRowRange = Range("t_Contacts").ListObject.ListRows(i).Range End If End Function   Sub SaveData() Dim r As Range   With UserForm1 Set r = GetRowRange(tboID.Value * 1) r(r.ListObject.ListColumns("ID").Index).Value = .tboID.Value r(r.ListObject.ListColumns("Prénom").Index).Value = .tboFirstName.Value r(r.ListObject.ListColumns("Nom").Index).Value = .tboLastName.Value End With End Sub

---

Ainsi, si demain l'on insère une colonne,il suffit d'ajouter la ligne pour cette colonne, sans devoir modifier toutes les autres avec les risques inhérents à ce genre d'opération. Et si l'on décale les données dans la feuille, on ne doit même pas toucher au code, puisque le code utilise les références structurés et pas la position absolue des données sur la feuille. Perso, je travaille avec une table de mappage pour éviter les x lignes de transfert (une par colonne) et travailler en boucle, comme je le montre dans mon billet dont j'ai donné le lien précédemment.

Exact on pourrait également faire comme ça.

Pour le cas présent Fergut me dit être débutant et se former uniquement avec des tutos Internet alors je pense que, dans un premier temps, il est préférable qu'il assimile
sheets().range()=valeur
pour lui montrer comment de façon générale on accède aux cellules (qu'elles soient sous forme de tableau ou non).

Ensuite une fois qu'il aura manipulé seul et comprit "le truc" on pourra évoluer vers la manipulation de tableaux structurés et/ou de table de mappage.

C'est aussi pour qu'il apprenne que je ne lui ai pas fait tous ses champs. Pour qu'il complète lui-même et voit ainsi le fonctionnement général.

C'est une décision de ma part mais je ne critique pas l'utilité de tableaux. Je pense simplement qu'il faut d'abord lui montrer le mode classique puis évoluer vers les tableaux. Ainsi il saura faire sur un autre fichier qui ne sera pas éventuellement sous forme de tableaux.

Mon but n'est pas non plus de dénigrer Fergut mais d'avancer pas à pas.

A chacun sa vision des choses.

Je ne serai jamais partisan d'apprendre d'abord les techniques obsolètes à un débutant puis de lui montrer les méthodes actuelles qui simplifient et surtout sécurisent le code. Surtout qu'il n'est pas plus difficile de coder sur base des tableaux structurés que sur base des plages classiques, et qu'il est bien plus sécurisant de travailler avec les références structurées, pour les raisons déjà évoquées antérieurement dans cette discussion.

Je pense que je n'aurais jamais donné +/- 1500 journées de formation si j'avais appris les mauvaises techniques à des débutants. Ils auraient vite fui mes salles de cours. Je me pose toujours la question de savoir à quel moment dire à un débutant qu'il a appris des mauvaises techniques et que maintenant il est "assez grand" pour apprendre les bonnes. Si on ne lui donne pas les bonnes de suite, quand lui donnera-t-on? Plus tard lorsqu'il aura acquis de mauvaises habitudes et qu'il construira une usine à gaz qui fuit de toutes parts? Ca n'a pour moi aucun sens, un raisonnement pareil. Et cela n'a aucun sens, en 2021, de travailler ce genre de besoins sans tableaux structurés. Je continuerai en tous cas à insister sur les bonnes pratiques lorsque je verrai que l'on préconise les mauvaises.

Dans le code que tu donnes, tu utilises le nom de l'onglet pour pointer vers la feuille. Si cet onglet est renommé, on a aussi un problème de devoir modifier le code sur chaque ligne. Il serait intéressant, a minima, d'utiliser au moins une variable de type Worksheet.

Code:

---

1 2 3 4 5 6 7

Dim sh As Worksheet   Set sh = Sheets("BDD en cours") With frmsaisie sh.Range("A" & ligne_cours) = frmsaisie.txtID sh.Range("B" & ligne_cours) = frmsaisie.txtCot_UFP38 End With

---

Il serait encore plus intéressant d'utiliser le codename de la feuille pour éviter les problèmes => billet de Philippe Tulliez qui n'offre aucune difficulté de mise en place. Et pour se détacher (presque) totalement de ces contraintes de parentalité, on utilise les tableaux structurés.

Les lecteurs de cette discussion, présents et à venir, se feront leur propre opinion ;)

Bonjour,
Je partage entièrement ce que Pierre à écrit à propos de ce que l'on enseigne.
Il y a des formateurs qui lors d'une formation VBA pour débutant n'enseigne que le Select et Selection. Je trouve cela débile

Dès la première procédure faite à l'aide de l'enregistreur de macro, je montre tout ce qu'il faut enlever et pourquoi et j'explique très rapidement l'usage des variables objets.

Quelle que soit le type de formation que l'on dispense, il me semble important que l'on enseigne immédiatement les bonnes pratiques, à utiliser les bons outils et surtout les plus récents.

Bonjour,

Citation:

---

Envoyé par Pierre Fauconnier

A chacun sa vision des choses.
[...] Si on le lui donne pas les bonnes de suite, quand lui donnera-t-on?

---

Je suis entièrement d'accord. +1000 :plusser:

Bonjour,

Citation:

---

Envoyé par Alex020181

... débutant ... il est préférable qu'il assimile
sheets().range()=valeur

---

S'il doit assimiler ce type d'instruction il faut lui apprendre la bonne syntaxe :
Worksheets().Range().Value=valeur .
L'objet Range n'appartient pas à un élément de la collection Sheets, il en hérite dans un cas particulier, celui où l'élément est une worksheet !

Citation:

---

Envoyé par Alex020181

[...]Ainsi il saura faire sur un autre fichier qui ne sera pas éventuellement sous forme de tableaux.[...]

---

Dans ce cas, la première chose à faire est de remettre les données en tableau, en Excel (Power Query?) ou en VBA. Il est, de mon expérience, moins douloureux et moins compliqué de remettre les données en forme avant traitement que de pondre du code au cas par cas pour correspondre à une organisation ésotérique des données.

Pour moi, dans le cadre de bonnes pratiques à mettre en place le plus tôt possible dans le processus d'apprentissage, on remet d'abord les données en forme, ce qui permet d'utiliser les outils natifs de traitement de données (formules .ENS, TCD, POWER QUERY, ...) et en VBA, de généraliser son approche en travaillant sur les tableaux structurés et en appuyant son code VBA sur les outils d'Excel (Quand on programme pour Excel, on pense Excel avant VBA ;) ).

J’ai transposé les fonctions ça fonctionne , Merci

Ce que je souhaiterais :
Fonction Ajout : Complète la BDD en cours et efface les données du formulaire, sinon on peut valider plusieurs fois.
A la place de modif dans feuille :
Code MAJ : Code adhérent à mettre à jour
Visualiser : Efface les données frm et visualise les champs du code à mettre à jour
MAJ : Valide la mise à jour, efface
Compléments :
Est-il possible d’avoir un tableau de bord indépendant du classeur Excel
Merci encore




https://fromsmash.com/FGW3rJSrzv-ct

Pour le tableau de bord indépendant de ton classeur de données, tu peux sans souci utiliser power query qui, depuis XL2010, permet de récupérer les données de différents classeurs pour les intégrer dans un classeur d'analyse ou de tableau de bord.

Tu comprends mieux maintenait pourquoi j'insiste tant sur l'utilisation d'un tableau structuré puisque PowerPoint Quercy s'appuie préférentiellement sur ce type de tableaux.

J'ai regardé ton fichier.

Dans tes tableaux, il n'est pas nécessaire d'avoir des lignes vides dans le bas du tableau. Ces lignes vont perturber le code et t'obliger à des acrobaties pour savoir sur quelle ligne placer une nouvelle donnée. Le ListObject (tableau structuré en VBA) permet d'ajouter une ligne au tableau avec ListObject.ListRows.Add() qui renvoie le ListRow de la nouvelle ligne créée (par défaut en bas de tableau, mais on peut définir l'endroit de l'insertion). Cette méthode est intéressante car elle fonctionne que ton tableau possède une ligne de total ou pas. Ca t'évite de devoir gérer tout cela toi-même.

La procédure Private Sub btnAjout_Click() est ingérable.

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 44

Private Sub btnAjout_Click() Sheets("BDD en cours").Activate Range("A1").Select Selection.End(xlDown).Select 'On se positionne sur la ligne nom vide Selection.Offset(1, 0).Select ' on se decale d'une ligne vers le bas ActiveCell = txtID.Value ActiveCell.Offset(0, 1).Value = txtID ActiveCell.Offset(0, 2).Value = cboAnnee ActiveCell.Offset(0, 3).Value = cboFonction ActiveCell.Offset(0, 4).Value = cboStatut ActiveCell.Offset(0, 5).Value = txtDenomination ActiveCell.Offset(0, 6).Value = cboCivilite ActiveCell.Offset(0, 7).Value = cboSuivi ActiveCell.Offset(0, 8).Value = txtNom ActiveCell.Offset(0, 9).Value = txtPrenom ActiveCell.Offset(0, 10).Value = TxtCode ActiveCell.Offset(0, 11).Value = txtDoublons ActiveCell.Offset(0, 12).Value = txtNum_voie ActiveCell.Offset(0, 13).Value = txtAdresse ActiveCell.Offset(0, 14).Value = txtLocalisation ActiveCell.Offset(0, 15).Value = txtCode_postal ActiveCell.Offset(0, 16).Value = txtVille ActiveCell.Offset(0, 17).Value = txtDepartement ActiveCell.Offset(0, 18).Value = txtINSEE ActiveCell.Offset(0, 19).Value = txtSurf_foret ActiveCell.Offset(0, 20).Value = txtClasse_tarif ActiveCell.Offset(0, 21).Value = txtCot_soutien ActiveCell.Offset(0, 22).Value = txtCot_GSB ActiveCell.Offset(0, 23).Value = txtCot_UFP38 ActiveCell.Offset(0, 24).Value = txtCot_Revue ActiveCell.Offset(0, 25).Value = txtCot_RC ActiveCell.Offset(0, 26).Value = txtTot_cot ActiveCell.Offset(0, 27).Value = txtRegle ActiveCell.Offset(0, 28).Value = txtEcart ActiveCell.Offset(0, 29).Value = txtDate_regle ActiveCell.Offset(0, 30).Value = txtFixe ActiveCell.Offset(0, 31).Value = txtMobile ActiveCell.Offset(0, 32).Value = txtMail ActiveCell.Offset(0, 33).Value = txtMail2 ActiveCell.Offset(0, 34).Value = txtRef_PEFC ActiveCell.Offset(0, 35).Value = txtNum_prece ActiveCell.Offset(0, 36).Value = txtComment MsgBox " Enregistrement effectué", vbOKOnly + vbInformation + vbInformation End Sub

---

D'abord, une procédure évènementielle ne devrait rien faire d'autre que d'appeler des procédures. Autrement dit, on ne met jamais du code applicatif (du code qui "fait quelque chose") dans un évènement, quel qu'il soit. On délègue le traitement à une procédure qui reçoit les arguments nécessaires et qui travaille avec.

Il n'est nullement nécessaire d'activer une cellule pour travailler avec. Ca ralentit le processus et ça oblige la proc à se positionner physiquement sur cette cellule, modifiant l'environnement Excel. Le Selection.End(xlDown) est piégeant et, comme déjà dit, c'est du code obsolète qui est ingérable et dangereux, car il considère que tu dois toujours avoir des données en A. De plus, tout ton code est verrouillé sur le fait que ta table commence en A1. Un seul décalage en ligne ou en colonne plantera complètement ton code. Utiliser les tableaux structurés en VBA va faire sauter toutes ces restrictions et limiter considérablement le risque d'erreur.

Idéalement, une procédure qui envoie des données dans une table structurée ne devrait pas se trouver dans un userform, mais dans un module standard. De plus, outre le fait qu'il faut utiliser le code manipulant le tableau structuré, lorsqu'il y a 36 champs à transférer et dans la mesure où tu ne transfères que du texte, il est de loin préférable de prévoir un tableau Excel comprenant deux colonnes (trois si différents types de données sont transférés), et de travailler en boucle sur le tableau. Ici, ta procédure est beaucoup trop liée à l'organisation et à l'ordre des colonnes de la feuille BDD. D'ailleurs, si on regarde la BDD et le code fourni plus haut, on voit que tu transfères deux fois l'ID, une fois dans la colonne 1, une fois dans la colonne 2 du UFP38. Pas simple de s'y retrouver, et je n'ai pas vu de txtUFP38. Tu n'as pas de colonne Mail2 dans la BDD mais tu transfère txtMail22 en colonne 33... Aie aie aie. Evidemment, quand on te conseille de programmer ainsi, ça ne peut que planter, à un moment donné.

On pourrait déjà rendre le code un peu plus lisible et plus sûr en utilisant les références structurées et les noms des colonnes de la table comme je l'ai montré dans un code que je t'ai déjà donné, mais perso, je préfère travailler en boucle. Voilà comment je coderais le transfert des données du usf vers le tableau structuré, en m'appuyant sur la table de mappage dont j'ai parlé. Cette fonction est placée dans un module standard et renvoie 0 (tout est ok) ou le numéro de l'erreur rencontrée. Tu remarques qu'elle n'affiche aucun message à l'utilisateur, ce n'est pas son rôle.

Pièce jointe 590646

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

Function UsfToTable() Dim Target As Range Dim Map As Range Dim i As Long Dim Index   On Error GoTo Catch   ' Recherche de la ligne dans la BD Index = Application.Match(frmsaisie.txtID.Value * 1, Range("t_BddEnCours[ID]"), 0) If IsError(Index) Then Set Target = Range("t_BddEnCours").ListObject.ListRows.Add().Range Else Set Target = Range("t_BddEnCours").ListObject.ListRows(Index).Range End If   For i = 1 To Range("t_MapBdd").Rows.Count Set Map = Range("t_MapBdd")(i, 1).Resize(1, 2) Target(Target.ListObject.ListColumns(Map(1).Value).Index).Value = frmsaisie.Controls(Map(2).Value).Value Next i   Catch: UsfToTable = Err.Number End Function

---

Cette procédure est appelée par le userform lors du clic sur le bouton Ajout, et c'est l'évènement Ajout qui a la charge de renseigner l'utilisateur sur le résultat de l'ajout.

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub btnAjout_Click() Dim Result As Long   Result = UsfToTable() If Result = 0 Then MsgBox "Tout est ok" Else MsgBox "L'erreur suivante est survenue:" & vbLf & Result & vbLf & Error(Result) End If End Sub

---

Plus loin, on tombe sur cette procédure, toujours dans le userform

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 44

Sub maj_classe_tarif_txt_et_cotisations()   Dim surface_foret_num As Long Dim num_ligne_tablo_cotisation As Long   'RAZ champs formulaire impactés frmsaisie.txtClasse_tarif = "" frmsaisie.txtCot_soutien = "" frmsaisie.txtCot_GSB = "" frmsaisie.txtCot_UFP38 = "" frmsaisie.txtCot_Revue = "" frmsaisie.txtCot_RC = "" frmsaisie.txtTot_cot = ""   'tester le cas sout If LCase(frmsaisie.cboFonction) = "sout" Then   frmsaisie.txtClasse_tarif = "Sout" 'maj la classe tarif num_ligne_tablo_cotisation = 17 'retenir le numéro de ligne Excel de la classe tarif dans la feuille "listes déroulantes"   ElseIf IsNumeric(frmsaisie.txtSurf_foret) Then 'vérifier que la surface forêt est bien un nombre   surface_foret_num = frmsaisie.txtSurf_foret * 1 'passer en numérique la valeur de frmsaisie.txtSurf_foret (par défaut c'est du texte) sinon tu ne peux pas comparer avec un chiffre   'tester les limites de surface If surface_foret_num > 5000000 Then   frmsaisie.txtClasse_tarif = "+500" 'maj la classe tarif num_ligne_tablo_cotisation = 16 'retenir le numéro de ligne Excel de la classe tarif dans la feuille "listes déroulantes"   ElseIf surface_foret_num > 4000000 Then   frmsaisie.txtClasse_tarif = 500 num_ligne_tablo_cotisation = 15   ElseIf surface_foret_num > 3000000 Then   frmsaisie.txtClasse_tarif = 400 num_ligne_tablo_cotisation = 14   ElseIf surface_foret_num > 2000000 Then   frmsaisie.txtClasse_tarif = 300 num_ligne_tablo_cotisation = 13

---

On y constate du hard coding (valeurs "métier" codées en dur en VBA). Là aussi, il faudrait corriger la table dans la feuille "listes déroulantes", la transformer en tableau structuré et y rechercher la ligne sur base de surface_foret_num, plutôt que la mettre en dur dans le code. Imagine un seul instant que tu tries les données de cette "table"... Ca va être rock 'n roll dans ton code, plus rien ne sera correct.


Evidemment, les changements que je propose vont maintenant sembler disproportionnés et la tâche te paraître titanesque!. Si, dès le départ, on t'avait renseigné les bonnes pratiques, tu aurais de suite bien codé sur base d'une conception de classeur solide et les adaptations à y apporter seraient mineures.

Au vu de l'organisation de tes données (parfois en tableaux structurés, parfois en plages classiques) et surtout du code généré, je ne peux que te conseiller de faire table rase, au moins du code VBA qui accumule les mauvaises pratiques, et de recoder tout cela sur base des bonnes pratiques. C'est une petite journée de travail mais qui va simplifier la maintenance et l'évolution de ton code. Mais perso, je ne me vois pas venir mettre l'emplâtre sur la jambe de bois. Moi, en tout cas, en l'état, je ne peux pas mettre les mains là-dedans. Ca ne rendrait pas service et je donnerais une image de moi bien peu professionnelle.