Function DéfNom() As Boolean
Dim Plg As Range
Application.EnableEvents = False
On Error Resume Next
Set Plg = Application.InputBox(Prompt:="Sélectionner la zone de données", Type:=8)
On Error GoTo 0
Application.EnableEvents = True
If Plg Is Nothing Then DéfNom = False: Exit Function
ThisWorkbook.Names.Add...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Me.[Données]) Is Nothing Then
ThisWorkbook.Names("Qui").RefersTo = "=""" & Target.Value & """"
Else
ThisWorkbook.Names("Qui").RefersTo = "="""""
End If
End Sub
=Qui=$A3
Function DéfNom() As Boolean
Dim Plg As Range
Application.EnableEvents = False
On Error Resume Next
Set Plg = Application.InputBox(Prompt:="Sélectionner la zone de données", Type:=8)
On Error GoTo 0
Application.EnableEvents = True
If Plg Is Nothing Then DéfNom = False: Exit Function
ThisWorkbook.Names.Add "Données", Plg
DéfNom = True
End Function
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Nom$
On Error Resume Next
Nom = ThisWorkbook.Names("Données").Name
On Error GoTo 0
If Nom = "" Then If Not DéfNom Then Exit Sub
If Not Intersect(Target, Me.[Données]) Is Nothing And Target.Count = 1 Then
ThisWorkbook.Names.Add Name:="Qui", RefersTo:="=""" & Target.Value & """"
Else
ThisWorkbook.Names.Add Name:="Qui", RefersTo:="="""""
End If
End Sub
à force de chercher donc maintenant cela fonctionne j'avais simplement pas créé de mise en forme conditionnelle
sujet validé
Et moi je n'ai pas pensé à te le rappeler dans le post #5 !j avais simplement pas créer de mise en forme conditionnelle
Le pingouin est myope, chenu et rondouillard !
Mais ça c'est entre nous bien sûr !