Appliquer une formule à un tableau entier de valeur

[prot158]

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]

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

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]

Re : Appliquer une formule à un tableau entier de valeur

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