Microsoft 365 [MaCell] si delete

vgendron

XLDnaute Barbatruc

• 22 Août 2023

• #2

Bonjour

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

VB:

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...

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 22 Août 2023

• #3

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

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 22 Août 2023

• #4

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.

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 22 Août 2023

• #5

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

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 22 Août 2023

• #6

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

VB:

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

 

Vote positif 0 Vote négatif

Solution

Usine à gaz

XLDnaute Barbatruc

• 22 Août 2023

• #7

Merci à toi

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 22 Août 2023

• #8

Re-Bjr à toutes et à tous

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

 

Pièces jointes

• 01 MaCel VGendron.xlsm

  22.9 KB · Affichages: 8

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 22 Août 2023

• #9

Bonjour,

VB:

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 :

VB:

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

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 22 Août 2023

• #10

Usine à gaz à dit:

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"

Cliquez pour agrandir...

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 ?

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 22 Août 2023

• #11

TooFatBoy à dit:

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 ?

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 22 Août 2023

• #12

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

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 22 Août 2023

• #13

Usine à gaz à dit:

Oui bien compris

Cliquez pour agrandir...

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.

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 22 Août 2023

• #14

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

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 22 Août 2023

• #15

Usine à gaz à dit:

et le fichier du #post 8 fonctionne bien

Cliquez pour agrandir...

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.

Usine à gaz à dit:

Oui bien compris

Cliquez pour agrandir...

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

 

Dernière édition: 22 Août 2023

Vote positif 0 Vote négatif