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 30 31 32 33 34 35 36 37 38
| Sub Modif_Prix()
Sheets("Calculator").Activate
'Compte le nombre de produits
Cells(12, 1).Activate
Selection.CurrentRegion.Select
Nbprod = Selection.Rows.Count - 1
'Boucle de la ligne 13 jusqu'à la fin de la liste
For I = 13 To 13 + Nbprod - 1
Sheets("Calculator").Activate
Cells(I, 1).Select
'Si la cellule prix contient une valeur
If Cells(I, 1).Value <> Empty Then
'Récupère cette valeur
Newprix = Cells(I, 1).Value
'selectionne la cellute de droite
Selection.Offset(0, 1).Activate
'Récupère la valeur de cette cellule (Produit)
Produit = ActiveCell.Text
'Active la feuille liste prix
Sheets("Dirty Data").Activate
Cells(1, 16).Select
'Tant que la cellule contenant la valeur du produit n'est pas recontrée
While ActiveCell.Value <> Produit And ActiveCell.Value <> Empty
'se déplace vers le bas
Selection.Offset(1, 0).Activate
'quand la cellule recontrée = Produit
If ActiveCell.Value = Produit Then
'décale vers la droite et inscrit le nouveau prix
Selection.Offset(0, 1).Activate
ActiveCell.Value = Newprix
End If
Wend
End If
Next
End Sub |
Partager