Commentaire si doublon dans autre feuille :

[Darnel]

Bonjour

j'essaye ce code qui ne veu pas tourner

Je l'ai extrait (fichier enregistrant les modif dans des commentaires) et remis à ma sauce (en vain) pour qu'il m'indique si la valeur tappée dans la cellule existe déjà dans ma base de donnée
Le code :

Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableEvents = False
  If Target.Range("B4") = ActiveCell Then
     On Error Resume Next                         ' active la gestion d'erreur
    Err = Target <> Sheets("Données").Column(3).Value
    temp = Target.Comment.Text                  ' Commentaire existe t-il?
    If Err = Sheets("Données").Column(3).Value Then Target.AddComent
    Target.Comment.Text Text:=Target.Comment.Text & _
        "Il existe déjà un contrat n°" & Range("B4").Value
    Target.Comment.Visible = True
    Target.Comment.Shape.Select
    Selection.AutoSize = True
    Target.Comment.Visible = False
    On Error GoTo 0                             ' désactive la gestion d'erreurs
    End If
  Application.EnableEvents = True
End Sub

ça parait totalement barbar pour ceux qui s'y connaissent, mais mes compétences en vb sont loin d'atteindre un tel niveau, mais je ne demande qu'a apprendre. Donc si quelqu'un a l'amabilité de m'aider, c'est cool.
Merci

 

[Darnel]

Re : Commentaire si doublon dans autre feuille :

Bonjour

Merci de te pencher sur mon problème

La Macro ne fonctionne pas : quand je tappe en B4 une valeur existant dans la colonne C de la feuille données, il ne me met pas de commentaire

Quand j'efface le contenu de B4 avec la touche suppr, la macro plante
sur cette ligne :
If Target.Value = Sheets("Données").Cells(i, 3).Value Then
mais a priori ça fonctionne avec la touche retour arrière

Bref

As tu une idée de ce non fonctionnement

Encore merci pour le temps que tu m'as accordé

 

[Darnel]

Re : Commentaire si doublon dans autre feuille :

re


Effectivement cela marche, j'ai pas du faire un truc correctement
Pourtant, c'etait bien dans la feuille que je l'avais placé et non dans un module

Sinon, c'est pas loin d'etre ce que je veux, je sais je suis difficile...

Pense tu qu'il soit faisable que le commentaire n'apparaisse que si la saisie correspond à un doublon
Ensuite, que le code n'enregistre pas tous les cas de doublons qu'il rencontre

Merci de ton aide.
Bon Week End

 

[Darnel]

Re : Commentaire si doublon dans autre feuille :

Bonjour

euh comment dire ??? C'est fabuleux, merveilleux, exactement ce que je voulais...
Merci beaucoup
Sinon, peux tu m'expliquer comment fonctionne ceci :
If (Not Intersect(Range("B4"), Target) Is Nothing) And (Range("B4").Value <> "") Then

quel est le principe du If not intersect .... Is nothing ....Then

Et aussi, a quoi sert le option explicit placé tout au début ??
Merci

 

[Darnel]

Re : Commentaire si doublon dans autre feuille :

re

Merci, c'est assez clair, hormi le Option explicite :

Si j'ai bien compris, sont avantage est de faciliter la gestion des bugs, mais par contre il oblige à avoir un code "nickel"
dernière question : est il reservé au code placé dans this workbook, ou dans les feuilles, ou bien peut on également le mettre dans des modules ?
A te lire

 

[Darnel]

Re : Commentaire si doublon dans autre feuille :

re

Lol, Merci de ton coup de main.

Tu m'as bien aider
Merci et à la revoyure dans un prochain fil

Bonne journée et bonne fin de Week end

 

[Darnel]

Re : Commentaire si doublon dans autre feuille :

Salut

Bon avec du retard, j'ai essayer de mettre le code que tu m'a proposer, mais jusqu'a présent, impossible de le faire fonctionner. Je pense que c'est certainement la faute au fait que la cellule devant afficher un commentaire est fusionnée.
Cependant, je ne peux pas la défusionner pour des raison de lisibilité, de mis en forme et surtout de "j'ai plein plein plein de code qui y font référence, enfin bref, j'ai pas la possibilité de la défusionner.

Voit tu une raison à cla chose ?
J'ai essayer de remplacer Range("B4") par Range("B4:H4")
mais sans résultat.
A+

 

[Darnel]

Re : Commentaire si doublon dans autre feuille :

re

Bon à priori, c'est la cellule fusionnée qui pose problème, puisque j'ai un bog lors de l'execution de la macro sur cette ligne :

If (Not Intersect(Range("B4:H4"), Target) Is Nothing) And (Range("B4:H4").Value <> "") Then

si quelqu'un connait unmoyen de pallier le problème...

 

[pierrejean]

Re : Commentaire si doublon dans autre feuille :

bonjour Darnel

j'ais testé le fichier et chez moi il fonctionne avec la fusion B4:H4

toutefois j'ai fusionné apres avoir enregistré le fichier

est-ce l'explication

teste et dis nous

 

[JHA]

Re : Commentaire si doublon dans autre feuille :

Salut Darnel et le forum,

Au lieu de fusionner les cellules, tu peux essayer ceci:
1)enlève la fusion des cellules
2)Selectionnes les cellules B4:H4
3)Puis Format/cellule, dans la liste deroulante "Horizontal", choisis "centré sur plusieurs cellules".
Cela doit marcher en gardand "B4" dans ta macro

A+

 

[Darnel]

Re : Commentaire si doublon dans autre feuille :

re

Pierrejean, ta solution fonctionne tant que ma feuille n'est pas protégée, or il est réellement impératif qu'elle le soit.
Je n'ai pas tester avec Protect.UserinterfaceOnly = True
car il me semble que pour les commentaires justement, cela ne fonctionne pas.
Avez vous une solution ?
Sinon, un MsgBox peut etre ...
Merci

 

[Darnel]

Re : Commentaire si doublon dans autre feuille :

re

C'est bon pour ce qui est de la protection, je suis parvenu à regler le problème en la désactivant le temps de l'execution .
Par contre je n'arrive pas à lui faire accepter la mise en forme du commentaire par du code... Une solution pour que le texte soit centré (horizontal et vertical) le fond en orange (couleur 51) le texte en gras, les bordure en taille 1.25 ?

Merci d'avance

 

[Darnel]

Re : Commentaire si doublon dans autre feuille :

Bonjour,

Post effacé car j'ai créer une nouvelle discussion pour la mise en forme du commentaire
post mise en forme