Erreur code Formulaire de saisie excel

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Erreur code Formulaire de saisie excel

verballes

Bonjour,

Je viens là car je deviens fou, à force de me ronger les ongles je vais attaquer les phalanges et c'est pas bon... :pt1cable:

Alors à mon boulot, j'ai une base de données sous excel des dossiers des agents du personnel archivés. A chaque transferts de dossiers de personnels aux archives, je recois la liste des personnes de ce transfert que je renseigne dans mon tableau.

Dans mon tableau j'ai 11 colonnes :
- ID (que je n'utilise pas mais qui peut-être utile),
- Civilité qui se limite à M., Mme et rien quand j'ai un doute (ça arrive si si),
- Nom d'usage
- Nom de naissance (si besoin)
- Prénom
- Date ou année de naissance
- Année de dossier (facultatif)
- Statut de l'agent (toujours le même en fait)
- Titulaire ou vacataire
- Localisation (numéro de l'armoire ou de la boite)
- Observations

Les infos que j'ai systématiquement lorsqu'on m'envoie une liste c'est civilité, nom d'usage, nom de naissance si besoin, date ou année de naissance, statut, titulaire ou vacataire et localisation.

Ce tableau a jusqu'à maintenant été rempli par ordre alphabétique sauf que les listes qu'on m'envoie ne le sont pas, bref du coup c'est mega relou à remplir, surtout que c'est une tâche secondaire à mes missions.

Bon, vu qu'imaginer un code pour moissonner les données des tableaux (listes) qu'on m'envoie pour le renseigner mon tableau principal est trop compliqué (mais serait tellement pratique). Je me suis lancé dans la création d'un formulaire qui m'évitera au moins de jouer de la roulette.

J'ai donc créé le formulaire suivant :

Avec le code suivant :

Code :

Option Explicit
Dim Ws As Worksheet
'Pour le formulaire
Private Sub UserForm1_Initialize()
Dim J As Long
Dim I As Integer
Set Ws = Sheets("BIATSS" ) 'Correspond au nom de votre onglet dans le fichier Excel
With Me.ComboBox1
For J = 2 To Ws.Range("A" & Rows.Count).End(xlUp).Row
.AddItem Ws.Range("A" & J)
Next J
End With
For I = 1 To 9
Me.Controls("TextBox" & I).Visible = True
Next I
End Sub
'Pour la liste déroulante ID
Private Sub ComboBox1_AfterUpdate()
Dim Ligne As Long
Dim I As Integer
If Me.ComboBox1.ListIndex = -1 Then Exit Sub
Ligne = Me.ComboBox1.ListIndex + 2
ComboBox2 = Ws.Cells(Ligne, "B" )
For I = 1 To 9
Me.Controls("TextBox" & I) = Ws.Cells(Ligne, I + 2)
Next I
End Sub
'Pour la liste Rechercher par nom
Private Sub ComboBox3_Change()
Dim Ligne As Long
Dim I As Integer
If Me.ComboBox3.ListIndex = -1 Then Exit Sub
Ligne = Me.ComboBox1.ListIndex + 2
For I = 1 To 9
Me.Controls("TextBox" & I) = Ws.Cells(Ligne, I + 1)
Next I
End Sub
'Pour le bouton Nouveau contact
Private Sub CommandButton1_Click()
Dim L As Integer
If MsgBox("Confirmez-vous cette nouvelle entrée ?", vbYesNo, "Demande de confirmation d'ajout" ) = vbYes Then
L = Sheets("BIATSS" ).Range("a65536" ).End(xlUp).Row + 1 'Pour placer le nouvel enregistrement à la première ligne de tableau non vide
Range("A" & L).Value = ComboBox1
Range("B" & L).Value = ComboBox2
Range("C" & L).Value = ComboBox3
Range("C" & L).Value = TextBox1
Range("D" & L).Value = TextBox2
Range("E" & L).Value = TextBox3
Range("F" & L).Value = TextBox4
Range("G" & L).Value = TextBox5
Range("H" & L).Value = TextBox6
Range("I" & L).Value = TextBox7
Range("J" & L).Value = TextBox8
Range("K" & L).Value = TextBox9
End If
End Sub
'Pour le bouton Modifier
Private Sub CommandButton3_Click()
Dim Ligne As Long
Dim I As Integer
If MsgBox("Confirmez-vous la modification de ce contact ?", vbYesNo, "Demande de confirmation de modification" ) = vbYes Then
If Me.ComboBox1.ListIndex = -1 Then Exit Sub
Ligne = Me.ComboBox1.ListIndex + 3
Ws.Cells(Ligne, "C" ) = ComboBox3
For I = 1 To 9
If Me.Controls("TextBox" & I).Visible = True Then
Ws.Cells(Ligne, I + 2) = Me.Controls("TextBox" & I)
End If
Next I
End If
End Sub
'Pour le bouton Quitter
Private Sub CommandButton2_Click()
Unload Me
End Sub

Remarques et problèmes :

- Lorsque je fais f5, je n'ai aucun résultat...je n'arrive pas à lier mon formulaire à ma feuille excel.
- Aussi, j'aimerais bien avoir ma liste déroulante de recherche fonctionnelle (j'avais réussi tout au début jusqu'à ce que je complexifie mon formulaire).
- J'aimerai aussi mais je crois que c'est impossible ou trop compliqué, que les nouvelles entrées soient classées directement par ordre alpha (mais apparemment il est plus logique de demander ensuite à excel de trier les données)
- Une même personne peut apparaître plusieurs fois car selon son statut de vacataire ou titulaire, on lui ouvre plusieurs dossiers donc plusieurs localisations
- Parfois il y a des homonymes, donc le classement alpha se fait par le prénom
- L'utilisation d'un optionbutton pour la civilité aurait été plus adéquate mais je crois que c'est pas si évident

alors si une ou plusieurs bonnes âmes y voient claires, merci de m'aider :jap: :jap: :jap: :jap: :jap: :jap: :jap: :jap:

Message édité par verballes le 03-06-2019 à 16:22:48

---------------
Papa (softcore gamer en dormance, I'll be back, stronger) : https://www.youtube.com/user/verballes

Publicité

MaybeEijOrNot

but someone at least

Bonjour,

Pour lier le formulaire, as-tu essayé d'utiliser la close "With" afin de définir quel objet tu essayes de modifier ?

Code :

With myWb.mySheet
...
End with

Pour le deuxième point, je n'ai aucune idée de ce qu'est une liste déroulante de recherche fonctionnelle.

Pour le troisième point, cela dépend de la taille de ton fichier, tu peux toujours te faire une fonction qui recherche la bonne position à laquelle il faut insérer une ligne mais si le fichier est gros ça risque de mouliner.

Pour le quatrième point, quelle est l'attente ?

Pour le cinquième point, Excel propose le tri sur plusieurs niveaux, à voir si tu utilises la fonction de tri Excel ou si tu tries par une fonction perso l'insertion de données.

Pour le dernier point, j'avoue ne pas avoir fait de formulaire depuis bien longtemps mais ce ne doit pas être difficile d'ajouter une liste déroulante ou des boutons radio pour la civilité.

---------------
C'est en écrivant n'importe quoi qu'on devient n'importe qui.

verballes

Citation :

Pour lier le formulaire, as-tu essayé d'utiliser la close "With" afin de définir quel objet tu essayes de modifier ?

j'utilise

Code :

Set Ws = Sheets("BIATSS" )

BIATSS étant le nom de l'onglet que j'utilise

2 -

Citation :

Pour le deuxième point, je n'ai aucune idée de ce qu'est une liste déroulante de recherche fonctionnelle.

Je me suis mal exprimé, je pensais fonctionnel dans le sens "qui fonctionne", j'avais suivi un premier tuto avec une liste déroulante de recherche par nom qui fonctionnait, mais le userform ne prenait pas en compte toutes les spécificités de mon tableau. J'ai voulu essayé un autre tuto et la il ne prend plus rien en compte lol :sweat:

3 -

Citation :

Pour le troisième point, cela dépend de la taille de ton fichier, tu peux toujours te faire une fonction qui recherche la bonne position à laquelle il faut insérer une ligne mais si le fichier est gros ça risque de mouliner.

Bah j'ai 10516 lignes pour le moment

4 -

Citation :

Pour le quatrième point, quelle est l'attente ?

En fait y'a pas vraiment d'attente, juste que j'avais vu dans certains cas qu'il existait des codes pour éviter les doublons...ouais bon ce 4eme point n'a pas lieu d'être en effet.

5 -

Citation :

Pour le cinquième point, Excel propose le tri sur plusieurs niveaux, à voir si tu utilises la fonction de tri Excel ou si tu tries par une fonction perso l'insertion de données.

Va falloir que je me penche là-dessus, excel est complet mais je pense que tout faire à partir du formulaire n'est pas si évident finalement.

6 -

Citation :

Pour le dernier point, j'avoue ne pas avoir fait de formulaire depuis bien longtemps mais ce ne doit pas être difficile d'ajouter une liste déroulante ou des boutons radio pour la civilité.

Pour le moment je vais garder le système de liste déroulante, et si je maitrise un peu plus je modifierais le code.

En fait je suis assez frustré car j'avais suivi un cours assez complet sur openclassroom sur la gestion de bdd en avec MySQL, c'était assez compliqué mais les possibilités étaient multiples !!!! J'avais l'impression qu'on pouvait tout faire ! Là je rame et ça m'agace ! :fou:

En tout cas merci d'avoir pris le temps de répondre à mon post

Message édité par verballes le 04-06-2019 à 08:27:48

---------------
Papa (softcore gamer en dormance, I'll be back, stronger) : https://www.youtube.com/user/verballes

MaybeEijOrNot

but someone at least

Ben Excel ce n'est pas une bdd, rien à voir avec MySQL.

Pour revenir au premier point, tu ne fais jamais référence à ta feuille dans le code suivant :

Code :

Dim L As Integer
If MsgBox("Confirmez-vous cette nouvelle entrée ?", vbYesNo, "Demande de confirmation d'ajout" ) = vbYes Then
L = Sheets("BIATSS" ).Range("a65536" ).End(xlUp).Row + 1 'Pour placer le nouvel enregistrement à la première ligne de tableau non vide
Range("A" & L).Value = ComboBox1
Range("B" & L).Value = ComboBox2
Range("C" & L).Value = ComboBox3
Range("C" & L).Value = TextBox1
Range("D" & L).Value = TextBox2
Range("E" & L).Value = TextBox3
Range("F" & L).Value = TextBox4
Range("G" & L).Value = TextBox5
Range("H" & L).Value = TextBox6
Range("I" & L).Value = TextBox7
Range("J" & L).Value = TextBox8
Range("K" & L).Value = TextBox9
End If
End Sub

La seule chose que tu fais c'est déterminer une variable de type Integer en faisant référence à ta feuille. Définir une variable ne suffit pas pour faire référence à un objet, il faut indiquer que tu veux faire référence à cet objet.
Essaye :

Code :

Dim L As Integer
If MsgBox("Confirmez-vous cette nouvelle entrée ?", vbYesNo, "Demande de confirmation d'ajout" ) = vbYes Then
With ws
L = .Range("a65536" ).End(xlUp).Row + 1 'Pour placer le nouvel enregistrement à la première ligne de tableau non vide
.Range("A" & L).Value = ComboBox1
.Range("B" & L).Value = ComboBox2
.Range("C" & L).Value = ComboBox3
.Range("C" & L).Value = TextBox1
.Range("D" & L).Value = TextBox2
.Range("E" & L).Value = TextBox3
.Range("F" & L).Value = TextBox4
.Range("G" & L).Value = TextBox5
.Range("H" & L).Value = TextBox6
.Range("I" & L).Value = TextBox7
.Range("J" & L).Value = TextBox8
.Range("K" & L).Value = TextBox9
End With
End If
End Sub

---------------
C'est en écrivant n'importe quoi qu'on devient n'importe qui.

verballes

Finalement j'ai changé mon fusil d'épaule en faisant plus simple.

Via un tuto sur youtube, j'ai créé dans un de mes onglets un formulaire sans passer directement par vba ni par le code, j'utilise aussi quelques listes dans un onglet spécifique.

J'ai créé ensuite une macro en enregistrant la manipulation pour une entrée puis j'ai inséré un bouton "nouvelle entrée" qui me permet de lancer la macro après chaque saisie.
Ensuite, dans mon onglet de données, toutes mes nouvelles entrées se placent en haut du tableau à partir de la ligne 2. Alors là j'ai enregistré également une macro avec un bouton en mettant en place un système de tri, d'abord par la colonne "nom" puis quand il y'a des homonymes, par la colonne "prénom".

Aussi, j'ai ajouté quand même un peu de code dans mon formulaire pour qu'il me mettre en majuscule auto dans certaines cellules lorsque je saisie.

Message édité par verballes le 07-06-2019 à 09:34:58

---------------
Papa (softcore gamer en dormance, I'll be back, stronger) : https://www.youtube.com/user/verballes

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Erreur code Formulaire de saisie excel

Sujets relatifs
Erreur de segmentation inconnue	Erreur "DDERR_SURFACELOST"
Script qui récupère données fichier Excel vers document	Export mails dans Excel
VBA - Erreur Exécution	ontroler la présence d'un fichier par son extension et sortir en code
Code fichier php est-il accessible depuis un navigateur ? Protection ?	Besoin d'aide pour trouver mon erreur
.bat erreur [ ( était inattendu. ]	Code alpha numérique automatique
Plus de sujets relatifs à : Erreur code Formulaire de saisie excel

Page générée en 0.069 secondes