Microsoft 365 Adapter mon code

[Marvin57]

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.

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

 

[patricktoulon]

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]

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