Bonjour. Je vous affiche mon code. En l'éxécutant j'ai une erreur compilation: qualificateur incorrect. Pourriez-vous m'aider s'il vous plait?
Merci
Sub test()
Dim j As Integer, i As Integer, lig As Integer, dlg As Integer, ws As Worksheet
With Sheets("Récap")
dlg = .Cells.Find("*", LookIn:=xlValues).Row + 1
If dlg = 1 Then dlg = 2
.Range("A2:C" & dlg).ClearContents
dlg = 0
End With
With Sheets("Source")
For j = .Range("H" & .Rows.Count).End(xlUp).Row To 2 Step -1
For Each ws In ThisWorkbook.Worksheets
If ws.CodeName = "Feuil1" Or ws.CodeName = "Feuil2" Or ws.CodeName = "Feuil3" Then
On Error Resume Next
lig = ws.CodeName.Cells.Find(.Range("H" & j), LookIn:=xlValues, lookat:=xlWhole).Row
If lig > 0 Then
dlg = ws.CodeName.Cells.Find("*", LookIn:=xlValues).Row + 1
ws.CodeName.Range("A" & i & ":B" & i).Copy Sheets("Récap").Range("A" & dlg)
ws.CodeName.Range("D" & i).Copy Sheets("Récap").Range("C" & dlg)
End If
End If
Next ws
Next j
End With
End Sub
Merci
Sub test()
Dim j As Integer, i As Integer, lig As Integer, dlg As Integer, ws As Worksheet
With Sheets("Récap")
dlg = .Cells.Find("*", LookIn:=xlValues).Row + 1
If dlg = 1 Then dlg = 2
.Range("A2:C" & dlg).ClearContents
dlg = 0
End With
With Sheets("Source")
For j = .Range("H" & .Rows.Count).End(xlUp).Row To 2 Step -1
For Each ws In ThisWorkbook.Worksheets
If ws.CodeName = "Feuil1" Or ws.CodeName = "Feuil2" Or ws.CodeName = "Feuil3" Then
On Error Resume Next
lig = ws.CodeName.Cells.Find(.Range("H" & j), LookIn:=xlValues, lookat:=xlWhole).Row
If lig > 0 Then
dlg = ws.CodeName.Cells.Find("*", LookIn:=xlValues).Row + 1
ws.CodeName.Range("A" & i & ":B" & i).Copy Sheets("Récap").Range("A" & dlg)
ws.CodeName.Range("D" & i).Copy Sheets("Récap").Range("C" & dlg)
End If
End If
Next ws
Next j
End With
End Sub