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