Discussion :

[pierre hebrant]

Bonjour,

Voici un fichier d'encodage de rapports d'inspection. J'ai créé un formulaire pour l'encodage. Ce formulaire fonctionne.

Cependant, si les données encodées viennent bien se mettre "au bon endroit", elles ne font pas partie du tableau créé pour les accueillir.

Cela me pose en problème car les tableaux croisés dynamiques et les schémas associés que je compte créer ne seront pas mis à jour automatiquement si mes données sont hors tableau.

Il me faut donc déclarer un tableau quelque part et prévoir comment le remplir...

Comment modifier mon code ?

Merci!

[mercatog]

Mets le code d'insertion des nouvelles valeurs au lieu d'un fichier

[pierre hebrant]

Voici:

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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
 
'*********************************
'Aller à la base de données NE
'*********************************
 
Private Sub Btnbase_Click()
Sheets("Niveau_etudes").Activate
Range("A2").Select
 
End Sub
 
'**************************************
'Mettre les cmaps à vide
'**************************************
 
Private Sub BtnEffacer_Click()
Cboas = ""
Cboattentioncp = ""
Cbocp = ""
Cboecole = ""
Cboforme = ""
Cboinsp = ""
Cboinitcp = ""
Cboniveau = ""
Cbosecteur = ""
Cbofase = ""
Txtdateenvoicp = ""
Txtadresseecole = ""
Txtadresseinsp = ""
Txtautre = ""
Txtcodepostecole = ""
Txtcodepostinsp = ""
Txtdateentreeservice = ""
Txtdateenvoicp = ""
Txtdaterapport = ""
Txtdiffere = ""
Txtdirecteur = ""
Txtdisci = ""
Txtevaluation = ""
Txtinitinsp = ""
Txtmailecole = ""
Txtmailinsp = ""
Txtmention = ""
Txtnumordre = ""
Txtpointattention = ""
Txtprof = ""
Txtremarque = ""
Txtrespectprog = ""
Txttelecole = ""
Txttelinsp = ""
Txtadequationact = ""
Txtcommuneinsp = ""
Txtcommuneecole = ""
 
End Sub
 
'**********************************
'Fermer le formulaire
'**********************************
 
Private Sub Btnfermer_Click()
Unload Me
End Sub
 
Private Sub Cbocp_Change()
 
End Sub
 
 
'****************************************************************
'Activation du bouton "Ajout" dès que la combo fase est remplie
'***************************************************************
Private Sub Cbofase_Change()
If Cbofase <> "" Then
    Btnajout.Enabled = True 'Activer le bouton
Else
    Btnajout.Enabled = False 'Laisser le bouton désactivé
End If
End Sub
 
'*****************************************************************
'Ajout dans la base de données des informations encodées
'*****************************************************************
 
