bonjour a tous

hier j'avais un code erreur "erreur d'éxécution '-214747848(80010108)'"

sur les conseils donnée sur le forum, j'ai référé directement aux cellules à modifier

mais maintenant je trois bug aléatoire :
soit j'ai le message d'erreur ci-dessus
soit j'ai : excel ne peut pas terminer cette tâche avec les ressources disponibles. Sélectionnez moins de données ou fermez des applications
soit il plante en ne répondant plus


le code maintenant est


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
 
Private Sub UserForm_Initialize()
' activez les sources de menu déroulant
Sheets("tarif").Select
Range("d1:g9").Select
Selection.ClearContents
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
 
End Sub
                         'EVENEMENT POUR CHAQUE SELECTION DE REF
Private Sub c12ref1_Change()
Dim rech1 As String
Sheets("tarif").Activate
rech1 = c12ref1.Value
Range("e1").Value = rech1
Cells.Find(What:=rech1, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
Range("f1").Value = ActiveCell.Offset(0, 1).Value
c12p1.Value = ActiveCell.Offset(0, 1).Value
 
  ' evenement sur changement quantité
Private Sub q1_Change()
Range("g1").Value = Val(q1)
t1.Value = Range("h1").Value
End Sub
j'ai 4 lignes de box comportant : reférence-prix unitaire-quantité-total