Ecrire une condition If sur une ligne ?

Bonjour à tous !

Dans mon code j'ai la condition suivante :

        If Sheets("PROFIL").Range("G4") = 1 Then
            Controls("S043ET") = True
        Else
            Controls("S043ET") = False
        End If

Est-il possible de l'écrire sur une ligne d'une manière ou d'une autre ?

J'ai tenté mais VBA ne semble pas pouvoir.

Merci =)

Bonjour Micka, bonjour le forum,

Sans le fichier qui va bien, j'ai du mal à cerner ton problème...

Salut Micka,
Salut ThauThème,

en supposant que S043ET soit un contrôle acceptant ces valeurs TRUE, FALSE...

Me.S043ET.Value = IIf(Sheets("PROFIL").Range("G4") = 1, True, False)

A+

Bonjour Micka_Plays, Thauthème , le forum,

Un essai à tout hasard....

Controls("S043ET") = IIf(Sheets("PROFIL").Range("G4") = 1, True, False)

[Edit] : bonjour curulis57 , comme quoi le hasard fait parfois bien les choses,

Cordialement,

Hello xorsankukai, curulis57 et ThauThème,

C'est exactement ce qu'il mE fallait.

Je ne connaissais pas la fonction IIf, je vais aller voir la doc.

Merci beaucoup. =)

Salut Xorsankukai !
Il n'y avait pas beaucoup d'autres choix possibles, en effet!

A+