Discussion :

[spico45]

Bonjour à tous,

Désolé si l'intitulé n'est pas clair mais je pense que tout cela ira mieux avec mon explication.

J'ai une liste de produits (pour commencer 2), dans chaque produit j'ai différente pièce et pour chaque pièce j'ai différent temps de préparation et d'usinage. J'ai créé une liste avec mes produits et je vais faire la même chose pour mes pièces. Ce que je souhaiterais faire, c'est dès que j'ai sélectionné mon produit et ma pièce, il m'affiche le nombre d'heures de préparation et le nombre d'heures d'usinage. Par la suite, ces données me serviront à faire une courbe de prix de revient.
Je vous propose de prendre ma pièce jointe afin de mieux comprendre.

Merci beaucoup, j'espère avoir été assez clair dans mes explications.


Je tenais à présicer que j'ai essayer avec l'enregistreur pour après modifier le texte mais ca n'a rien donné

Bonne journée

[mercatog]

Je me suis permis d'ouvrir la pièce jointe!
une proposition

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 Worksheet_Change(ByVal Target As Range)
Dim typ As String
Dim c As Range
If Target.Address = "$H$2" Then
 
typ = "Total " & Range("H3").Value
    On Error Resume Next
    Set c = Sheets("" & Target.Value & "").Columns("A:A").Find(typ, LookIn:=xlValues, lookat:=xlWhole)
    If Not c Is Nothing Then
        Range("H6").Value = c.Offset(0, 2).Value
        Range("H7").Value = c.Offset(0, 3).Value
    Else
        MsgBox "designation inéxistante"
    End If
    Set c = Nothing
End If
End Sub

[spico45]

Merci et à mon avis tu as bien fait d'ouvrir la pièce jointe.

J'ai un problème avec le code, dans la démarche je dois d'abord sélectionnez le type produits, puis le type de pcs hors si je ne rentre pas le type de pcs avant il me dit "désignation inexistante"

[mercatog]

Edit2: Plutôt ceci

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
Private Sub Worksheet_Change(ByVal Target As Range)
Dim typ As String
Dim c As Range
If Not Intersect(Target, Range("H2:H3")) Is Nothing Then
If Range("H2").Value <> "" And Range("H3").Value <> "" Then
typ = "Total " & Range("H3").Value
 
    On Error Resume Next
    Set c = Sheets("" & Range("H2").Value & "").Columns("A:A").Find(typ, LookIn:=xlValues, lookat:=xlWhole)
    If Not c Is Nothing Then
        Range("H6").Value = c.Offset(0, 2).Value
        Range("H7").Value = c.Offset(0, 3).Value
    Else
        Range("H6:H7").ClearContents
        MsgBox "designation inéxistante"
    End If
    Set c = Nothing
End If
End If
End Sub

[spico45]

Merci beaucoup,

je vais maintenant essayer de le comprendre mais normalement il fonctionne nickel