code d'erreur qui plante excel

Version imprimable

bonjour à tous,

un code d'erreur survient et plante completement le programme
ce code apparais très régulièrement sur ce programme

Citation:

erreur d'éxécution '-214747848(80010108)'
erreur automation
l'objet invoqué s'est déconnecté de ses clients

si quelqu'un connait la source de problème !
voici le shema de mon code

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
Private Sub UserForm_Initialize()
' activez les sources de menu déroulant
c12ref1.RowSource = "tarif!a1:n" & Range("tarif!a65536").End(xlUp).Row
c12ref2.RowSource = "tarif!a1:n" & Range("tarif!a65536").End(xlUp).Row
c12ref3.RowSource = "tarif!a1:n" & Range("tarif!a65536").End(xlUp).Row
c12ref4.RowSource = "tarif!a1:n" & Range("tarif!a65536").End(xlUp).Row
c12ref5.RowSource = "tarif!a1:n" & Range("tarif!a65536").End(xlUp).Row
c12ref6.RowSource = "tarif!a1:n" & Range("tarif!a65536").End(xlUp).Row
c12ref7.RowSource = "tarif!a1:n" & Range("tarif!a65536").End(xlUp).Row
c12ref8.RowSource = "tarif!a1:n" & Range("tarif!a65536").End(xlUp).Row
c12ref9.RowSource = "tarif!a1:n" & Range("tarif!a65536").End(xlUp).Row
 
End Sub
 
 
                         'EVENEMENT POUR CHAQUE SELECTION DE REF
Private Sub c12ref1_Change()
Dim rech1 As String, c12prix1 As Double
Sheets("tarif").Activate
rech1 = c12ref1.Value
Cells.Find(What:=rech1, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
ActiveCell.Offset(0, 1).Select
c12prix1 = ActiveCell.Value
c12p1.Value = c12prix1
Range("e2").Select
ActiveCell.Value = c12prix1
ActiveCell.Offset(0, 1).Select
End Sub
 
                          ' evenement sur changement quantité
Private Sub q1_Change()
Dim total1 As Double
Range("d2").Select
ActiveCell.Value = c12ref1
Range("f2").Select
ActiveCell.Value = q1
Range("g2").Select
total1 = ActiveCell.Value
t1.Value = total1
End Sub

08/07/2009, 11h42
ucfoutu

Bonjour,

Quand, déjà, comptes-tu commencer à te référer directement aux cellules à modifier, plutôt que de les sélectionner systématiquement pour en modifier la valeur ?

C'est une recommandation récurrente !
08/07/2009, 12h42
bosk1000

la je ne suis pas ton raisonnement
pourquoi me référer aux cellules à modifier ?
au départ du programme, ces cellules sont vides
08/07/2009, 15h28
ucfoutu

Oui ?
Et alors ?
Une cellule vide dans laquelle tu écris est une cellule modifiée ...
Sélectionner la cellule par un select, puis agir sur la cellule sélectionnée (ActiveCell) est, sinon aberrant, du moins superfétatoire et gourmand pour rien ...
Attribue directement la nouvelle valeur à la cellule (inutile de la sélectionner !)
08/07/2009, 16h30
bosk1000

OK!

je comprend ce que tu veux dire.
donc si je veux attribuer la valeur de c12prix1 à la cellule e2, quelle code dois-je appliquer ?
08/07/2009, 16h35
casavba
Bonjour,
Code:

1 2 Range("e2").Select ActiveCell.Value = c12prix1
Ce que veut dire Ucfoutu, peut-être résumé comme suit :

Code:

Range("e2").Value = c12prix1

Comme ça, tu attribues directement la valeur à la cellule E2 sans la selectionnée.

Dit autrement :
cette ligne de code n'a pas lieu d'exister

Code:

Range("e2").Select
08/07/2009, 16h45
bosk1000

donc je n'ai pas besoins de selectionner la cellule pour la remplir
ok merci

je vais appliquer cette technique dorenavant