interference entre 2 procedures de 2 fichiers ouverts

Re : interference entre 2 procedures de 2 fichiers ouverts

bonjour Isabelle

avec ce code j'ai le résultat que tu souhaites

Private Sub TextBox1_Change()
'bebere
Dim Plage As Range, C As Range
Dim Recherche As String
Dim Ligne As integer

Appliction.screenUpdating=False
ListBox1.Clear

Recherche = TextBox1.Value

With Sheets("Articles")
Ligne = .Range("B65536").End(xlUp).Row
Set Plage = .Range("B2:B" & Ligne)
End With

For Each C In Plage
If Left(C, Len(Recherche)) = Recherche Then
With ListBox1
.AddItem C
End With
End If
Next C
Appliction.screenUpdating=true
End Sub

à bientôt

Re : interference entre 2 procedures de 2 fichiers ouverts

bonjour Bebere, le forum,

merci bcp, c'est nickel

isabelle