1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
|
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("I:I")) Is Nothing And Target.Text Like "*RN" Then
Col1 = Cells(Target.Row, 1)
Col2 = Cells(Target.Row, 2)
Sol = 0
Feuille = "Candidats à inviter en SR"
For i = 3 To 2000
If Sheets(Feuille).Cells(i, 1) = Col1 And Sheets(Feuille).Cells(i, 2) = Col2 And Sheets(Feuille).Cells(i, 3) = "" Then
LigneC = i
Sol = 1
Exit For
End If
Next i
If Sol = 1 Then
Sheets("Stat PE").Range(Cells(Target.Row, 3), Cells(Target.Row, 6)).Copy Sheets(Feuille).Cells(i, 3)
Else
Msg = MsgBox("Pas de possiblité trouvé", , "Erreur")
End If
End If
End Sub |
Partager