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

xxexcel · 5 Mars 2023

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

Phil69970 · 6 Mars 2023

Re

xxexcel à dit:
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

Staple1600 · 5 Mars 2023

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 · 5 Mars 2023

Staple1600 à dit:
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 · 5 Mars 2023

Re

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

xxexcel · 5 Mars 2023

Staple1600 à dit:
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 · 5 Mars 2023

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 · 5 Mars 2023

Je comprends et vais corriger cela !

xxexcel · 5 Mars 2023

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 · 5 Mars 2023

Re

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

Code:

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 · 5 Mars 2023

Staple1600 à dit:
Re

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

Code:

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 · 5 Mars 2023

Re

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

Je laisse mes petits camarades de jeu prendre le relais.

xxexcel · 5 Mars 2023

Staple1600 à dit:
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 · 6 Mars 2023

Bonjour @xxexcel , Staple

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

Merci de ton retour

@Phil69970

xxexcel · 6 Mars 2023

xxexcel à dit:
Je comprends et vous remercie

Phil69970 à dit:
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 · 6 Mars 2023

@xxexcel

xxexcel à dit:
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

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

xxexcel

XLDnaute Junior

Phil69970

Staple1600

XLDnaute Barbatruc

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

xxexcel

XLDnaute Junior

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

Staple1600

XLDnaute Barbatruc

xxexcel

XLDnaute Junior

Staple1600

XLDnaute Barbatruc

xxexcel

XLDnaute Junior

xxexcel

XLDnaute Junior

Pièces jointes

Staple1600

XLDnaute Barbatruc

xxexcel

XLDnaute Junior

Pièces jointes

Staple1600

XLDnaute Barbatruc

xxexcel

XLDnaute Junior

Phil69970

XLDnaute Barbatruc

Pièces jointes

xxexcel

XLDnaute Junior

Pièces jointes

Phil69970

XLDnaute Barbatruc

Pièces jointes

Discussions similaires