Suppression de ligne via macro
o
Bonjour tout le monde,
Je fais appel à vous pour m’aider à créer une macro pour la gestion d’un répertoire.
J’aimerais que la macro respecte les conditions suivantes :
Lors de la saisie de la mention « OUI » en colonne A de l’onglet « Zscaler » il faut vérifier si le nom en colonne C de ce même onglet figure dans l’onglet « Acces-Ext ».
Si le nom figure dans l’onglet « Acces-Ext » (colonne A) alors suppression de la ligne entière.
Merci d’avance le forum
A
Bonjour
avec un Code de Feuille
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
Dim i As Byte
On Error Resume Next
If Target = "OUI" Then
i = Application.WorksheetFunction.Match(Target.Offset(0, 2).Value, Sheets("Acces-Ext").Range("A:A"), 0)
If i > 0 Then Target.EntireRow.Select
End If
End If
End SubCordialement
o
Merci de ta réponse !!
c'est presque sa je me suis surement mal exprimé mais c'est lors de la saisie du "OUI" dans l'onglet "Zscaler" la ligne qui doit etre supprimé est celle ce trouvant dans l'onglet "Acces-Ext" et non dans "zscaler"
A
Bonjour
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
Dim i As Byte
On Error Resume Next
If Target = "OUI" Then
i = Application.WorksheetFunction.Match(Target.Offset(0, 2).Value, Sheets("Acces-Ext").Range("A:A"), 0)
If i > 0 Then Sheets("Acces-Ext").Activate
Sheets("Acces-Ext").Range("A" & i).EntireRow.Delete
End If
End If
End SubCordialement