Discussion :

[crashfire]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

Bonsoir,

Il faudrait quelques précisions :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("K1") = A1

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

En ce qui concerne :

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 ?

[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

[Invité]

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

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

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 :

c'est quoi A1 ?

[LeForestier]

Bonjour,
1 : où tu veux "insérer" les données ?
2 : c'est quoi A1
A+

[crashfire]

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