insertion de données via un Formulaire

Version imprimable

Bonjour,

J'ai des problèmes que je n'arrive pas à corriger sur deux formulaires

1- Le premier formulaire me permet de créer un nouvel employé.
Le problème est que je n'arrive pas à faire l'insertion de ces informations dans mon tableau, mais seulement sous mon tableau.

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
45
Private Sub CommandButton3_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Tableau agent")
 
'Trouve la premiere ligne vide
iRow = ws.Cells(Rows.Count, 1) _
  .End(xlUp).Offset(1, 0).Row
 
'check for a part number
If Trim(Me.TxtCtt.Value) = "" Then
  Me.TxtCtt.SetFocus
  MsgBox "Entrer un numéro de Matricule"
  Exit Sub
End If
 
'copy the data to the database
ws.Cells(iRow, 1).Value = Me.TxtCtt.Value
ws.Cells(iRow, 2).Value = Me.TxtCiv.Value
ws.Cells(iRow, 3).Value = Me.TxtNom.Value
ws.Cells(iRow, 4).Value = Me.TxtPrn.Value
ws.Cells(iRow, 5).Value = Me.TxtPerio.Value
ws.Cells(iRow, 6).Value = Me.TxtPaie.Value
ws.Cells(iRow, 7).Value = Me.TxtRjt.Value
ws.Cells(iRow, 8).Value = Me.TxtImp.Value
ws.Cells(iRow, 9).Value = Me.TxtTel.Value
ws.Cells(iRow, 10).Value = Me.TxtPrt.Value
ws.Cells(iRow, 11).Value = Me.TxtcPdt.Value
ws.Cells(iRow, 12).Value = Me.TxtPdt.Value
 
'clear the data
Me.TxtCtt.Value = ""
Me.TxtCiv.Value = ""
Me.TxtNom.Value = ""
Me.TxtPrn.Value = ""
Me.TxtPerio.Value = ""
Me.TxtPaie.Value = ""
Me.TxtRjt.Value = ""
Me.TxtImp.Value = ""
Me.TxtTel.Value = ""
Me.TxtPrt.Value = ""
Me.TxtcPdt.Value = ""
Me.TxtPdt.Value = ""
 
End Sub

2- Le deuxième devrais me permettre de mettre a jour les informations
le problème quand je rentre une donné un message d'erreur me dit:
"Erreur compilation, Variable non défini"

Code:

1
2
3
4
5
Private Sub CommandButton4_Click()
' Bouton VALIDER
' Stocker le nom dans la cellule K1 de la feuille courante
Range("K1") = A1
End Sub

Je suis débutant et j'ai beau analyser le code, cela dépasse mes petites compétences.

Par avance merci

16/01/2010, 19h30
Invité

Bonsoir,

Il faudrait quelques précisions :

Code:

Range("K1") = A1

Si "A1" correspond à l'adresse d'une cellule, il faut indiquer :

Code:

Range("K1") = Range("A1").Value

En ce qui concerne :

Citation:

Le problème est que je n'arrive pas à faire l'insertion de ces informations dans mon tableau, mais seulement sous mon tableau.

Je suppose que le nouvel enregistrement doit se faire sous le dernier enregistrement existant ?
16/01/2010, 19h34
LeForestier

Bonjour,
1 : où tu veux "insérer" les données ?
2 : c'est quoi A1
A+
16/01/2010, 19h40
crashfire

Je vias essaye d'etre plus precis sans vous et me perdre dans les explications lol.

Contexte
J'ai un tableau regroupant environs 200 employers
Dans se tableau on retrouve en autre:
Colonne A le numéro d'employer
Colonne B sa date d'embauche
Colonne C Fonction
Colonne D Nom et Prenom
Colonne E Site d'affectation
Colonne F Etat de son dossier
A Partir de la Colonne G, 6 Colonne de date en lien avec differente formation

Je sais pas si sa change quelque chose mais la plus part de mes colonnes on des menu deroulant et des mise en forme conditionnel

Oui jacques_jean j'aimerais qu'il se fasse sous les autre donner et non sous mon tableau
16/01/2010, 20h02
Invité

Je ne sais pas si j'ai bien compris, mais je ne peux que supposer :

Citation:

Oui jacques_jean j'aimerais qu'il se fasse sous les autres données et non sous mon tableau

