debidebo67
XLDnaute Nouveau
Bonjour,
Je souhaite mettre à jour uniquement les prix unitaire de la colonne D par leur ETAT dans la colonne E non validés (validé = "OK")
Ma macro fonctionne mais ne tien pas compte de la condition !?! elle me recopie tous les prix même ceux qui sont validés
Tableau :
colonne A ------colonne B------- colonne C------colonne D-------colonne E
Code-----------Désignation------Qté------------Prix unitaire------ETAT ("OK" = validé; "" non validé)
Pourriez-vous m'aider ?
Sub testRECHERCHVetRECHRCHE()
On Error Resume Next
Dim ETAT As Variant
For Each ETAT In Sheets("Dtest").Range("E20:E25")
If ETAT.Text = "" Then
For Each P In Worksheets("Dtest").Range("D2025")
P.Value = Application.WorksheetFunction.VLookup(P.Offset(0, -3).Value, Worksheets("ptest").Range("A4:B8"), 2)
Next
End If
Next
End Sub
Merci à ceux qui auront quelques instant à me consacrer.
Je souhaite mettre à jour uniquement les prix unitaire de la colonne D par leur ETAT dans la colonne E non validés (validé = "OK")
Ma macro fonctionne mais ne tien pas compte de la condition !?! elle me recopie tous les prix même ceux qui sont validés
Tableau :
colonne A ------colonne B------- colonne C------colonne D-------colonne E
Code-----------Désignation------Qté------------Prix unitaire------ETAT ("OK" = validé; "" non validé)
Pourriez-vous m'aider ?
Sub testRECHERCHVetRECHRCHE()
On Error Resume Next
Dim ETAT As Variant
For Each ETAT In Sheets("Dtest").Range("E20:E25")
If ETAT.Text = "" Then
For Each P In Worksheets("Dtest").Range("D2025")
P.Value = Application.WorksheetFunction.VLookup(P.Offset(0, -3).Value, Worksheets("ptest").Range("A4:B8"), 2)
Next
End If
Next
End Sub
Merci à ceux qui auront quelques instant à me consacrer.