USERFORM - Créer, Consulter, Modifier et Supprimer des enregistrements à l'aide d'un formulaire.

Bonjour phillipe, tout d'abord mercis pour votre tuto qui est excellent, vous avez demandé que l'on vous communique les erreurs, en lançant l'application je reçoit un message d'erreur "sub ou fonction non défini "
Et il sélectionne Variable dans userform activate pouvez vous m'expliquer ce que j'ai mal fait s'il vous plaît

Merci d'avance

F

Bonjour Philippe et merci encore pour cet incroyable travail qui m'a beaucoup aidé, bien qu'on vous l'aie déja dit maintes fois.

J'ai adapté votre fichie à mon utilisation les fonctions marchent tr`s bien mais j'avais quand même deux questions.

1) tout d'abord j'ai une ligne qui engendre des erreurs :
With Me: .cboMember.ListIndex = Me.Tag: End With
dans le user form activate,
le programme semble fonctionner corrrectement sans, est-elle nécessaire ?

2) Je dois en plus du formulaire mettre en place des outils d'analyse de données par exemple ( exemple bête), la somme des âges des membres.
La commade suppression, supprime la ligne ce qui m'engendre des soucis de #REF dans mes calculs,
sauriez-vous comment je pourrais contourner le problème ?

Dites moi si vous avez besoin de mon fichier en pièce jointe pour y voir plus clair.

Merci d'avance pour votre réponse et encore merci pour cette aide indirectement précieuse !!

Bonjour à tous,
J'ai une erreur qui apparaît lors de l'enregistrement du fichier en "Excel prenant en charge les macros" :

Code:

---

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

<?xml version="1.0" encoding="UTF-8" standalone="true"?>   -<recoveryLog xmlns="http://schemas.openxmlformats.org/spreadsheetml/2006/main">   <logFileName>error081880_03.xml</logFileName>   <summary>Des erreurs ont été détectées dans le fichier « C:\Users\Anthony\Downloads\UserForm - CRUD (C)reate (R)ead (U)pdate (D)elete - Version 3_2.xlsm »</summary>     -<removedRecords summary="Liste des enregistrements supprimés ci-dessous :">   <removedRecord>Enregistrements supprimés: Tri dans la partie /xl/worksheets/sheet1.xml</removedRecord>   </removedRecords>   </recoveryLog>

---

Avez-vous une idée du problème lié au format d'enregistrement ?

Merci d'avance :)
Anthony

Bonjour phillipe, mercis pour vos tutos et vos contributions car j'ai cherché et chercher des choses comme ça pendant des mois, enfin mon problème est que j'ai adapté votre programme pour mon usage en créant mon userform et mon fichier excel, en faite j'ai copié collé ( si vous me voyez, j'ai la tête baissé je fais la honte lol) voilà après avoir copié coller et puis modifier les 3,4 choses pour que ça correspond à mon programme, quand je lance projet, VBA m'indique une ligne surligner en jaune soit c ma macro qui active mon userform soit c la ligne : .rowsource = rng.Adress(external:=true)
Du private sub initrowsource

Pouvez-vous m'aider ??

Vous pouvez me joindre sur mon mail si vous le souhaitez : f.mart51@orange.fr

Bonjour Fmart51,
Sans connaître le n° de l'erreur accompagné de son message descriptif, il est difficile de vous aider.
Si l'erreur se produit à la ligne 3 de la procédure nommée InitRowSource, affichée ci-dessous, vérifier si le contrôle ComboBox se nomme bien cboMember ou si la variable Rng est bien de type Range et fait bien référence à une plage de données (n'est pas Nothing)

Code:

---

1 2 3 4 5 6

Private Sub InitRowSource() With Me.cboMember .RowSource = rng.Address(external:=True) .ListIndex = 0 ' Force la sélection du premier enregistrement End With End Sub

---

Citation:

---

VBA m'indique une ligne surligner en jaune soit c ma macro qui active mon userform soit c la ligne : .rowsource = rng.Adress(external:=true)

---

Si une erreur se produit dans un UserForm lancé depuis une procédure module, l'erreur est signalée sur la ligne appelant le UserForm, si on lance le UserForm directement c'est la ligne où se produit l'erreur qui est mise en évidence.

[EDIT]
Réponse au post #41 du 21/01 à 15h12

Citation:

---

Bonjour phillipe, tout d'abord mercis pour votre tuto qui est excellent

---

Merci pour ton appréciation.

Citation:

---

vous avez demandé que l'on vous communique les erreurs, en lançant l'application je reçoit un message d'erreur "sub ou fonction non défini "
Et il sélectionne Variable dans userform activate pouvez vous m'expliquer ce que j'ai mal fait s'il vous plaît

---

