Valeur Cible avec valeur a atteindre variable

[netquark]

Bonjour Tous le monde,

SVP je veux savoir comment modifié ma macro de telle façon à avoir la valeur atteindre comme variable.
voila le code :
Sub Cible()
'
' Cible Macro
' Macro enregistrée le 24/02/2009 par iharchine
'
' Touche de raccourci du clavier: Ctrl+w
'
ActiveCell.GoalSeek Goal:=3000, ChangingCell:=ActiveCell.Offset(0, -45). _
Range("A1")
End Sub

Merci d'avance

 

[Compte Supprimé 979]

Re : Valeur Cible avec valeur a atteindre variable

Bonsoir Netquark et bienvenue sur ce forum

Pour mettre ta valeur en variable, rien de plus simple (quand on connait VBA )

Sub Cible()
Dim MaVal
'
' Cible Macro
' Macro enregistrée le 24/02/2009 par iharchine
'
MaVal = "X"
Do While Not IsNumeric(MaVal)
  MaVal = InputBox("Valeur à atteindre ?", "UNE VALEUR...")
  If MaVal = "" Then Exit Do
Loop

' Touche de raccourci du clavier: Ctrl+w
'
ActiveCell.GoalSeek Goal:=[COLOR=blue][B]MaVal[/B][/COLOR], ChangingCell:=ActiveCell.Offset(0, -45). _
Range("A1")
End Sub

Voili, voilà

 

[netquark]

Re : Valeur Cible avec valeur a atteindre variable

Merci beaucoup BrunoM45,
ça marche Bien ,

Je veux te demander autre chose, au lieu que je rentre le montant à chaque fois est ce que je peux, mettre l'adresse d'une cellule ou déjà les montants sont fixés.

Cad une fois que j'exécute la macros, il prend la valeur à atteindre d'une cellule automatiquement.

Merci infiniment Mr BrunoM45.
Bonne journée

 

[Compte Supprimé 979]

Re : Valeur Cible avec valeur a atteindre variable

Re,

Sub Cible()
Dim MaVal
'
' Cible Macro
' Macro enregistrée le 24/02/2009 par iharchine
'
' Récupérer la valeur dans la cellule A1
MaVal = Sheets("NomDeMaFeuille").Range("A1").value

' Touche de raccourci du clavier: Ctrl+w
'
ActiveCell.GoalSeek Goal:=[COLOR=blue][B]MaVal[/B][/COLOR], ChangingCell:=ActiveCell.Offset(0, -45). _
Range("A1")
End Sub

A+

 

[netquark]

Re : Valeur Cible avec valeur a atteindre variable

merci BrunoM45, ça marche