Private Sub Worksheet_Change(ByVal Cible As Range)
'Cas précis > SI K11="Accepté" alors copie des cellules C1 et F1 respectivement en
'"C"&"Derligne colonne C" et "F"&"Derligne colonne F" dans l'onglet Table partenaire
If Cible.Column = Columns("K").Column And Cible.Row > 10 Then
With Worksheets("Table partenaire")
If Cible(1).Value = "Accepté" Then
[C1].Copy Destination:=.Cells(.Cells(.Rows.Count, .Columns("C").Column).End(xlUp).Row + 1, .Columns("C").Column)
[F1].Copy Destination:=.Cells(.Cells(.Rows.Count, .Columns("F").Column).End(xlUp).Row + 1, .Columns("F").Column)
End If
End With
End If
End Sub
Bonjour ROGER2327,
Merci beaucoup pour ta réponse.
J'ai placé le code comme convenu dans le module de la Feuil1 mais il m'indique :
"Erreur d'execution '9:
L'indice n'appartient pas à la sélection"
En soulignant cette partie du code : With Worksheets("Table prospection")
Merci à toi
Alex
J'ai donc écritCas précis > SI K11="Accepté" alors copie des cellules C1 et F1 respectivement en "C"&"Derligne colonne C" et "F"&"Derligne colonne F" dans l'onglet Table partenaire
With Worksheets("Table partenaire")