Discussion :

[419]

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

[419]

yo,
pourtant j'ai cherché hein !!

Et bien je viens de trouver.

Code :

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

If activesheet is worksheets("cadre") then ....

Merci à ... moi

[geogeo70]

bonsoir

c'est vrai mais je pense que "

Code :

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

 if Activesheet.name="cadre" then

...." fonctionne, chez moi en tout cas.
Tu avais oublié le s de Worksheet(s) dans ton code.
salutations

geogeo

[mercatog]

ou

Code :

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

if activesheet.name="cadre" then

[419]

Re,
merci pour vos réponses.

Chez moi (on le voit dans mon début de code),

Code :

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

 if activeSheet.name="cadre" then..

ne fonctionne pas du tout.
C'est ce qui me paraissait logique au début de faire mais ca ne marchait pas.

Si quelqu'un sait l'expliquer, ca soulagerait ma curiosité mais sinon ma version if ... is .. then.. fait l'affaire.
Merci

[Pierre Fauconnier]

Salut.

Attention qu'en VBA, il y a par défaut une différenciation de la casse sur les valeurs de type chaines de caractère. Peut-être devrais-tu essayer

Code :

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

if activesheet.name = "Cadre" then

[419]

Bonjour Pierre Fauconnier,
merci pour ton retour.

En effet celà solutionne mon problème initial.
Le nom de ma feuille est en majuscule..

Voilà, ma curiosité est satisfaite.
VBA peut tellement tout faire que je ne pensais pas que la casse sur une feuille soit déterminante. A tel point que je n'ai jamais tenté de vérifier ..

[Pierre Fauconnier]

Cela dit, note que si tu renommes ta feuille, tu devras modifier ta macro. Si ta feuille "Cadre" est pérenne dans le classeur, tu aurais intérêt à préciser son CodeName et à utiliser celui-ci dans la macro

[419]

Je suis plus libre...

Merci Pierre.
Judicieuse remarque.

[Pierre Fauconnier]

Pas de quoi. Bonne soirée

[eriiic]

Bonjour,

au début tu avais écris

Code :

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

If activesheet.name = worksheet("cadre") Then

et non

Code :

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

If activesheet.name = "cadre" Then

C'est surtout pour ça que ça ne fonctionnait pas. Soit tu compares les sheets, soit tu compares les names. Le mélange ça rend saoul...
eric

[419]

Merci Eric,
n'ayant pas tilté sur la casse du nom de la feuille, j'avais essayé pas mal de variantes (sauf la casse....).

Avec quelques abérations sans doute pour les pros