Je ne vois pas le mot Variable dans cette procédure.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub UserForm_Activate() InitVariable ' Initialisation des variables InitData ' Initialisation adresse liste des données + RowSource InitListBox ' Initialisation du contrôle lstHobby (27/12/2015) ' Doit être invoquée en dernier lieu InitComboBox ' Initialisation ComboBox UserFormStatus = Status.Consultation ' Consultation par défaut With Me ' Initialisation de certains contrôles .cmdConfirm.Visible = False: .cmdCancel.Visible = False .cboMember.Enabled = True: .frmMember.Enabled = False usfTitle ' Titre du UserForm (Propriété Caption) End With ' Focus sur le 1er enregistrement ou l'enregistrement sélectionné dans la feuille With Me: .cboMember.ListIndex = Me.Tag: End With End Sub

---

A quelle ligne se produit l'erreur, quelle en est le numéro ainsi que son descriptif ?
Plus on a de précision mieux c'est.

Bonjour bsalles,

Citation:

---

Bonjour Philippe et merci encore pour cet incroyable travail qui m'a beaucoup aidé, bien qu'on vous l'aie déja dit maintes fois

---

Même si c'est régulièrement dit, cela fait toujours plaisir et encourage à continuer à publier des contributions.

Citation:

---

1) tout d'abord j'ai une ligne qui engendre des erreurs :
With Me: .cboMember.ListIndex = Me.Tag: End With
dans le user form activate,
le programme semble fonctionner corrrectement sans, est-elle nécessaire ?

---

Tag est une propriété qui ne sert à rien sauf à permettre au programmeur d'y créer tout ce qui lui passe par la tête.
Dans mon cas, je l'ai utilisée pour permettre le choix du positionnement de l'enregistrement courant. Si la longueur de Tag est égale à 0 alors Tag = 0 donc ListIndex = 0
Il suffit de remplacer cette ligne par

Code:

---

Me.cboMember.ListIndex = 0

---

ou tout autre nombre correspondant à un des éléments de la liste (de 0 à .cboMember.ListCount - 1)

Citation:

---

2) Je dois en plus du formulaire mettre en place des outils d'analyse de données par exemple ( exemple bête), la somme des âges des membres.
La commade suppression, supprime la ligne ce qui m'engendre des soucis de #REF dans mes calculs,
sauriez-vous comment je pourrais contourner le problème ?

---

Il faudrait éditer la formule qui calcule cette somme. Est-ce que cette formule est une fonction dans le code VBA du UserForm ou bien dans une cellule d'excel ?
Dans ce dernier cas, l'application n'est pas en cause car la suppression manuelle de la ligne provoquerait la même erreur.
Il faut donc prévoir de rendre dynamique la plage contenant les données (par exemple transformer la plage en tableau) mais peut-être faudrait-il revoir le code contenu dans le UserForm.
Une autre solution est de nommer la plage en calculant sa référence à l'aide de la fonction DECALER.

Bonjour Anthony,

Citation:

---

Envoyé par k6s33

Bonjour à tous,
J'ai une erreur qui apparaît lors de l'enregistrement du fichier en "Excel prenant en charge les macros" :

Code:

---

1 2 3 4 5 6 7 8 9

<?xml version="1.0" encoding="UTF-8" standalone="true"?> -<recoveryLog xmlns="http://schemas.openxmlformats.org/spreadsheetml/2006/main"> <logFileName>error081880_03.xml</logFileName> <summary>Des erreurs ont été détectées dans le fichier « C:\Users\Anthony\Downloads\UserForm - CRUD (C)reate (R)ead (U)pdate (D)elete - Version 3_2.xlsm »</summary> -<removedRecords summary="Liste des enregistrements supprimés ci-dessous :"> <removedRecord>Enregistrements supprimés: Tri dans la partie /xl/worksheets/sheet1.xml</removedRecord> </removedRecords> </recoveryLog>

---

Avez-vous une idée du problème lié au format d'enregistrement ?
Merci d'avance :)
Anthony

---

Hélas non, je n'ai pas encore rencontré ce genre de problème.

Bonjour phillipe, tout simplement je n'arrive pas à avoir la listbox et les cases a coché, sinon j'ai trouvé une astuce pour afficher le DTPicker et les combobox pré charger en faite il suffit simplement de reprendre le code de cboMember et de modifier cbo en DTPIcker et pour la combobox il faut appeller private sub combobox 1_click()
Et écrire son code, maintenant je pense que vous savez déjà tout ca, c'est vrai que votre code pour la listbox et les case à cocher serait bien mais je n'y arrive pas pour l'instant.
J'aimerais bien vous envoyer mon programme pour que vous y jetiez un œil mais je sais pas si c'est possible sur ce site.
Amicalement
FMART

