Problem avec le contrôle TextBox

Bonlour, j'ai un probleme avec le contrôle TextBox


voici le code de ma TextBox intitulée "feuillet1"

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub feuillet1_Change() Range("G11:H279").Select   If feuillet1.Value = ("fp1" Or "fp2") Then 'Si j'ai écrit fp1 ou fp2 dans ma TextBox Selection.Replace What:=Range("G11").Value, Replacement:=feuillet1.Value, LookAt:=xlPart, _ 'Je fait des remplacements SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False End If   End Sub

---

Le code fonctionne tres bien lorsqu'il n'y a que fp1 ou que fp2; je n'arrive pas a faire une "OU" entre fp1 et fp2.

SVP, aidez-moi !

Merci. JC.

Bonjour,

il n'est pas utile non plus d'utiliser "Select" qui ne fait qu'allourdir la procédure et transforme ton écran en stromboscope

Code:

---

1 2 3 4 5 6

Private Sub feuillet1_Change() If feuillet1 = "fp1" Or feuillet1 = "fp2" Then 'Si j'ai écrit fp1 ou fp2 dans ma TextBox Range("G11:H279").Replace What:=Range("G11").Value, Replacement:=feuillet1.Value, LookAt:=xlPart 'Je fait des remplacements End If   End Sub

---

Merci beaucoup pour votre aide, bonne continuation ! :D