Discussion :

[bosk1000]

bonjour à tous,

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

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 :

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
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

[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 !

[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

[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 !)

[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 ?

[casavba]

Bonjour,

Code :

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

1
2
Range("e2").Select
ActiveCell.Value = c12prix1

Ce que veut dire Ucfoutu, peut-être résumé comme suit :

Code :

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

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 :

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

Range("e2").Select