Commentaire conditionnel

[olhey]

Bonjour, je viens soliciter votre aide salvatrice!

J'aimerais afficher un commentaire à un endroit ou à un autre en fonction de la valeur d'une cellule. voyer plustôt:

Private Sub commentaire()
 If Cells(7, 6).Value = 1 Then
  Worksheets(2).Range("D25").comment.Text ("Bonjour")
 Else
  Worksheets(2).Range("D25").comment.Text ("au revoir")
 End If
 End Sub

lorsque je lance la macro il me dit:

erreur d'éxecution '91'
Variable objet ou varaible bloc non définie

PS:Merci de votre aide je suis tout débutant en vba mais je trouve ça passionnant!

 

[JCGL]

Re : Commentaire conditionnel

Bonjour à tous,

Peux-tu essayer :

Option Explicit

Sub Commentaire()
 If Range("F7").Value = 1 Then
     Range("D25").ClearComments
        Range("D25").AddComment
            Range("D25").Comment.Text Text:="Bonjour"
 Else: Range("D25").Comment.Text Text:="Au Revoir"
 End If
                Range("D25").Comment.Visible = 1
 End Sub

A+ à tous

 

[olhey]

Re : Commentaire conditionnel

RE, même problème, je comprends pas pourquoi sur ma feuille ça ne fonctionne pas...

 

[JCGL]

Re : Commentaire conditionnel

Bonjour à tous,

As-tu essayé avec mon fichier ?
Si tu as un problème : quel est le message ?

Dépose ton fichier....

A+ à tous

 

[olhey]

Re : Commentaire conditionnel

Bonjour excusez moi de ne pas avoir répondu plus tot...🙁

voilà jai posté mon exemple:

en fait il s'agit de la feuilel "00 relevé", comme pouvez le voir, si je selectionne revêtement bitumineux ou béton le tableau n'est pas le même est j'aimerais quie le commentaire des cellules T8/U8 deviennent les commentaires des cellules W8/X8m lorsque je change de type de revêtement.

MErci est bonne journée

 

[Jiheme]

Re : Commentaire conditionnel

Bonjour Olhey, JCGL, Le Forum

Olhey, la macro de JCGL fonctionne parfaitement (le contraire m'aurait étonné d'ailleurs), la seule chose c'est qu'il faut en faire une macro évennementielle genre :

Private Sub Worksheet_Change(ByVal Target As Range)
 
Le code de JC

A+

 

[olhey]

Re : Commentaire conditionnel

RE, oui je m'excuse de mette ne doute vos connaissance, il s'agit assurément de ma débutantéité(neologisme) dans le domaine.

Mais avez vous jeté un coup d'oeil à mon exemple?commentz faire pour agir sur deux cellules?

enfait il s'agit juste de décaler les commentaires en fonction du contenu d'une cellule

 

[JCGL]

Re : Commentaire conditionnel

Bonjour à tous,
Salut JiHeme 🙂,

Regarde si cela convient pour la T8/W8
Voir dans le module la Sub Commentaire2()
Il te reste à faire la 3 sur le même principe et de rajouter :
Call Commentaire3 dans le code de la feuille 2

A+ 🙂
A+ à tous

 

[olhey]

Re : Commentaire conditionnel

MErci de vos réponses rapide, je ne suis pas sur un ordi sur lequel il ya excel,😛 mais je vous redonne des nouvelles demain!

Bonne soirée

 

[olhey]

Re : Commentaire conditionnel

en fait je crois que je nai pas été d'une clarté éblouisssante🙁, je poste une image pour expliquer.

Il s'agit "juste" de déplacer le commentaire.


merci

EDIT: j'ai essayé d'atteindre à mon but, mais ça ne fonctionne pas:

Sub Commentaire1()
 If Range("F7").Value = 1 Then
     Range("T8").ClearComments
        Range("T8").AddComment
            Range("T8").Comment.Text Text:="Travaux à effectuer : " & Chr(10) & "A : Réfection totale" & Chr(10) & "B : Réfection enrobés" & Chr(10) & "C : Réfection roulement"
 Else: Range("W8").Comment.Text Text:="Travaux à effectuer : " & Chr(10) & "A : Réfection totale" & Chr(10) & "B : Réfection enrobés" & Chr(10) & "C : Réfection roulement"
 End If
                Range("T8").Comment.Visible = 1
 End Sub

Sub Commentaire2()
 If Range("F7").Value = 1 Then
     Range("U8").ClearComments
        Range("U8").AddComment
            Range("U8").Comment.Text Text:="Travaux à effectuer : " & Chr(10) & "C : Réfection totale" & Chr(10) & "D : Réfection enrobés" & Chr(10) & "E : Réfection roulement"
 Else:             Range("X8").Comment.Text Text:="Travaux à effectuer :" & Chr(10) & "A : Réfection totale" & Chr(10) & "B : Réfection enrobés" & Chr(10) & "C : Réfection roulement"
 End If
                Range("U8").Comment.Visible = 1
 End Sub