B
bigjer
Guest
Bonjour,
Je suis en train d'effectuer une petite application de gestion de stock pour mon boulot et j'ai un soucis avec ce code :
Private Sub ESREFL1_Change()
If Evaluate("=SumProduct((COLREF =""" & ESREFL1.Value & """) * 1)") > 0 Then
Sheets("Feuil1").Select
Application.Goto Reference:="COLREF"
Range("C2").Activate
Selection.Find(What:=ESREFL1.Value, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ESDESL1.Value = ActiveCell.Offset(0, -1).Value
Else: ESDESL1.Value = "NON REF"
End If
End Sub
ce code me permet de trouver la désignation rattachée à la reférence
ce code fonctionne très bien mais la fonction sommeprod ne respecte pas la casse
si quelqu'un peut m'aider svp
voici un fichier exemple de ce que je dit.
Je suis en train d'effectuer une petite application de gestion de stock pour mon boulot et j'ai un soucis avec ce code :
Private Sub ESREFL1_Change()
If Evaluate("=SumProduct((COLREF =""" & ESREFL1.Value & """) * 1)") > 0 Then
Sheets("Feuil1").Select
Application.Goto Reference:="COLREF"
Range("C2").Activate
Selection.Find(What:=ESREFL1.Value, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ESDESL1.Value = ActiveCell.Offset(0, -1).Value
Else: ESDESL1.Value = "NON REF"
End If
End Sub
ce code me permet de trouver la désignation rattachée à la reférence
ce code fonctionne très bien mais la fonction sommeprod ne respecte pas la casse
si quelqu'un peut m'aider svp
voici un fichier exemple de ce que je dit.