Merci énormement à vous pour ce post. cependant je voudrais savoir quelle partie du code nous informe que dans l'onglet demonstration seront enregistrés les données? et dans le cas ou ce bout de code n'existe pas comment faire pour dire où faire l'enregistrement? parceque j'aimerais bien utiliser ce code pour insérer les clients et aussi les fournisseurs. bine évidemment deux userforme et deux bouts de codes .

merci pour votre clarification

Bonjour,

Citation:

---

cependant je voudrais savoir quelle partie du code nous informe que dans l'onglet demonstration seront enregistrés les données?

---

C'est la variable objet Rng qui représente la plage de données utilisée.
Dans le premier fil de cette contribution au chapitre Déclaration des variables et constantes de portées module, la variable est déclarée en tête de module ligne 10

Code:

---

Dim rng As Range ' Plage de données traitée par le formulaire

---

C'est dans la procédure InitData qui est invoquée dans la procédure événementielle UserForm_Activate (ligne 3) que la liste de données est assignée à la variable objet Rng

Code:

---

1 2 3 4 5 6 7

Private Sub InitData() ' Redimensionnement de l'objet rng Set rng = shtMember.Range("A1").CurrentRegion With rng Set rng = .Offset(1).Resize(.Rows.Count - 1) End With End Sub

---

shtMember est la propriété CodeName de la feuille nommée [Démonstration]

Bonjour, merci pour votre rapide réponse qui m'a clarifiée au mieux le point .
j'essai donc de changer le "sheetMember" en un autre non et il me fait sortir l'erreure suivante : "run-time error 1004 : application defined or object-defined error"

Citation:

---

Private Sub InitData()
' Redimensionnement de l'objet rng et RowSource
Set rng = Sheet1.Range("A1").CurrentRegion =========>>> ERREURE
With rng
Set rng = .Offset(1).Resize(.Rows.Count - 1)
End With
End Sub

---

en ajoutant le code sheetmember dans le nouveau sheet où je désire que l'enregistrement ai lieu

MERCI à vous,

Bonjour,
Voir ce # File où j'ai illustré où se trouve la propriété CodeName
De plus il faut savoir que la propriété CurrentRegion est l'équivalent de Ctrl + * ou Ctrl + A. Il faut donc que la liste commence en A1 et que la première ligne contienne les étiquettes de colonnes et que la liste des données suive.

salut,
Mon problème ne repose pas sur la nomenclature, moi ce que je voudrais s'est utiliser le meme formulaire pour deux tab différentes
un userform qui copie dans shtMember et un autre qui copiera dans shtMember2
Pièce jointe 210456

Bonjour,
La contribution est basée sur un UserForm gérant une base de données.
Sinon pour répondre partiellement à ta demande, lorsque j'utilise plusieurs listes de données dans un programme j'utilise une variable tableau
Exemple

Code:

---

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

Option Explicit Dim Rng(1 To 2) As Range   Sub Main() InitData End Sub   Private Sub InitData() Dim Elem As Byte ' Redimensionnement de l'objet rng Set Rng(1) = shtClient.Range("A1").CurrentRegion Set Rng(2) = shtStock.Range("A1").CurrentRegion For Elem = 1 To 2 With Rng(Elem) Set Rng(Elem) = .Offset(1).Resize(.Rows.Count - 1) End With Next End Sub

---

Vous avez vous M. fais un userform pour une saisie qui sera insérer dans le tableau nommé demonstration.

Moi ce que je voudrais s'est :
1-utiliser votre useform et le code qui s'y attache pour faire des insertion dans le tableau demonstration
2- faire un autre meme formulaire(userform2) du meme genre et style que le premier et ecrire le code (code userform2) en arrière plan qui devra enregistrer les données saisie dans un deuxieme tableau que j'appel demonstration2.

j'ai tenté votre proposition et j'ai toujours la même erreure lors du debogage , j'ai modifié le code du userform UIClient , moi je veux a chaque userform son code .
j'ai tenté de copier le code et le coller à un nouveau userform , j'obtiens soit la variable "status" est deja utilisé soit erreur de débogage a la ligne

Citation:

---

Set Rng = .Offset(1).Resize(.Rows.Count - 1)

---

ci dessous les screenshots apres votre dernière propisition

DESOLE M. je solicite votre aide, merci pour votre compréhension
Pièce jointe 210704Pièce jointe 210705

Bonjour,
On s'est mal compris.
Le code que je t'ai donné est un exemple de l'utilisation d'une variable objet dimensionnée que j'utilise lorsque je dois dans une application utiliser plusieurs liste de données mais pas du tout à intégrer cela dans le code proposé dans cette contribution.

