Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

xxexcel

XLDnaute Junior
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

XLDnaute Junior
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

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

xxexcel

XLDnaute Junior
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
 

Pièces jointes

  • Effacement sur 2eme feuille V3.xlsm
    27.1 KB · Affichages: 3
Dernière édition:

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…