Teste sur textbox en cascade

GClaire · 13 Avril 2020

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.

VB:

    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 · 17 Juillet 2020

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 · 17 Juillet 2020

Hello.

Merci pour ta réponse.

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

Merci.

G'Claire

Teste sur textbox en cascade

GClaire

XLDnaute Occasionnel

Pièces jointes

_Thierry

XLDnaute Barbatruc

GClaire

XLDnaute Occasionnel

Discussions similaires