Discussion :

[daduck]

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


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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[fring]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[daduck]

Merci beaucoup pour votre aide, bonne continuation !