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