Bouton basscule

Bonjour.

Je n'y connais rien mais je suis sûr que mon problème paraitra insignifiant pour qui a l'habitude : Avec un togglebutton je voudrais alternativement effacer un champ puis y écrire un X. La première action fonctionne mais pas la seconde. Voilà où j'en suis :

Private Sub TestButton_Click()

If TestButton.Value = Thrue Then

Range("A50:C50").Select

Selection.ClearContents

Range("F45").Select

ElseIf TestButton.Value = False Then

Range("A50:C50").Select

ActiveCell.FormulaR1C1 = "X"

Range("F45").Select

End If

End Sub

Merci d'avance à celui ou celle qui pourra me dépanner.

Bonsoir,

dans le code VRAI s'écrit TRUE : T R U E.

Vous avez un h en trop du coup la condition est toujours fausse... Non ?

@ bientôt

LouReeD

bonjour

peux être comme ca

Private Sub TestButton_Click()
    If TestButton.Value = True Then
        Range("A50:C50").ClearContents
        Range("F45").Select
    ElseIf TestButton.Value = False Then
        Range("A50:C50").Value = "X"
        Range("F45").Select
    End If
End Sub

A+

Maurice