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

 

[Staple1600]

Bonjour @xxexcel , le fil

Pourquoi doublonner ta question?

Microsoft 365 - Effacer le contenu d'une cellule en fonction d'une autre

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

excel-downloads.com

Surtout que dans cette discussion (celle ouverte en ce dimanche frisquet) , le titre: VBA est vraiment très parlant ...

 

[xxexcel]

Bonjour @xxexcel , le fil

Pourquoi doublonner ta question?

Microsoft 365 - Effacer le contenu d'une cellule en fonction d'une autre

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

excel-downloads.com

Surtout que dans cette discussion (celle ouverte en ce dimanche frisquet) , le titre: VBA est vraiment très parlant ...

bonjour, je pensais simplement n' avoir pas mis le bon titre sur ma première demande.......
et me suis permis de rajouter un élément supplémentaire important....
"rien de plus désole"

 

[Staple1600]

Re

Pour info (et juste pour info)
Un titre explicite et détaillé sera toujours plus utile que 3 lettres.

 

[xxexcel]

Re

Pour info (et juste pour info)
Un titre explicite et détaillé sera toujours plus utile que 3 lettres.

J'ai bien compris encore désolé

 

[Staple1600]

Re

Toujours pour infos
(Bien que tout cela soit déjà dans la charte du forum)

Avec un fichier Excel fourni par tes soins, (fichier allégé et anonymisé), il serait plus facile et rapide de t'aider.
(Nous aurions une base sur laquelle faire nos tests sur nos PC.)

 

[xxexcel]

Je comprends et vais corriger cela !

 

[xxexcel]

bonsoir
je fais suite a ma demande et vous joint un fichier avec ce que j'avais mis en vba



Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("F15")) Is Nothing Then
Range("N15").ClearContents
End If
End Sub

MERCI ENCORE

 

[Staple1600]

Re

Pas sur d'avoir tout compris
A mettre dans le code de la feuille
Un 1er essai

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("F10:F15")) Is Nothing Then
Target.Offset(, 8) = ""
End If
End Sub

NB: Pour garder le projet VBA, enregistrer le classeur au format *.xlsm

 

[xxexcel]

Re

Pas sur d'avoir tout compris
A mettre dans le code de la feuille
Un 1er essai

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("F10:F15")) Is Nothing Then
Target.Offset(, 8) = ""
End If
End Sub

NB: Pour garder le projet VBA, enregistrer le classeur au format *.xlsm

comme cela ?
pour être plus précis dans mes explications
lorsque je supprime "service" a un agent tableau feuil 1 la date s'efface au niveau de ma page 2 normal formule..... est ce que en même temps que la date disparaisse feuil 2 , le commentaire inscrit en face colonne o pourrait s'effacer également
merci a vous

 

[Staple1600]

Re

@xxexcel
Il se fait tard.
Je coupe pour aujourd'hui.

Je laisse mes petits camarades de jeu prendre le relais.

 

[xxexcel]

Re

@xxexcel
Il se fait tard.
Je coupe pour aujourd'hui.

Je laisse mes petits camarades de jeu prendre le relais.

Je comprends et vous remercie

 

[Phil69970]

Bonjour @xxexcel , Staple

De ce que j'ai compris je te propose ce fichier

Merci de ton retour

@Phil69970

 

[xxexcel]

Je comprends et vous remercie

Bonjour @xxexcel , Staple

De ce que j'ai compris je te propose ce fichier

Merci de ton retour

@Phil69970

bonsoir Phil69970

on approche du but top ....
J'ai essayer de représenter mon tableau a petite échelle
je penses ne pas avoir compris une partie
agent A fonctionne parfaitement sur les autres mois
Mais b,c,d ou les future. après avril je bug
merci a vous

 

[Phil69970]

@xxexcel

J'ai essayer de représenter mon tableau a petite échelle

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