bonsoir à tous
Aprés avoir trouvé le code correspondant à chaque ligne, je veux recopier
les cellules H2:BO2 de le feuille Bureau sur la feuille Calendrier.
Sub RechercheCx()
Dim x As Integer
Dim Code, i, Cx
Dim TableCx As Range
Dim MaPlage As Range
Application.ScreenUpdating = False
Set MaPlage = Sheets("BUREAU").Range("H2:BO2")
Code = Range("C2").End(xlDown).Row
Set TableCx = Sheets("BUREAU").Range("A:BO")
x = 1
For i = 2 To Code
On Error Resume Next
Cx = Application.WorksheetFunction. _
VLookup(Cells(i, 3), TableCx, 1, False)
' C'est ici que ça coince!!!
If Cx = Sheets("BUREAU").Cells(i, 3) Then
MaPlage.Rows(x).Select
Sheets("Calendrier").Range ("P1")
ActiveSheet.Paste
Application.CutCopyMode = False
End If
If Err = 1004 Then GoTo Suite
x = x + 1
Suite:
Next
End Sub
comment écrire que si Cx est trouvé, de selectionner et copier vers
la feuille Calendrier les cellules H2:BO2
merci d'avance pour le tuyau
loulou13