Appliquer une formule à un tableau entier de valeur

prot158 · 22 Septembre 2011

Bonjour, je viens de m'inscrire sur le forum après avoir cherché des heures une solution à un problème tout simple:

J'ai un tableau de valeurs numériques que je veux transformer de la manière suivante:

Il faudrait modifier toutes les cellules (ex: "1234" ) en une formule de la forme "=1234x1,05"
Tout ce que j'ai trouvé c'est le collage spécial avec l'option multiplication j'obtiens des valeurs numériques et non pas des formules.

Une idée?
Merci d'avance

tototiti2008 · 22 Septembre 2011

Re : Appliquer une formule à un tableau entier de valeur

Bonjour prot158,

Bienvenue sur XLD

Sans macro, je ne vois pas

Sélectionne les cellules en question et applique la macro

Code:

Sub Formul()
Dim Cellule As Range
For Each Cellule In Selection
If IsNumeric(Cellule.Value) And Cellule.Value <> "" Then
Cellule.FormulaLocal = "=" & Cellule.Value & "*1,05"
End If
Next
End Sub

prot158 · 22 Septembre 2011

Re : Appliquer une formule à un tableau entier de valeur

J'espérais une solution plus simple mais au moins ça fonctionne. Un grand merci 🙂

Appliquer une formule à un tableau entier de valeur

prot158

Guest

tototiti2008

XLDnaute Barbatruc

prot158

Guest

Discussions similaires

Appliquer une formule à un tableau entier de valeur

prot158

Guest

tototiti2008

XLDnaute Barbatruc

prot158

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency