Bonsoir,

J'ai macro isé la fonction valeur cible sur un classeur contenant deux feuilles ("cadre" et "non cadre") mais les cellules à modifier de chaque feuille ne sont pas au même endroit donc je me suis dit que la fonction
if (je suis sur telle feuille)
then (j'applique la valeur cible aux cellules xxx)
else (j'applique la valeur cible aux cellules yy)

pourrait marcher. Mais je n'arrive à écrire correctement la condition en prenant la feuille "cadre" comme élément vrai/faux.


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
Sub ValeurCible()
'If ActiveSheet.Name = "cadre" Then
If activesheet.name = worksheet("cadre") Then
Range("e89").GoalSeek Goal:=Range("g89").Value, ChangingCell:=Range("g26")
Else
Range("e95").GoalSeek Goal:=Range("g95").Value, ChangingCell:=Range("g26")
End If
End Sub