Microsoft 365 [MaCell] si delete

[Usine à gaz]

Bonjour à toutes et à tous

Il y a fort longtemps, notre cher Gérard job75 m'avait donné le code pour nommer au clic une cellule permettant de s'y référer à tout moment.
Je m'en sers depuis longtemps (ce code est partout dans mes fichiers ). Il fonctionne nickel.
Merci encore à Gérard

Il y a quand même une chose (petite je pense) que je n'ai pas réussi à coder de mon côté.

Vous le verrez dans le classeur exemple joint :
au clic
de "a1:c20", je nomme la cellule active ([MaCell])
sur "H6", je sélecte ([MaCell]) et je met sa valeur en "J6"
sur "E4", je supprime ([MaCell])

Mon besoin
Si clic sur "E4"= [MaCell] supprimée
J'ai besoin au clic sur "H6" que la valeur de"J6" soit : "Ma Cellule n'existe pas"

J'ai des tests sans y parvenir.
Auriez-vous le bon code ?
Un grand merci à toutes et à tous
Je continue les "tribulations".....

 

[vgendron]

Bonjour

en executant pas à pas le code, tu devrais voir où ca ne va pas

Private Sub Worksheet_SelectionChange(ByVal R As Range)
If Not Intersect(R, Range("a1:c20")) Is Nothing Then
    ActiveCell.Name = "MaCell" 'nomme la cellule
    [J6].Value = [MaCell]
End If
If Not Intersect(R, Range("h6")) Is Nothing Then
    On Error Resume Next
    [MaCell].Select
    [J6].Value = "testmess" '[MaCell]
End If
If Not Intersect(R, Range("e4")) Is Nothing Then
'Name = [MaCell].Delete
On Error Resume Next
    ThisWorkbook.Names("MaCell").Delete
    
End If
End Sub

après.. encore un code alambiqué pour pas grand chose...

 

[Usine à gaz]

Bjr vgendron
Merci pour la modif du code, ça fonctionne nickel
alambiqué... alambiqué lol certainement vrai
Faut vivre dangereusement lol
Encore merci à toi

 

[vgendron]

je constate encore une fois que les "On error resume next".. c'est pas la meilleure invention qui soit..
ca masque les bugs d'un code
certes, j'en mets moi aussi de temps en temps.. mais j'essaie de le mettre pour bypasser des erreurs que je connais/prédis et que je n'arrive pas à "tester" au préalable.

 

[Usine à gaz]

Re-bjr.
Hé ben après re-test, ça ne fonctionne pas dsl.
Je continue mes recherches

 

[vgendron]

pour se passer des "on error resume next" (à mon avis les puristes diront que la gestion des erreurs est indissociable)

Private Sub Worksheet_SelectionChange(ByVal R As Range)
If Not Intersect(R, Range("a1:c20")) Is Nothing Then
    ActiveCell.Name = "MaCell" 'nomme la cellule
    [J6].Formula = "=MaCell"
End If

If Not Intersect(R, Range("h6")) Is Nothing Then
    If test_name("MaCell") Then
        [MaCell].Select
    Else
        [J6].Value = "Ref ""MaCell"" n'existe pas"
    End If
End If
If Not Intersect(R, Range("e4")) Is Nothing Then
    If test_name("MaCell") Then
        ThisWorkbook.Names("MaCell").Delete
    End If
    [J6].Value = "Ref ""MaCell"" n'existe pas"
End If
End Sub
Public Function test_name(nomplage As String) As Boolean
    test_name = False
    Dim nm As Name
    For Each nm In ThisWorkbook.Names
            If nm.Name = nomplage Then
                    test_name = True
                    Exit For
            End If
    Next nm
End Function

 

[Usine à gaz]

Merci à toi

 

[Usine à gaz]

Re-Bjr à toutes et à tous

Si ça peut servir, je mets le fichier nettoyé qui fonctionne selon mon besoin.
Merci à vgendron

 

[TooFatBoy]

Bonjour,

Private Sub Worksheet_SelectionChange(ByVal R As Range)

If Not Intersect(R, Range("a1:c20")) Is Nothing Then
    ActiveCell.Name = "MaCell" 'nomme la cellule
    [J6].Value = [MaCell]
End If

If Not Intersect(R, Range("h6")) Is Nothing Then
    On Error Resume Next
    [MaCell].Select
    [J6].Value = "testmess" '[MaCell]
End If

If Not Intersect(R, Range("e4")) Is Nothing Then
'    Name = [MaCell].Delete
    On Error Resume Next
    ThisWorkbook.Names("MaCell").Delete
End If

End Sub

Ici, l'instruction [MaCell].Select semble inutile, mais on peut peut-être bien la laisser et s'en servir pour "gérer l'éventuelle erreur provoquée", avec un truc du genre :

If err then
    [J6].value="n'existe pas"
Else
    [J6].value=[macell].value
End If

 

[TooFatBoy]

Vous le verrez dans le classeur exemple joint :
au clic
de "a1:c20", je nomme la cellule active ([MaCell])
sur "H6", je sélecte ([MaCell]) et je met sa valeur en "J6"
sur "E4", je supprime ([MaCell])

Mon besoin
Si clic sur "E4"= [MaCell] supprimée
J'ai besoin au clic sur "H6" que la valeur de"J6" soit : "Ma Cellule n'existe pas"

Les Intersect du code de #2 me semblent louches par rapport à ta demande.

As-tu bien compris quand est appelée la macro Worksheet_SelectionChange ?

 

[Usine à gaz]

Les Intersect du code de #2 me semblent louches par rapport à ta demande.

As-tu bien compris quand est appelée la macro Worksheet_SelectionChange ?

Bsr à toi
Oui bien compris et le fichier du #post 8 fonctionne bien

 

[vgendron]

Juste une question
c'est quoi l'interet de donner un nom à UNE cellule changeante
ce nom. tu l'utilises quelque part ailleurs??

 

[TooFatBoy]

Oui bien compris

Pardon mon très cher Lionel, mais sans vouloir le moins du monde être méchant ou agressif ou quoi que ce soit dans le genre, je n'en suis pas totalement persuadé car je pense que dans ce cas ta macro serait un tout petit peu différente.

 

[vgendron]

pour expliciter ce que je pense comprendre de la remarque de toofat

exemple: tu cliques sur A1
==> A1 est renommée "MaCell"
tu tapes maintenant une valeur
tu valides... A1 n'est PLUS "MaCell", mais c'est A2

 

[TooFatBoy]

et le fichier du #post 8 fonctionne bien

Je pense qu'il y a des conditions dans lesquelles ça risque de ne peut-être pas fonctionner correctement, d'où ma question précédente.

Oui bien compris

Là on ne peut pas en être sûr.
Peux-tu être un peu plus explicite, s'il te plaît ?