Private Sub Btnajout_Click()
Sheets("Niveau_etudes").Activate
Range("A1").Select
Selection.End(xlDown).Select 'on se positionne sur la dernière ligne non vide
Selection.Offset(1, 0).Select 'on se décale d'une ligne vers le bas
ActiveCell = Cboenvoi.Value
ActiveCell.Offset(0, 1).Value = Cboas
ActiveCell.Offset(0, 2).Value = Txtnumordre
ActiveCell.Offset(0, 3).Value = Txtdaterapport
ActiveCell.Offset(0, 4).Value = Txtmention
ActiveCell.Offset(0, 5).Value = Txtrespectprog
ActiveCell.Offset(0, 6).Value = Txtadequationact
ActiveCell.Offset(0, 7).Value = Txtevaluation
ActiveCell.Offset(0, 8).Value = Txtdiffere
ActiveCell.Offset(0, 9).Value = Txtautre
ActiveCell.Offset(0, 10).Value = Cboattentioncp
ActiveCell.Offset(0, 12).Value = Txtdateentreeservice
ActiveCell.Offset(0, 13).Value = Txtdateenvoicp
ActiveCell.Offset(0, 14).Value = Cboinsp
ActiveCell.Offset(0, 15).Value = Txtinitinsp
ActiveCell.Offset(0, 16).Value = Txtadresseinsp
ActiveCell.Offset(0, 17).Value = Txtcodepostinsp
ActiveCell.Offset(0, 18).Value = Txtcommuneinsp
ActiveCell.Offset(0, 19).Value = Txttelinsp
ActiveCell.Offset(0, 19).Value = Txtmailinsp
ActiveCell.Offset(0, 21).Value = Txtdisci
ActiveCell.Offset(0, 22).Value = Cboniveau
ActiveCell.Offset(0, 23).Value = Cboforme
ActiveCell.Offset(0, 24).Value = Cbosecteur
ActiveCell.Offset(0, 25).Value = Cbocp
ActiveCell.Offset(0, 26).Value = Cboinitcp
ActiveCell.Offset(0, 27).Value = Cboecole
ActiveCell.Offset(0, 28).Value = Txtadresseecole
ActiveCell.Offset(0, 29).Value = Txtcodepostecole
ActiveCell.Offset(0, 30).Value = Txtcommuneecole
ActiveCell.Offset(0, 31).Value = Cbofase
ActiveCell.Offset(0, 32).Value = Txtdirecteur
ActiveCell.Offset(0, 34).Value = Txttelecole
ActiveCell.Offset(0, 35).Value = Txtmailecole
ActiveCell.Offset(0, 36).Value = Txtprof
ActiveCell.Offset(0, 39).Value = Txtpointattention
ActiveCell.Offset(0, 40).Value = Txtremarque
 
MsgBox "vos données ont bien été enregistrées dans la base de données NE", vbOKOnly + vbInformation, "confirmation"
 
End Sub
 
 
 
 
Private Sub Lblprogr_Click()
 
End Sub
 
Private Sub UserForm_Click()
 
End Sub

[riaolle]

Bonjour,

C'est étrange, car j'ai testé de mon côté avec un code tout simple :

Code :

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

1
2
3
4
Sub test()
    Range("A4").Value = "toto"
    Range("B4").Value = "titi"
End Sub

Sachant que j'ai créé auparavant un tableau sur la plage A1:B3. Tu as bien un tableau et pas seulement une plage de cellules ? A la min ça marche bien ?

Un conseil sur ton code : évite au maximum Select/Selection/Activate ....
Plutôt que

Code :

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

1
2
3
4
5
6
7
8
9
Sheets("Niveau_etudes").Activate
 Range("A1").Select
 Selection.End(xlDown).Select 'on se positionne sur la dernière ligne non vide
 Selection.Offset(1, 0).Select 'on se décale d'une ligne vers le bas
 ActiveCell = Cboenvoi.Value
 ActiveCell.Offset(0, 1).Value = Cboas
 ActiveCell.Offset(0, 2).Value = Txtnumordre
 ActiveCell.Offset(0, 3).Value = Txtdaterapport
    [...]

Ecrit :

Code :

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

1
2
3
4
5
6
7
8
9
Dim cel As Range
Set cel = Sheets("Niveau_etudes").Range("A1").End(xlDown).Offset(1, 0)
With cel
    .Value = Cboenvoi.Value
    .Offset(0, 1).Value = Cboas
    .Offset(0, 2).Value = Txtnumordre
    .Offset(0, 3).Value = Txtdaterapport
  [...]
End With

Je ne sais pas ce que tu veux faire avec tes TCD après, mais par défaut les valeurs des controles sont des chaînes de caractères. Si tu veux que ce qoit des nombres/dates etc... il faudra les convertir.

[mercatog]

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
Private Sub Btnajout_Click()
Dim Tbl As ListObject

Set Tbl = Worksheets("Niveau_etudes").ListObjects(1)
With Tbl
   If .DataBodyRange(1, 1) <> "" Then .ListRows.Add

    With .DataBodyRange(.DataBodyRange.Rows.Count, 1)
        .Value = Cboenvoi.Value
        .Offset(0, 1).Value = Cboas
        .Offset(0, 2).Value = Txtnumordre
