Bonsoir à tous,
J'ai adapté un code devant extraire des lignes dont la cellule en colonne F est restée vide et les copier dans mon récapitulatif.
J'ai comme problème que les lignes sont recopiées à plusieurs reprise. Une fois me suffirait et je n'arrive pas à extraire les lignes en question.
Voici le code :
Je vous remercie d'avance de bien vouloir me corriger.
J'ai adapté un code devant extraire des lignes dont la cellule en colonne F est restée vide et les copier dans mon récapitulatif.
J'ai comme problème que les lignes sont recopiées à plusieurs reprise. Une fois me suffirait et je n'arrive pas à extraire les lignes en question.
Voici le code :
Code:
Sub Récap_par_ville()
'Récupérer les lignes où la colonne F est sans X pour toutes les feuilles du classeur nommées Lyon 07 10, Marseille 07 10...)
Dim I As Integer
Dim Cel As Range
Dim DerLig As Integer
Dim C As String
For Each C In Worksheets("F2:F100")
If Not Application.Function.CountIf = " " Then
C.EntireRow.Hidden = True
'Définit la page contenant le récap et la première ligne vide
DerLig = Sheets("récap 2010").Range("A65536").End(xlUp).Row + 1
For I = 1 To Sheets.Count
If IsNumeric(Right(Sheets(I).Name, 1)) Then
With Sheets(I)
For Each Cel In .Range("A2:E" & .Range("A65536").End(xlUp).Row)
If IsDate(Cel.Value) Then
'copie NOM
Sheets("récap 2010").Range("A" & DerLig) = .Range("A" & Cel.Row)
'copie N° FACTURE
Sheets("récap 2010").Range("B" & DerLig) = .Range("B" & Cel.Row)
'copie DATE FACTURE
Sheets("récap 2010").Range("C" & DerLig) = .Range("C" & Cel.Row)
'copie DATE DE REGLEMENT
Sheets("récap 2010").Range("D" & DerLig) = .Range("D" & Cel.Row)
'copie SAV
Sheets("récap 2010").Range("E" & DerLig) = .Range("E" & Cel.Row)
DerLig = DerLig + 1 'copier en dessous de la dernière ligne renseignée
End If
Next C
End With
End If
Next Cel
End With
End If
Next I
End Sub
Je vous remercie d'avance de bien vouloir me corriger.