Teste sur textbox en cascade

[GClaire]

Bonjour le forum.

Je me prend la tête sur un truc qui je pense est tout bête.

Je voudrais faire un test sur plusieur TextBox pour envoyer une valeur a une cellule.

Pour le moment j'ai bidouillé cela qui fonctionne, mais je pense qu'il y'a a une solution plus appropriée.

    If Me.TextBox20.Value + Me.TextBox21.Value + Me.TextBox22.Value + Me.TextBox23.Value + Me.TextBox24.Value + Me.TextBox25.Value + Me.TextBox26.Value + Me.TextBox27.Value >= "1" Then
    Feuille.Range("B" & Maligne).Value = "1"
    Else
    Feuille.Range("B" & Maligne).Value = ""
    End If

Si vous avez une idée.

Merci.

Bonne soirée, G'Claire

 

[_Thierry]

Bonjour @GClaire , le Forum

Non pour autant que je me souvienne de cette discussion, je revois ce dont j'avais contribué, et je me souviens de ton dernier post avec ton fichier final puisque je suis "abonné" à ce fil.

Pourquoi il te manque des choses ?

Bien à toi
@+Thierry

 

[GClaire]

Hello.

Merci pour ta réponse.

Oui, mais pas très important. Les messages pour redimensionner les UserForm automatiquement.

Merci.

G'Claire