Citation :
Sub Macro1()
Range("h4" ).Select
For i = 1 To 10 'Debut de la boucle'
If ActiveCell.Value = "" Then 'Si cellule vide alors
On Error GoTo Erreurs 'Si erreur aller directement à la ligne Erreurs:
ActiveCell.Value = WorksheetFunction.VLookup(Range("P1" ), Sheets("OK" ).Range("C:E" ), 2, Faux) 'Rechercher la valeur P1 dans la deuxiéme feuille
ActiveCell.Offset(0, 1).Select 'Colonne suivante
ActiveCell.Value = WorksheetFunction.VLookup(Range("P1" ), Sheets("OK" ).Range("C:E" ), 3, Faux) 'Rechercher la valeur P1 dans la deuxiéme feuille
ActiveCell.Offset(1, -1).Select 'Passer a la ligne suivante
Erreurs:
If Err.Number = 1004 Then
ActiveCell.Value = "KO"
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = "KO"
ActiveCell.Offset(1, -1).Select
End If
Else
ActiveCell.Offset(1, 0).Select
End If
Next
End Sub
|
