afficher un message de type POST IT

[arnaoke]

Bonjour,

Je suis actuellement à la recherche d'une méthode qui pourrait m'afficher un message sous la même forme que ceux générés par le menu "Données => Validation".

C'est à dire un message de type post it, qui s'affiche à coté de la case, PAS UNE MSG BOX svp ! je tiens bien à le préciser !

ce message ne s'afficherait qu'en fonction de certaines conditions dans la case (mais ça je pense etre assez grand pour m'en occuper !)

Pouvez vous m'aidez ??

P.S :en pj, le type de message que je voudrais avoir, séléctioner la case C7 !

Arna

 

[Pierrot93]

Re : afficher un message de type POST IT

Bonjour,

essaye peut être les commentaires, click droit dans la cellule => insérer un commentaire.

bonne journée
@+

 

[tototiti2008]

Re : afficher un message de type POST IT

Bonjour arnaoke, Bonjour Pierrot

Je pense que tu fournis toi-même une partie de ta réponse
Si le message de Données-Validation te convient, il faut utiliser celui-là
Ensuite pour le conditionner, il faut faire une macro sur l'évènement Change de la feuille qui va désactiver ou activer le message en fonction de tes conditions
Il est évident que sans les conditions, peu de chance que l'on te fournisse un code complet, mais pour l'exemple, admettons que le message de ton fichier exemple ne doive s'afficher que si la valeur est supérieure à 10

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$C$7" Then
        If Target.Value > 10 Then
            Target.Validation.ShowInput = True
        Else
            Target.Validation.ShowInput = False
        End If
    End If
End Sub

le seul soucis est qu'Entrée t'envoie dans la cellule du dessous, et forcément le message n'apparait plus...

 

[youky(BJ)]

Re : afficher un message de type POST IT

Bonjour Arnaoke,
Voici un petit fichier exemple
Cela peut être construit avec une zone de texte ou autre
Bruno

 

[arnaoke]

Re : afficher un message de type POST IT

pas vraiment, je voudrais poser une condition sur l'apparition du message, et je voudrais que celui ci s'affiche dés que la valeur correspondant à la cellule ou est posée la condition (une case 3 colonnes plus loin par exemple) n'est pas respectée.

apparemment il faut ici clicker sur la case pour le commentaire s'affiche.

P.S : merci pour réponses, je test ça !

si vous avez d'autres idées je suis aussi prenneur !

 

[arnaoke]

Re : afficher un message de type POST IT

Bon après réfléxion, je vais résoudre le problème autrement,

Je pense colorer la/les cellules qui ne répondent pas aux critères, et si l'utilisateur click dessus, le message alors s'affichera.

Pour cela, 2 possibilités :
1- je pose une mise en forme conditionnelle sur la cellule, et si celle ci est de la couleur de l'alerte, alors le code vba s'activera
2-je code tout en vba (changement de couleur, + affichage du message au click sur la cellule)

je pense prendre la 2nde solution.

savez vous comment je peut détecter le changement de couleur d'une cellule ?

 

[tototiti2008]

Re : afficher un message de type POST IT

Bonjour youky,
Re,

Et la valeur des cellules concernées changent en fonction d'une formule ou d'une saisie ?

 

[arnaoke]

Re : afficher un message de type POST IT

non, la valeur est importée d'un autre fichier excel, copiée, et coller dans le tableau.

en fait je cherche à faire un tableau qui va me permettre de synthétiser des données et de mettre en avant certains paramètres !

Grosso modo, et pour simplifier :
j'ai dans la colonne A un type de données ( des fruits et légumes par exemple), et dans la colonne B des couleurs
si dans la colonne A j'ai une orange , et que dans la colonne B j'ai "vert", alors ça cloche, et je veux que le tableau me le signal !

 

[tototiti2008]

Re : afficher un message de type POST IT

Re,

peut-être en complétant le code comme ça ?

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$C$7" Then
        If Target.Value > 10 Then
            Target.Interior.ColorIndex = 3
            Target.Validation.ShowInput = True
        Else
            Target.Interior.ColorIndex = xlColorIndexNone
            Target.Validation.ShowInput = False
        End If
    End If
End Sub

 

[arnaoke]

Re : afficher un message de type POST IT

euh, en fait j'ai fait autrement ^^ mais j'ai quand meme un petite erreur quant à la méthode qui me permet d'afficher le petit message à coté de la case (tiré d'une macro je l'avoue)

With Cells(ligne, 5).Validation
            .Delete
            .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _ 'ERREUR DANS CETTE LIGNE !
            :=xlBetween 'ERREUR DANS CETTE LIGNE !
            .IgnoreBlank = True
            .InCellDropdown = True
            .InputTitle = "Attention"
            .ErrorTitle = ""
            .InputMessage = "une orange n'est pas verte !"
            .ErrorMessage = ""
            .ShowInput = True
            .ShowError = True
        End With

Je vous ai sélectionné que le bout de code ou l'erreur est généré ( le reste étant une usine à gaz !)