Microsoft 365 VBA code qui efface un commentaire écrit dans une cellule, suivant le résultat d'une autre

[xxexcel]

bonjour a tous

je suis a la recherche d'une formule qui efface un commentaire écrie dans une cellule, suivant le résultat d'une autre !!

en A10 Jai une cellule ayant une formule qui me donne la date d'un évènement sur un autre tableau.

=SIERREUR(INDEX('MENU DEROULANT'!$C$2:$J$2;;EQUIV(MAINTENANCE!$H$205;'MENU DEROULANT'!C17:J17;0));"") le résultat 11/01/2023 dans ma cellule

en B10 je rajoute a la main un commentaire ex ; " demande de service "

Lorsque je supprime l'évènement sur mon autre tableau la date en A10 disparait "normal"
J'aimerai que le commentaire disparaisse également , qu'ils soient lier .

une date je mets mon commentaire ,la date disparait le commentaire avec....

j'avais essayer ceci , mais cela ne fonction pas car la cellule a une formule en arrière plan.
Comme ces le cas pour moi



Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2")) Is Nothing Then
Range("C1:C3").ClearContents
End If
End Sub

Merci d'avance

 

[xxexcel]

@xxexcel


NON quand on fournit un fichier il doit être représentatif sinon les contributeurs qui répondent à la demande d'un utilisateur devront recommencer le travail éternellement !!!

C'est quoi représentatif ?

- représentatif, même organisation des lignes et des colonnes, mêmes libellés, mêmes noms de feuilles...
- anonymisé, pas de données personnelles réelles tels nom, n° sécu, adresse ...
- simplifié, une quinzaine de lignes reproduisant l'ensemble des différents cas envisageables (Avec le résultat souhaité)
*Éventuellement préciser l'ordre de grandeur des lignes à traiter, exemple mon fichier comporte 1 000 lignes ou bien 200 000 lignes ==> la méthodologie peut être différents.

Une demande claire donne très souvent une réponse rapide et qui correspond au mieux à la demande.
Donc si cela fonctionne sur le fichier fourni et pas sur le vrai fichier j'en conclu qu'il n'est en rien représentatif ou que tu n'as pas su transposer ce qui devrait être un simple copier coller.

Bonne lecture

@xxexcel
*Ajout du fichier modifié

@Phil69970

je comprends votre remarque et vais corriger ma façon de procéder.
Effectivement je n'avais pas vu cela sous cette angle, et comprends tout a fait.
j'étais dans l'esprit de ne pas déranger demander le minimum puis me débrouiller, "raté"
Une question concernant votre vba que je n'arrive pas a comprendre.....

If Worksheets("Feuil2").Cells(Lig - 2, 6) = "" Then
Worksheets("Feuil2").Cells(Lig - 2, 14) = ""

2, 6) 2, 14) a quoi correspond ces lignes

merci a vous

 

[xxexcel]

je comprends votre remarque et vais corriger ma façon de procéder.
Effectivement je n'avais pas vu cela sous cette angle, et comprends tout a fait.
j'étais dans l'esprit de ne pas déranger demander le minimum puis me débrouiller, "raté"
Une question concernant votre vba que je n'arrive pas a comprendre.....

If Worksheets("Feuil2").Cells(Lig - 2, 6) = "" Then
Worksheets("Feuil2").Cells(Lig - 2, 14) = ""

2, 6) 2, 14) a quoi correspond ces lignes

merci a vous

ca y est pour le 6 et 14 J'ai compris.... mais toujours pas le 2

 

[Phil69970]

Re

ca y est pour le 6 et 14 J'ai compris.... mais toujours pas le 2

C'est simple

Sur la 1ere feuille

Et sur la 2eme feuille

Donc 12 - 2 =10

Worksheets("Feuil2").Cells(Lig - 2, 14)

Et j'ai compensé mes 2 lignes d'écart entre les 2 feuilles

@Phil69970

 

[xxexcel]

Re



C'est simple

Sur la 1ere feuille

Regarde la pièce jointe 1165055

Et sur la 2eme feuille

Regarde la pièce jointe 1165056

Donc 12 - 2 =10


Et j'ai compensé mes 2 lignes d'écart entre les 2 feuilles

@Phil69970

Maintenant je comprends l'importance de vos remarque.....
car mon tableau réel commence en B4 feuil 1 et en B11 sur la feuil 2 résultat un travail remarquable de vos équipes...mais une perte de temps......
du coup

If Worksheets("Feuil2").Cells(Lig - 2, 6) = "" Then
Worksheets("Feuil2").Cells(Lig - 2, 14) = ""

cette ligne et a modifier le -2 en ????
merci encore