Bouton modifiant une formule

Bonjour,

Je souhaite, si possible, créer un bouton qui basculerait entre 2 états.

Je m'explique: dans une première colonne, j'ai des noms et prénoms qui proviennent de ma 2ème feuille: donc via simplement "='noms des résidents'!A1" les noms s'affichent.

En cliquant sur un bouton, j'aimerais que la formule passe à "='noms des résidents'!B1", donc à la 2ème colonne. L'idée est de pouvoir afficher les noms (colonne A) ou de les masquer en affichant "résident 1, résident 2, etc" de la colonne B.

Je devrais pouvoir changer d'état à volonté si possible.

Merci d'avance pour votre aide

bonjour,

une proposition

Sub modiformule()
    f = Range("A1").Formula
    If InStr(f, "A1") > 0 Then
        f = Replace(f, "A1", "B1")
    Else
        f = Replace(f, "B1", "A1")
    End If
    Range("A1").Formula = f
End Sub

Bonjour,

Merci pour cet exemple. N'étant pas un habitué du codage, je ne sais pas comment appliquer ce code à plusieurs lignes.

Genre de A1:A50 ou de B1:B50.

Sinon c'est impeccable ! Encore merci.

Bonjour à tous

Une variante

Bye !

Bonjour,

Merci pour l'aide. Cependant je ne trouve pas le moyen de l'adapter a l'emplacement de mon tableau et surtout, comme vous faites pour déterminer le nombre de ligne.

Merci

Je ne vois pas comment t'aider davantage si tu ne joins pas ton fichier...

Bye !

Bonsoir,

J'ai enlevé toutes données dans un soucis de respect pour les résidents.

Encore merci

Nouvelle version.

Bye !

Bonjour,

Un tout grand merci. Cela fonctionne parfaitement !