Microsoft 365 Adapter mon code

Marvin57 · 18 Septembre 2023

Bonjour tout le monde,

est-ce que quelqu'un pourrait m'aider à modifier le code ci-dessous, afin qu'il prenne en compte les textbox définis.

VB:

Private Sub TextBox2_Change()
      If InStr(Me.TextBox2.Value, "BIO") Then
      Me.TextBox2.BackColor = RGB(255, 0, 0)
      End If
End Sub

Je voudrai que ce code prenne en compte les textbox suivants ;

Du textbox1 au textbox35
et
Du textbox46 au textbox80

Donc petite explication;

si les textbox ci-dessus contiennent le mot BIO les textbox devraient se colorier en rouge.

Merci d'avance à vous pour votre aide.
Marvin57

job75 · 18 Septembre 2023

Marvin57 à dit:
il mets bien les textbox qui comportent le mot BIO en rouge, mais garde également les textbox en rouge qui ne comportent plus le mot BIO.

Je n'ai fait qu'utiliser votre code mais si vous voulez aussi la couleur blanche quand "BIO" est absent :

VB:

Public WithEvents TB As MSForms.TextBox

Private Sub TB_Change()
    If InStr(TB, "BIO") Then TB.BackColor = RGB(255, 0, 0) Else TB.BackColor = RGB(255, 255, 255)
End Sub

patricktoulon · 18 Septembre 2023

si tu envoyais ton fichier
a chacune de tes questions on te donne une solution simple et ça part en vrille
donc
soit tu ne suit pas les consignes tu ne les comprends pas
soit tu a un soucis avec ton app excel
enfin si le truc de @job 75 te convient ça fera l'affaire

Mais j'aimerai quand même comprendre ou j'ai commis l'erreur .

et comment veux tu que je le sache ma boule cristal est fêlée

Marvin57 · 18 Septembre 2023

patricktoulon à dit:
si tu envoyais ton fichier
a chacune de tes questions on te donne une solution simple et ça part en vrille
donc
soit tu ne suit pas les consignes tu ne les comprends pas
soit tu a un soucis avec ton app excel
enfin si le truc de @job 75 te convient ça fera l'affaire

et comment veux tu que je le sache ma boule cristal est fêlée

Re,

alors j'ai juste posé des questions. Tout le monde n'est pas calé partout.
Ensuite j'ai essayé et j'ai fais exactement ce que vous m'avez indiqué et il m'affichait une erreur.
Envoyer mon fichier, pas possible, trop compliqué à démanteler.

Oui la solution de job75 convient tout a fait.

Mais comme indiqué tout à l'heure, je vous Remercie d'avoir passé du temps pour trouver une solution à ma demande.

Marvin57

Microsoft 365 Adapter mon code

Marvin57

XLDnaute Occasionnel

job75

patricktoulon

XLDnaute Barbatruc

Marvin57

XLDnaute Occasionnel

Discussions similaires