Bonjour le Forum
Autre post...autre souci
Je me sert d'une TxtBox dans un Userform que je valide par un bouton pour faire une recherche sur un reseau.(Sheets("AS10_ET"))
C'est lors du filtre qu'il y'a un petit hic...
Petit probleme pour récupérer mes infos du réseau (B000*...) sur ma feuille de base (Planning) il faut que je valide 2 fois mon de validation de TextBox...?
Comme si il s'arretait en milieu de macro et en fin de macro si je demande à revenir sur ma Planning il indique une erreur. ?
D'avance MERCI pour votre aide car je ne comprend plus trop bien.
A+
Autre post...autre souci
Je me sert d'une TxtBox dans un Userform que je valide par un bouton pour faire une recherche sur un reseau.(Sheets("AS10_ET"))
C'est lors du filtre qu'il y'a un petit hic...
Code:
Private Sub CommandButton10_Click()
Sheets("AS10_ET").Range("B1").Value = TextBox1.Value
Call Copie_filtre
End Sub
*******************************
Private Sub Copie_filtre()
Dim NbLg As Long
Dim LgDer As Long
Dim Critere As String
Sheets("AS10_ET").Select
Critere = "B000*"
With Sheets("AS10_ET")
LgDer = .Range("E65536").End(xlUp).Row
.Range("E1:E" & LgDer).AutoFilter Field:=5, Criteria1:=Critere
NbLg = WorksheetFunction.Subtotal(3, Columns(1)) - 1
If NbLg > 0 Then
.Range("E4:E" & LgDer).SpecialCells(xlCellTypeVisible).Copy Sheets("AS10_ET").Range("H1")
End If
.ShowAllData
End With
Range("B1").Activate
Sheets("Planning").Select
End SubComme si il s'arretait en milieu de macro et en fin de macro si je demande à revenir sur ma Planning il indique une erreur. ?
D'avance MERCI pour votre aide car je ne comprend plus trop bien.
A+