VB petit code

[Gengiskhan]

Bonjour le Forum,

Je vous sollicite parce que je souhaiterai appliquer ce code sur une plage, cellule par cellule...

Range("AP194").GoalSeek Goal:=0, ChangingCell:=Range("AM194")

genre :

for each cell.. cell+n

ou n = 1 a 55 en partant de AM194

Merki pour votre aide !

 

[CHALET53]

Re : VB petit code

Bonjour,

Je vois bien qu'il s'agit de la fonction Solveur (ou valeur cible)
Un petit fichier pourrait compléter l'explication

a+

 

[Gengiskhan]

Re : VB petit code

Merci Chatel,

ci-joint

 

[CHALET53]

Re : VB petit code

re,

Tu veux quoi exactement : que la colonne j soit égal à 0 en faisant varier la colonne I
Si c'est le cas, la colonne I (valeur à modifier) sera toujours égal à la colonne H

 

[CHALET53]

Re : VB petit code

Si c'est cela, deux solutions :

Sub Essai()

'
For i = 14 To 20
'

Range("J" & i).GoalSeek Goal:=0, ChangingCell:=Range("I" & i)
Next i
End Sub

ou

Sub test()
Set plage = Range("J14:J20")
For Each cell In plage
a = cell.Address
Range(a).GoalSeek Goal:=0, ChangingCell:=Range(a).Offset(0, -1)
Next
End Sub

 

[Gengiskhan]

Re : VB petit code

Bonjour Chalet53,

Désolé je te répond un peu tard. Ta solution répond tout à fait à ma question. Merci beaucoup.

Et encore désolé si ma question était mal formulée.

A+