Option Explicit
Dim EffAc As String, C As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([A:A], Target) Is Nothing Then
If ActiveCell = "" Or Target.Count > 1 Then Exit Sub
EffAc = MsgBox("Etes-vous sûr(e) supprimer le nom " & ActiveCell & " ?", vbYesNo + vbInformation, "Delete Name")
If EffAc = vbYes Then
ActiveCell.EntireRow.Delete: Exit Sub [COLOR=Green]' Si Seulement la cellule enlève EntireRow.[/COLOR]
Else
Exit Sub
End If
End If
End Sub
Et personne ne t'en fera le reproche condors.s les Solutions les meilleurs sont souvent les plus simplesMerci Dull,
Je suis assez limité en VBA, donc j'applique souvent des formules pour contourner les obstacles que je ne maitrise pas....
Bonjour, est ce que tu ne peux pas faire une formule dans une cellule voisine :
=si(cellule="";"attention supprimer le client dans feuille de suivie";"")