Microsoft 365 SI cellule autre feuille est égal à oui

[juju91]

Bonjour à tous,
J'ai encore besoin de votre aide.

Je souhaiterais que si la cellule "E18" de la feuil1 est égale à "oui" la macro 1 est lancé.
je pensais avoir trouvé une solution ( voir ci-dessous) mais cela ne fonctionne pas.
If Worksheets("Feuil1").Range("E18") = "OUI" Then
Macro 1
Else
Macro2
End If

pourriez-vous m'aiguiller .
par avance merci .

Cdt

 

[wDog66]

Bonjour,

Et vous l'avez mis ou ce code dans quel évènement 🤔

A+

 

[job75]

Bonjour,

Bien sûr il faut faire attention à la casse et écrire :

If UCase(Worksheets("Feuil1").Range("E18")) = "OUI" Then

A+

 

[juju91]

Bonjour,

Désolé de revenir vers vous mais je n'arrive pas a adapter votre suggestion.
Mon code ci-dessous ne fonctionne pas, pourriez-vous m'aider SVP.

Je souhaiterai que lorsque l'opérateur lance la macro "AAAAA_IMPRESSION_Bar_sucré_fruits_coupé"
et si la valeur de la cellule B20 dans l'onglet "PARAMETRAGE" est égal à "OUI"
L'onglet ''Bar sucré fruits coupé'' s'affiche et soit imprimer.
Si non rien ne passe..

Sub AAAAA_IMPRESSION_Bar_sucré_fruits_coupé()
If UCase(Worksheets("PARAMETRAGE").Range("B20")) = "OUI" Then
Worksheets("Bar sucré fruits coupé").Visible = True
Worksheets("Bar sucré fruits coupé").Select
Sheets("Bar sucré fruits coupé").PrintOut From:=1, To:=1, Copies:=1

End If

Encore désolé de vous relancer sur ce sujet.

Par avance un grand merci
Cdt

 

[job75]

Bonjour juju91, le forum,

Bah dans votre macro il manque juste End Sub à la fin.

Et il faut que la feuille à imprimer ne soit pas vide.

A+

 

[juju91]

Bonjour
Merci d'avoir regarder mon problème.
Dans ma macro il y a bien le end sub .
Malgré cela ça ne fonctionne toujours pas .
Je chercher depuis un bon moment pour trouver la solution en vain.
Je joints un fichier simplifié, au cas ou.
Pae avance merci de votre aide.

 

[job75]

Qu'arrive-t-il à vos lunettes ? PAMETRAGE!B20 ne contient pas le texte "OUI" mais la valeur logique VRAI (True en VBA), utilisez donc :

If Worksheets("PARAMETRAGE").Range("B20") Then

 

[juju91]

Bonjour

En effet je vais allé voir l'ophtalmologue..

Merci beaucoup, c'est mieux comme ça!!

Cdt