Evenement Worksheet_Change propriété d'une cellule nomée

[anthony_fr]

Bonjour

Je bloque sur un truc assez bête...

J'ai attribué le nom "ICI" à la cellule $B$3 de ma feuille.

En VBA je sais faire

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$B$3" Then blablabla

Pour des raisons pratique je préfèrerais tester le nom de la cellule mais je ne trouve pas la bonne propriété de T
Target

Bref faire un truc du genre

If Target.?????? = "ICI" Then blablabla

Par quoi remplacer les points d'interrogations ?

Merci pour votre aide

 

[mécano41]

Re : Evenement Worksheet_Change propriété d'une cellule nomée

Bonjour,

If Not Application.Intersect(Target,Range("ICI")) Is Nothing then
   blabla
End If

Cordialement

 

[job75]

Re : Evenement Worksheet_Change propriété d'une cellule nomée

Bonjour anthony_fr, mecano41,

Par exemple :

If Target.Address = [ICI].Address Then

A+

 

[job75]

Re : Evenement Worksheet_Change propriété d'une cellule nomée

Re,

Si l'on n'est pas sûr que "ICI" existe en tant que Range :

Private Sub Worksheet_Change(ByVal Target As Range)
If TypeName([ICI]) = "Range" Then
  If Target.Address = [ICI].Address Then
    MsgBox "a"
  End If
End If
End Sub

A+

 

[anthony_fr]

Re : Evenement Worksheet_Change propriété d'une cellule nomée

Merci a vous 2

Par contre job75 je ne comprend pas beaucoup ton deuxième post... Veux tu dire que si le nom de la cellule n'existe pas cela peut créer une erreur a l'exécution ?

 

[job75]

Re : Evenement Worksheet_Change propriété d'une cellule nomée

Bonjour le fil, le forum,

Par contre job75 je ne comprend pas beaucoup ton deuxième post... Veux tu dire que si le nom de la cellule n'existe pas cela peut créer une erreur a l'exécution ?

Il suffit de tester non ?

Sinon, s'il faut mettre les points sur les i :

Private Sub Worksheet_Change(ByVal Target As Range)
If TypeName([ICI]) <> "Range" Then _
  MsgBox "Aucune cellule nommée ""ICI""...": Exit Sub
If [ICI].Count > 1 Then MsgBox """ICI"" doit être une seule cellule..."
If Target.Address = [ICI].Address Then MsgBox """ICI"" est modifiée..."
End Sub

Il est plus simple de laisser le bug, ça dépend de ce que l'on veut.

A+

 

[ChTi160]

Re : Evenement Worksheet_Change propriété d'une cellule nomée

Bonjour
Bonjour le fil
Bonjour le forum

on peut aussi tester comme ceux ci

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo fin
If Target.Name.Name = "ICI" Then
    MsgBox Target.Address
End If
fin:
End Sub

Bonne journée
Amicalement
Jean Marie