Si

Bonjour.

Quand il y a un X dans B26, le mot PAYÉ apparaît.

Quand il n'y a pas de X, le mot disparaît

J'aimerais que le rectangle ait les même fonctions.

J'inclus ma feuille

Merci

Excusez-moi

Ce n'est pas B26 mais B28.

J'inclus la nouvelle feuille avec correction

Martin

Bonsoir jazz_guitare, le forum,

Un essai...(à coller dans le module de la feuille)...obtenu à partir de l'enregistreur de macro,

Private Sub Worksheet_Change(ByVal Target As Range)
   If Range("B28") Like "X" Then ActiveSheet.Shapes.Range(Array("Organigramme : Procédé 7")).Visible = True
   If Range("B28") Like "" Then ActiveSheet.Shapes.Range(Array("Organigramme : Procédé 7")).Visible = False
End Sub

Cordialement,

Bonjour, xorsankukai

En un poil plus court

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address(0, 0) <> "B28" Then Exit Sub
    ActiveSheet.Shapes("Organigramme : Procédé 7").Visible = Target.Value = "X"

End Sub

Re,

Salut Theze,

En un poil plus court

Un peu trop court , la macro plante...il manquerait pas un Range(Array.?...

Sur mon pc elle fonctionne mieux ainsi:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) <> "B28" Then Exit Sub
    ActiveSheet.Shapes.Range(Array("Organigramme : Procédé 7")).Visible = Target.Value = "X"
End Sub

Amitiés,

Bonjour.Merci de me répondre.

Je ne sais plus comment insérer la formule dans ma feuille. Je dois faire une macro?

Merci

Martin

Bizarre, chez moi ça fonctionne bien comme donné

Bonjour.Merci de me répondre.

Je ne sais plus comment insérer la formule dans ma feuille. Je dois faire une macro?

Merci

Martin

Re,

@Theze: juste pour info...

Spoiler

Spoiler

@ jazz_guitare: ALT+F11 pour ouvrir l'éditeur vba

Double-clic sur la feuille formulaire et colle le code à droite.

Enregistre sous l'extension.xlsm.

Bonne soirée,

Este ce que ça peut être dû à la différence de version d'Excel 2007<>2010 ?

Re,

Este ce que ça peut être dû à la différence de version d'Excel 2007<>2010 ?

Certainement, vu que ça fonctionne chez toi,

En tout cas, merci pour la simplification de code, j'en prend bonne note,

Bonne soirée,

Bonjour à tous.

J'ai essayé toutes les formules et il y en une qui indique un erreur et les autres le rectangle est toujours là.

Merci

Martin

Bonjour,

J'ai essayé toutes les formules et il y en une qui indique un erreur et les autres le rectangle est toujours là.

Tu obtiens quoi comme erreur ?

A tester:

Clique sur ton rectangle, renomme-le en haut à gauche (j'ai mis test dans le fichier joint).

Remplace dans le code "Organigramme : Procédé 7" par le nom que tu lui a donné ("test" dans l'exemple) et fait l'essai.

Ce fichier fonctionne chez moi , j'ai repris le code de Theze,

Cordialement,

Bonjour

J'ai pris votre feuille avec les modifications et ça ne fonctionne pas. Sur votre ordinateur ça fonctionne?

Quand vous enlever le X à B28 le rectangle disparaît?

Merci

Re,

Quand vous enlever le X à B28 le rectangle disparaît?

Si j'enlève X à B28, Payé disparait ainsi que le rectangle, si j'inscris X , Payé apparait ainsi que le rectangle....

Incompatibilité entre nos versions d'excel ?

Attention, dans le code il est stipulé X majuscule...

Cordialement,

Petite modif.prenant en compte X et x.....

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) <> "B28" Then Exit Sub
    ActiveSheet.Shapes("test").Visible = Target.Value = "X" Or Target.Value = "x"
End Sub

Cordialement,

C'est bizarre ça ne fonctionne pas encore. C'est seulement PAYÉ qui disparaît.

J'ai EXCEL 2016 français.

Martin

Re,

C'est bizarre ça ne fonctionne pas encore. C'est seulement PAYÉ qui disparaît.

Tu n'as aucun message d'erreur ? Pas de ligne surlignée en jaune dans le code ?

Désolé, mais là, je crains de ne peux plus pouvoir t'aider,

Si un utilisateur d'excel 2016 passe dans le coin......

Cordialement,

merci