Supprimer des cellules si absent dans une autre feuille
E
Bonjour à tous,
j'ai un petit problème avec un de mes codes vba
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B1:B2000")) Is Nothing Then
Dim i As Double
On Error Resume Next
i = Application.WorksheetFunction.Match(Target, Worksheets("Liste du personnel").Range("B1:B2000"), 0)
If i = 0 Then
Target.EntireRow.ClearContents
End If
End If
End SubCe code me permet de rechercher le nom de personne que je rentre dans une cellule dans une liste du personnel
Si le nom tapé n'existe pas dans la liste du personnel, alors on supprime la ligne complete (Target.EntireRow.ClearContents)
J'aimerai qu'il ne me supprime pas la ligne complète mais juste de la colonne 3 à la 15 pour la ligne concernée
Quelqu'un saurait-il m'aider à partir du code ci dessus ?
Merci d'avance
Désolé, après réflexion, j'ai trouvé la solution
Désolé pour le dérangement, si un administrateur peut supprimer le topic
A
Bonjour
Range(Target.Offset(0, 1), Target.Offset(0, 13)).ClearContentsCordialement