'....
    End With
End With
Set Tbl=Nothing
MsgBox "vos données ont bien été enregistrées dans la base de données NE", vbOKOnly + vbInformation, "confirmation"
End Sub[/S]

[pierre hebrant]

Bonjour,

Merci de votre réponse.

j'ai un message d'erreur:

erreur d'exécution '91' Variable objet ou variable de bloc With non définie.

l'expression If .DataBodyRange(1, 1) <> "" Then est surlignée en jaune.

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
46
47
48
49
50
51
Private Sub Btnajout_Click()
Dim Tbl As ListObject
 
Set Tbl = Worksheets("Niveau_etudes").ListObjects(1)
With Tbl
   If .DataBodyRange(1, 1) <> "" Then .ListRows.Add
 
    With .DataBodyRange(.DataBodyRange.Rows.Count, 1)
        .Value = Cboenvoi.Value
        .Offset(0, 1).Value = Cboas
        .Offset(0, 2).Value = Txtnumordre
        .Offset(0, 3).Value = Txtdaterapport
        .Offset(0, 4).Value = Txtmention
        .Offset(0, 5).Value = Txtrespectprog
        .Offset(0, 6).Value = Txtadequationact
        .Offset(0, 7).Value = Txtevaluation
        .Offset(0, 8).Value = Txtdiffere
        .Offset(0, 9).Value = Txtautre
        .Offset(0, 10).Value = Cboattentioncp
        .Offset(0, 12).Value = Txtdateentreeservice
        .Offset(0, 13).Value = Txtdateenvoicp
        .Offset(0, 14).Value = Cboinsp
        .Offset(0, 15).Value = Txtinitinsp
        .Offset(0, 16).Value = Txtadresseinsp
        .Offset(0, 17).Value = Txtcodepostinsp
        .Offset(0, 18).Value = Txtcommuneinsp
        .Offset(0, 19).Value = Txttelinsp
        .Offset(0, 19).Value = Txtmailinsp
        .Offset(0, 21).Value = Txtdisci
        .Offset(0, 22).Value = Cboniveau
        .Offset(0, 23).Value = Cboforme
        .Offset(0, 24).Value = Cbosecteur
        .Offset(0, 25).Value = Cbocp
        .Offset(0, 26).Value = Cboinitcp
        .Offset(0, 27).Value = Cboecole
        .Offset(0, 28).Value = Txtadresseecole
        .Offset(0, 29).Value = Txtcodepostecole
        .Offset(0, 30).Value = Txtcommuneecole
        .Offset(0, 31).Value = Cbofase
        .Offset(0, 32).Value = Txtdirecteur
        .Offset(0, 34).Value = Txttelecole
        .Offset(0, 35).Value = Txtmailecole
        .Offset(0, 36).Value = Txtprof
        .Offset(0, 39).Value = Txtpointattention
        .Offset(0, 40).Value = Txtremarque
 
 End With
End With
Set Tbl = Nothing
MsgBox "vos données ont bien été enregistrées dans la base de données NE", vbOKOnly + vbInformation, "confirmation"
End Sub

[mercatog]

Désolé je n'avais pas testé

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
Dim Tbl As ListObject
Dim Rng As Range
 
Set Tbl = Worksheets("Niveau_etudes").ListObjects(1)
With Tbl
    If .ListRows.Count > 0 Then
        .ListRows.Add
        Set Rng = .DataBodyRange(.ListRows.Count, 1)
    Else
        Set Rng = .Range(2, 1)
    End If
 
    With Rng
        .Value = Cboenvoi
        .Offset(0, 1).Value = Cboas
        '..........
    End With
End With
Set Rng = Nothing
Set Tbl = Nothing
MsgBox "vos données ont bien été enregistrées dans la base de données NE", vbOKOnly + vbInformation, "confirmation"