Comme je l'ai indiqué le code et l'exemple utilisé dans ma contribution porte sur un UserForm utilisant une seule table de données donc soit tu utilises deux UserForm utilisant chacun sa propre liste de données soit tu passes sur autre chose comme par exemple l'utilisation d'un module de classe, un UserForm avec un contrôle mutlipage où chaque page gère une liste de données (avec variable dimensionnée) et en t'inspirant des différents codes proposés ici. C'est suffisamment structuré pour le faire aisément.

Je ne peux pas apporter une réponse pertinente à ta question dans cette discussion car cela nécessiterait une autre contribution qui mine de rien prends quelques heures comprenant développement, tests et rédaction sur le sujet.

Merci M.

oui sa risque de prendre du temps . donc si j ecomprends bien ce bout de code lié à un seul userform ne peut pas etre copié comme code d'un second userform? sinon avez vous des tutos avec des exemples exécutables.?

merci encore une foi pour votre aide

Bonjour,

Citation:

---

donc si j ecomprends bien ce bout de code lié à un seul userform ne peut pas etre copié comme code d'un second userform?

---

Ce n'est pas ce que j'ai écrit dans mes réponses.
On peut utiliser autant de UserForm qu'il n'y a de liste de données mais le code en exemple ne gère qu'une seule liste par UserForm mais bien entendu il y a des modifications à faire dans quelques procédures dont les principales sont

1. InitData
2. ReadRecord
3. WriteRecord

La procédure InitData

Code:

---

1 2 3 4 5 6 7

Private Sub InitData() ' Redimensionnement de l'objet rng et RowSource Set rng = shtClient.Range("A1").CurrentRegion ' CodeName de la feuille With rng Set rng = .Offset(1).Resize(.Rows.Count - 1) End With End Sub

---

Dans les procédures ReadRecord et WriteRecord, il y a bien entendu lieu d'adapter la référence aux colonnes en fonction des contrôles se trouvant dans le UserForm

D'autres procédures comme

• InitVariable
• UserFormActivate

sont à vérifier parce-que dans l'exemple, il y a gestion de la colonne nommée Sexe par un OptionButton (dont on remplace les lettres par les valeurs TRUE et FALSE

Code de la procédure InitVariable où l'on peut voir que la ligne 4 dans cet exemple est inutile

Code:

---

1 2 3 4 5 6 7

Private Sub InitVariable() lstStatusText = Split(StatusLabel, ";") With Me '.optMale.GroupName = "Gender": Me.optFemale.GroupName = "Gender" If Len(.Tag) = 0 Then .Tag = 0 ' La propriété Tag contient le numéro de l'élément (CurrentRecord) à sélectionner à l'ouverture du UserForm End With End Sub

---

Dans une réponse du 27/12/2015, j'ai proposé une solution pour faire une liste à choix multiple, il est évident que si cette option n'est pas utilisée, il n'y a donc pas de contrôle ListBox prévu dans le UserForm et il faut bien entendu dans ce cas là, supprimer l'appel à InitListBox suite à une réponse.

Je rappelle encore une fois que cette contribution est un exemple pour montrer comment structurer un UserForm d'une manière telle que les modifications et la maintenance sont aisées.

Citation:

---

sinon avez vous des tutos avec des exemples exécutables.?

---

Celui-ci en est un et j'ai intégré dans le classeur téléchargeable, une feuille nommée Lien qui contient cinq liens.

Bonjour Philippe,

Bravo pour ce post qui m'est très instructif.

Avec le code suivant qui se trouve sur la worksheet "Démonstration", on lance le userform en double cliquant sur les données de la feuille.
As-tu une solution pour ouvrir le userform en mode modification en fonction de la ligne sur laquelle on double clique.

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Me.Range("A1").CurrentRegion) Is Nothing Then Cancel = False With usfDemo .Tag = Target.Row - 2 .Show End With Cancel = True End If End Sub

---

Merci d'avance
Citaro

Bonjour au forum. Bonjour Philippe et merci beaucoup pour ce super fichier.

Je l'ai utilisé comme base de plusieurs projets et tout fonctionne très bien.
Je me permets de poster sur ce sujet car après plusieurs jours de recherche, j'ai un petit problème qui à mon avis, pour vous va sembler ridicule.

Je souhaiterais pouvoir effectuer une recherche depuis la combobox cboMember sur plusieurs colonne de ma base de donnée.
En gros je tape le début d'un nom de projet ou du code projet et j'ai les résultats qui s'affichent dans la combobox.
J'ai lu énormément de chose concernant le sujet sur divers forums mais malgré plusieurs tentatives, je n'arrive pas à adapter ces solutions dans ce programme.

Je viens donc vers vous afin de vous demander des conseils pour au moins me débloquer.

Par avance merci à vous.

Cordialement