Discussion :

[bosk1000]

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

[Krovax]

Bonjour,
Quelque remarque sur

Code :

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

1
2
3
Cells.Find(What:=rech1, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate

Tu cherche sur toutes les ceulles de ta feuille.
Tu ne voudrais pas essayer de te limiter une plage ou se touvre les valeur
remplace cells par Range("Taplage") cela devrais consommer beacoup moins de ressource

Tu trouvera ici tout ce dont tu devrais avoir besoin pour trouver ta dernière ligne et dernière colonne de ta plage

Tu utilise after:= ActiveCell, quel est ta cellule active? tu es certain que c'est ce que tu veux?
Regarde l'aide sur la fonction find et enlève toutes les infos facultatives dont tu n'a pas besoin
Je pense même que

Code :

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

range("Taplage").Find(rech1)

devrais suffire

[ouskel'n'or]

Un autre pb que j'ai noté : Si rech1 n'est pas trouvé, ton code suivant s'exécute tout de même... c'est pas bien même s'il doit toujours être trouvé
Tu peux pallier cet inconvénient en suivant les conseils de Krovax adaptés comme suit

Code :

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

1
2
3
4
5
6
7
8
9
Dim Plage as range, c as range
     Set Plage = Worksheets("Feuil1").UsedRange
     With Plage
          Set c = .find(What:=rech1, LookAt:=xlPart)
          If not c is nothing then
                 Range("f1").Value = c.Offset(0, 1).Value
                 c12p1.Value = c.Offset(0, 1).Value
          endif
     end with

Tu dis