Comment ajouter une valeure à une formule par macro

[amo]

Bonjour,

Comment fait on pour ajouter une valeure tel que 9 par exemple à une formule déjà en place dans une cellule sans altérer la formule??

Merci de vos lumières!

 

[jeanpierre]

Re : Comment ajouter une valeure à une formule par macro

Bonjour amo,

Tu saisies 9 dans une cellule (ou la valeur que tu veux), tu en fais Copier (en te repositionnant dessus) et tu selectionnes toutes les cellules que tu veux modifier et, là, Collage Spécial et tu coches Addition.

A te lire,

Bon 1er mai.

Jean-Pierre

Edit : Je viens seulement de voir que c'était par macro.... Je n'avais lu que ton texte et non le titre.

 

[amo]

Re : Comment ajouter une valeure à une formule par macro

Oui je voudrais le faire par macro, si c'est possible.😕

 

[amo]

Re : Comment ajouter une valeure à une formule par macro

J'ai un début de macro, mais ne fonctionne pas :

Range("O43") = y
y = Range("o100")
Range("o100").Select
Selection.Copy
Range("L42").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd, SkipBlanks:= _
False, Transpose:=False

 

[ninbihan]

Re : Comment ajouter une valeure à une formule par macro

Bonjour JP et Amo

Peut être ainsi :


Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlAdd, _
SkipBlanks:=False, Transpose:=False

Bonne journée,

Ninbihan

 

[roro69]

Re : Comment ajouter une valeure à une formule par macro

Bonjour à essayer:

Sub col()
Range("O100").Copy
Range("L42").PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd, SkipBlanks:= _
False, Transpose:=False

End Sub

 

[amo]

Re : Comment ajouter une valeure à une formule par macro

Merci Roro, JP, et ninbihan, cela fonctionne super bien!
Trop fort les gars, merci encore🙂.

 

[kikouyou]

Re : Comment ajouter une valeure à une formule par macro

Salut Amo,

moi je te propose le code suivant :


-----------------------------
Sub kikouyou()

'cell affecter a une cellule

Dim cell As Range

'titi est la constante à ajouter


titi = 5

Application.ScreenUpdating = False


For Each cell In Selection.Cells

A = ActiveCell.Value

ActiveCell.Offset(rowOffset:=0, columnOffset:=1).Activate

ActiveCell.Value = A + titi

ActiveCell.Offset(rowOffset:=0, columnOffset:=-1).Activate

ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate
Next cell


End Sub

---------------------------------

Attention il fonctionne si la sélection des cellules est faite verticalement.


Bonne journée