Citation:

Je sais pas si sa change quelque chose mais la plus part de mes colonnes on des menu deroulant et des mise en forme conditionnel

Soit que sous ce que vous appelez les données vous avez des cellules contenant autre chose, soit pour ce que vous appelez "menu déroulant" il s'agit en fait de "filtres" ?

Il reste aussi la question de LeForestier :

Citation:

c'est quoi A1 ?
16/01/2010, 20h07
crashfire

En faite mon tableau comporte
1- 240 noms d'employer
et
2- 467 lignes sans noms mais deja prete pour introuduire des noms (mise en forme conditionnel, liste deroulente de choix ...)

Dans tout ses colonnes il y a une fonction de tri je suppose que c'est ca qu'on appel des filtres?
16/01/2010, 20h10
crashfire

Citation:

Envoyé par LeForestier

2 : c'est quoi A1
A+

Avant que je modifie le code il y avait d'inscrit = lenom a la place de A1 c'est moi qui l'es inscrit pour voir si cela changais quelaue chose mais non le meme message d'erreur apparait
17/01/2010, 03h48
crashfire

Bon

Pour mon probleme 1 j'ai trouvé une solution
j'ai retiré le filtre

Reste mon probleme 2
17/01/2010, 12h53
Qwazerty

Salut
C'est claire comme du jus de chique ton histoire.
Si j'ai bien compris tu as un tableau avec tes employés, ton tableau comporte des MFC et des listes déroulante (via une validation).
Si c'est ça il est inutile de prévoir des emplacement vide dans ton tableau, il te suffit d'insérer une nouvelle ligne a chaque fois (pour voir le code d'insertion de ligne fait un enregistrement de macro) lorsque tu insert une ligne juste en dessous d'une ligne ayant des caractéristique particulière (MFC, Validation, format.....) ces caractéristiques sont reportées a la nouvelle ligne.

Pour ce qui est du code de ton bouton 4... comment veux tu qu'on puisse te donner une réponse si tu ne nous explique pas ce que ce bouton est sensé faire, je comprend qu'il met le nom de ton agent dans la cellule K1 .... mais ou récupères tu ce nom?

++
Qwaz
17/01/2010, 18h12
crashfire

Salut

J'aurais aimer vous envoyer mon fichier mais il est trop gros même en .ZIP

Donc je vais essayer d'être plus clair

Mon formulaire me permet de rechercher un agent et renseigner plusieurs txtbox, ca ca fonctionne.

Ensuite la ou je suis perdu
Lorsque je modifier une txtbox peut importe laquelle, je voudrais qu'il remplace les anciennes donner par les nouvelles (dans les bonnes cellules) lorsque que je click sur mon bouton 4.

Ex: Si dans ma recherche j'affiche l'agent toto et que je modifie toto pour titi je veux qu'il le remplace dans mon tableau une fois que je click sur le bouton 4
17/01/2010, 18h58
mercatog

Citation:

Ex: Si dans ma recherche j'affiche l'agent toto et que je modifie toto pour titi je veux qu'il le remplace dans mon tableau une fois que je click sur le bouton 4

Comment tu fais ta recherche de l'agent?
là tu récupère le n° de ligne, et le tour est joué.

ci joint sujet similaire au cas où la recherche par cascade de combobox: http://www.developpez.net/forums/d86...eurs-combobox/
17/01/2010, 19h21
crashfire

Citation:

Envoyé par mercatog

Comment tu fais ta recherche de l'agent?

Pour faire ma recherche je tape les premières lettre du nom de l'agent dans un combobox, une fois trouvé les txtbox se remplisse avec les informations de l'agent.

Tout ca fonctionne

Comment puis je vous aider à mieux comprendre ma difficulté?
Si je met tout le code de l'userforme cela pourrais vous être utile?
17/01/2010, 19h36
mercatog

Pour aider
mettre le code de recherche!
17/01/2010, 19h39
Qwazerty

Re
En faite ce qu'il faut garder en tete c'est qu'ici tu utilise Excel comme une base de données, hors dans une base de donnée et tu dois pouvoir retrouver sur quel enregistrement tu te trouves, pour ce faire du dois pouvoir identifier clairement sur quelle ligne tu travailles.
Dans le code de ta UserForm, a un moment donné, quand tu tapes le nom de l'agent dans le combo et que ce nom est trouvé dans la BD, tous les renseignements contenus dans la ligne sont reorganisé dans les textbox. C'est cette info, le numero de ligne, qu'il faut que tu conserve dans une variable Long a porté Module (appelons la CurseurLigne, qui sera donc accessible de n'importe quelle partie du code de ton UserForm).
Ensuite tu modifies des valeurs dans des textbox (ou autre), ensuite tu cliques sur ton bouton Mise a jour, a se moment la tu dois renseigné la ligne de la BD pointé par ta variable CurseurLigne avec toutes les valeur contenues dans les TextBox.
Attention quand même a donner -1 comme valeur a CurseurLigne dés qu'aucun enregistrement n'est pointé (et faire les teste sur cette valeur avant d'essayer de modifier un enregistrement), il faudrait peut être même gérer la propriété Enable de ton bouton afin de ne pas détruire involontairement les données contenues dans une ligne que tu aurais pointé plus tôt.
A++
Qwaz
17/01/2010, 20h10
crashfire

J'ai heberger mon fichier afin qu'il puisse peut etre vous aidez

Je suis novice en VBA donc je pense que je m'explique plutot mal

Encore merci pour votre aide

http://rapidechange.com/d/294105/Eg2...rsion%202).zip

Citation:

Envoyé par mercatog

Pour aider
mettre le code de recherche!

Je pense que c'est celui la

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub TxtCtt_Change()
 
With TxtCtt
If .ListIndex = -1 Then Exit Sub
lig = CLng(.List(.ListIndex, (.ColumnCount - 1)))
End With
With Sheets(Impaye)
Me.TxtCiv.Value = .Cells(lig, 2).Value
Me.TxtNom.Value = .Cells(lig, 1).Value
Me.TxtPrn.Value = .Cells(lig, 5).Value
Me.TxtPerio.Value = .Cells(lig, 3).Value
Me.TxtPaie.Value = .Cells(lig, 6).Value
Me.TxtRjt.Value = .Cells(lig, 7).Value
Me.TxtImp.Value = .Cells(lig, 8).Value
Me.TxtTel.Value = .Cells(lig, 9).Value
Me.TxtPrt.Value = .Cells(lig, 10).Value
Me.TxtcPdt.Value = .Cells(lig, 11).Value
Me.TxtPdt.Value = .Cells(lig, 12).Value
 
End With
End Sub

en début de module

Code:

Dim Lig as Long

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub TxtCtt_Change()
 
With TxtCtt
If .ListIndex = -1 Then Exit Sub
lig = CLng(.List(.ListIndex, (.ColumnCount - 1)))
End With
With Sheets(Impaye)
Me.TxtCiv.Value = .Cells(lig, 2).Value
Me.TxtNom.Value = .Cells(lig, 1).Value
...
 
End With
End Sub

sur boutton ValiderChangement

Code:

1
2
3
4
5
6
7
private sub ValiderChangement_click()
With Sheets(Impaye)
 .Cells(lig, 2).Value=Me.TxtCiv.Value
 .Cells(lig, 1).Value=Me.TxtNom.Value
...
End With
End Sub

17/01/2010, 20h57
crashfire

MERCI!!!!

Cela fonctionne
17/01/2010, 20h59
Qwazerty

Comme je l'ai dis au dessus attention avec Lig (CursorLigne)

1er temps: tu renseignes un nom qui se trouve dans la base, Lig prend comme valeur le numéro de cette ligne, tu effectues des modifs, pas de soucis.

2eme temps: tu modifies tes critères de recherche, malheureusement aucun enregistrement correspondant n'est trouvé, hors!, Lig contient bien une valeur, celle défini dans "1er temps" et si tu appuis de nouveau sur ton bouton Update... tu remplaces les valeur de la ligne pointé par Lig par n'importe quoi...

Pour éviter cela, tu as donc 2 solutions:
1-Tu gères le enable de ton bouton est interdit donc son utilisation si aucun enregistrement ne correspond a la recherche

2-Tu passe la valeur de Lig a -1 si aucun enregistrement ne correspond et au début du code de ton bouton UpDate, tu contrôles que Lig soit diffèrent de -1

++
Qwaz