[VBA-Excel] Automatiser une recherche de valeurs cibles

Bonjour,

je cherche à automatiser une recherche de valeurs cibles pour une plage de données, via une macro (ou par une formule mais là si on me trouve une formule pour faire ça sans macro je m'incline !!!)


Pour trouver la commande macro de Valeur Cible d'Excel, j'ai lancé une macro et voici ce que j'obtiens (j'ai travaillé sur des données en colonne L). Comment faire pour continuer sur la ligne de telle sorte à faire de même pour les colonnes M à BA par exemple ?

Merci d'avance pour votre aide :)

Code:

---

1 2 3 4 5 6 7

Sub ValeurCibleAuto() ' ' ValeurCibleAuto Macro   Range("L92").GoalSeek Goal:=0, ChangingCell:=Range("L122") Range("M122").Select End Sub

---

Edit : j'ai placé ce sujet dans le forum Excel, peut-être serait-il mieux dans le sous forum consacré au VBA Excel...

J'avance, j'avance !! J'ai réussi à faire ça pour une ligne donnée, et pour un nombre de colonnes calculée.

Maintenant, il ne reste plus qu'à trouver automatiquement la dernière colonne remplie et à pouvoir choisir (boite de dialogue ?) la ligne de début et la colonne de début (ou la première cellule sur laquelle on va faire l'opération) ainsi que la cellule à modifier.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub ValeurCibleAuto() ' ' ValeurCibleAuto Macro   Dim i As Integer   For i = 12 To 53 ActiveSheet.Cells(92, i).GoalSeek Goal:=0, ChangingCell:=ActiveSheet.Cells(122, i) Next i   End Sub

---

Bonjour,
je vous propose la solution suivante pour traiter le nombre de lignes voulu avec une valeur cible unique, dans mon cas, un taux de marge sur les ventes en fonction des frais sachant que les frais varient selon le prix de vente (le chien qui se mord la queue).
Ensuite, libre à vous d'ajouter un bouton pour l’exécution.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Sub Ebay() ' ' Ebay Macro ' Macro enregistrée le 19/04/2012 par Mady ' ' Cellule contenant la valeur cible Dim A A = Range("C5")   ' Cellules où je donne le numero de la 1ere et derniere ligne à traiter   Dim I As Integer For I = Range("C6") To Range("E6") ' Traitement - ici la cellule à modifier est dans la colonne L et le résultat en J ' Là aussi, on peut utiliser des variables   Range("L" + Trim(Str(I))).GoalSeek Goal:=A, ChangingCell:=Range("J" + Trim(Str(I)))   Next   End Sub

---

Bonsoir,

Citation:

---

....et à pouvoir choisir (boite de dialogue ?) ....

---

Code:

---

macellule = Application.InputBox("un message")

---