Discussion :

[Alqualonde]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[Alqualonde]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[madydiallo]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[casefayere]

Bonsoir,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

macellule = Application.InputBox("un message")