VBA fonction if .. then avec activesheet

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:

---

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

---

yo,
pourtant j'ai cherché hein !!

Et bien je viens de trouver.

Code:

---

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

---

Merci à ... moi:mouarf:

bonsoir

c'est vrai mais je pense que "

Code:

---

if Activesheet.name="cadre" then

---

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

geogeo

ou

Code:

---

if activesheet.name="cadre" then

---

Re,
merci pour vos réponses.

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

Code:

---

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

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:

---

if activesheet.name = "Cadre" then

---

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

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

Pièce jointe 201567

Je suis plus libre... :lol:

Merci Pierre.
Judicieuse remarque.

Pas de quoi. Bonne soirée ;)

Bonjour,

au début tu avais écris

Code:

---

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

---

et non

Code:

---

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

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 :P