dreamalain
XLDnaute Junior
Bonjour à tous
Ce code fonctionne très bien, il filtre toutes les lignes de mon classeur qui contiennent "A compter" dans les colonnes A
Le problème est qui si aucunes lignes ne contiennent ce texte, excel plante ...
Avez vous une solution ?
Merci pour vos suggestions
Ce code fonctionne très bien, il filtre toutes les lignes de mon classeur qui contiennent "A compter" dans les colonnes A
Le problème est qui si aucunes lignes ne contiennent ce texte, excel plante ...
Avez vous une solution ?
VB:
Private Sub CommandButton1_Click()
Dim C As Range
ActiveSheet.Range("a2:J300").Clear
For S = 2 To Sheets.Count
For Lig = 2 To Sheets(S).[A65000].End(xlUp).Row
If UCase(Sheets(S).Cells(Lig, "A")) = "A COMPTER" Then
Sheets(S).Cells(Lig, 1).Resize(, 9).Copy [A65000].End(xlUp).Offset(1, 1)
[A65000].End(xlUp).Offset(1) = Sheets(S).Name
End If
Next Lig
Next S
Merci pour vos suggestions