Ajouter un pourcentage à des valeurs

Bonjour Forum!

J'ai une liste de prix de matériaux de construction dans un classeur excel, mon fournisseur m'annonce que tout a augmenté de 10%.

Comment faire pour ajouter automatiquement 10% à tous les valeurs d'une plage au lieu de tout retaper!?

Merci et on garde le sourire!!!

Bonjour,

Première façon :

Tu insères une colonne à coté (droite ou gauche, ça a pas d'importance) dans cette colonne tu entre la valeur 1,1 (un virgule un) sur toutes les cellules en face de tes prix puis tu sélectionnes tes prix ensuite "Copier" et là, tu sélectionnes toutes tes valeurs 1,1 ceci fait, "Collage spécial" et dans la zone "Opération", tu choisis "Multiplication" et OK. Ceci fait, tu supprimes ta colonne avec les anciens prix

Seconde avec un code VBA dont tu dois adapter la plage, ici en colonne A :

Sub Test()

    Dim Plage As Range
    Dim Cel As Range

    'Défini la plage en colonne A sur la feuille active à partir de A1
    With ActiveSheet: Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)): End With
    For Each Cel In Plage: Cel.Value = Cel.Value * 1.1: Next Cel

End Sub

Bonjour,

Sur une copie de ton fichier pour le test.

Dans une cellule vide, saisir 1,1.

Copier cette cellule, sélectionner la plage de cellules à modifier.

Collage special, Coller = Valeurs et Opération = Multiplication.

Voir image ci-dessous :

Re,

Salut Jean-Eric

Dans une cellule vide, saisir 1,1.

Copier cette cellule, sélectionner la plage de cellules à modifier...

Bien mieux que ma façon

Re,

Bonjour These,

Avec VBA, il y a aussi SpecialCells pour cibler les constantes numériques.

Cdlt.

merci tout le monde!