Macro boucle valeur cible sur plusieurs colonnes

Bonjour à tous

je suis totalement novice dans les macros, je ne sais que faire un enregistrement simple :-(

Mon problème : J'utilise la fonction valeur cible très souvent cellule par cellule, mais aujourd'hui je dois étendre cette fonction sur environs 3000 lignes...

Je dois calculer une "marge I" (cellule AL4) à 50% en modifiant la donnée de la cellule AK4, et ce pour les lignes 5,6,7,8...jusqu'à 3000 :-/

La marge sera toujours de 50% dans la colonne AL, seules les données de la colonnes AK sont ajustables.

J'utilise habituellement la valeur cible car c'est pour des demandes ponctuelles mais dans ce cas je crois avoir lu dans le forum qu'il faudrait crée une VBA Boucle pour étendre le calcule valeur cible?

Désolée je ne suis pas très avancée en VBA...

Merci d'avance pour votre aide...

Bien cordialement

Bonjour

Ok mais votre fichier ne contient pas de formule en AK...

Votre fichier n'est pas compréhensible.

Cordialement

Désolée je viens de modifier le fichier, la cellule AK5 ne comprend pas de formule seules les colonnes de marges en ont. (AL5 AM5 et AN5)

J'ai enregistré la macro effectuée :

Sub test()
'
' test Macro'

'
Application.CutCopyMode = False
Application.CutCopyMode = False
Application.CutCopyMode = False
Range("AL5").GoalSeek Goal:=0.5, ChangingCell:=Range("AK5")
End Sub

Merci par avance j'espère vous donner les bonnes infos..

Cordialement

Ah là il y a les formules... c'est mieux

Vous pouvez tester ce code

Sub test()
'Dan
Dim Cel As Range, Plage As Range
Dim Valeur As Single

Set Plage = Range("AL4:AL" & Range("AL" & Rows.Count).End(xlUp).Row)
Valeur = 100 * Range("AL1") / 100

For Each Cel In Plage
    Range("AL" & Cel.Row).GoalSeek Goal:=Valeur, ChangingCell:=Range("AK" & Cel.Row)
Next Cel

End Sub

Cordialement

Bonjour

merci ça marche parfaitement :-)

Bien cordialement encore merci