Mise a jour d'une liste de prix

[lostheroe]

Bonjour,

J'ai un fichier excel que je souhaite mettre a jour en important les donnée d'un autre fichier nommé base prix.
Je souhaiterais l'otpimiser en comparant après l'importation des prix la colonne N constituant les anciens prix et la colonne M constituant les nouveaux prix importé.
Pour ce faire je souhaiterais qu'un message s'affiche avant l'importation des prix me demandant le pourcentage maxi de hausse. Par exemple 2% le logiciel ensuite compare les cellules de la colonne N avec ceux de la colonne M et les colorie en rouge ci il y a une différence de plus de 2%. A chaque fois qu'on lance la macro il faudrait qu'il remette les cellules en couleur normale.

 

[grisan29]

Re : Mise a jour d'une liste de prix

bonjour
voici ce que j'utilise pour augmenter le tarifs de mes articles de plomberie
Dim lastlig As Long
Application.ScreenUpdating = False
If Me.TextBox1 <> "" Then
With Sheets("plomberie")
.Cells(1, Columns.Count).Value = 1 + CDbl(Me.TextBox1) / 100 'ou 1 + CDbl(Me.TextBox1)/100 si on écrit dans le textbox en pourcentage1 + CDbl(Me.TextBox1)
.Cells(1, Columns.Count).Copy
lastlig = .Cells(Rows.Count, "A").End(xlUp).Row
.Range("K3:c" & lastlig).PasteSpecial Operation:=4 'xlPasteSpecialOperationMultiply
'...etc
End With
Application.CutCopyMode = False
Sheets("plomberie").Cells(1, Columns.Count).ClearContents
End If
Unload Me
cela se trouve sur un usf avec
un textbox qui recois la valeur a augmenté en pourcentage
un bouton qui comporte le code cidessus
un bouton annuler
je n'ai pas ouvert tes fichiers

cordialement
Pascal

 

[lostheroe]

Re : Mise a jour d'une liste de prix

En faite je ne souhaite pas appliquer un pourcentage sur ma liste étant donné qu'elle ce met a jour a partir de la base de prix.
Ce que je veux c'est que le logiciel compare l'ancien et le nouveau prix et me prévienne ci la différence de prix est supérieure a la valeur que j'aurais rentré.
Comme ça je vérifie qu'il y a pas eu de bug lors de la mise a jour des prix.