Commentaire lié à une recherche de cellule - fichier joint
Salutations les spécialistes,
Je suis novice pratiquant Excel depuis quelques années, mais toujours novice par rapport à bon nombre d'entre vous.
Pour me faciliter le travail au boulot, je réalise un programme Excel mais j'ai un souci :
Je travaille dans les prisons.
Dans une cellule, l'utilisateur doit y mettre un nombre (exemple : 22 ce qui signifie que le détenu 22 se trouve à l'endroit correspondant à cette cellule).
Jusque là, c'est simple.
Par contre, j'aimerais qu'en passant sur la cellule où le nombre 22 est inscrit, un commentaire soit visible avec le nom du détenu correspondant.
En feuille 2, j'ai une liste avec les nombres de 1 à 22 et les noms des détenus dans la colonne suivante.
Mais attention, si la cellule était remplie avec le nombre 18, le commentaire devrait être également le nom du détenu 18.
Merci d'avance pour votre aide.
Bonsoir
regarde un peu ce fil dans lequel je donnais une solution --> =Ajouter commentaire dans cellule
ensuite ce serait bien que tu postes un fichier afin que l'on voit comment sont disposées les données dans tes feuilles
A te relire
Edit Dan : Un petit exemple ci-joint.
En feuille 1 la valeur de B4 à changer.
En feuille 2 les données que tu peux compléter entre A2 jusque B50
C'est exactement ce qu'il me faut, mais où se situe la formule ou la macro ? Sûrement dans le lien avec le code, je vais regarder
Un tout grand merci.
Re
mais où se situe la formule ou la macro ?
Clique droite sur l'onglet feuille1, puis choisis l'option "Visualiser le code"
Si ta demande est terminée, merci de cloturer le fil en cliquant sur le V vert à coté du bouton EDITER
Amicalement
Je n'y arrive pas, je pense avoir bien compris ton code, mais je m'arrache les cheveux parce que je suis noob lol...
Voici le fichier.
En fait, comme tu peux le voir, si on ajoute un nombre dans une des cellules du tableau comprise entre B8:I53 et K8:R53, il faudrait que le commentaire soit défini par le nom du détenu situé en feuil2 colonne B et colonne E.
Je teste, je teste et reteste, mais je suis coincé...
En fait, en utilisant le code :
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'MAcro Dan pour Paludot le 6/10/2010
If Not Range("B8").Comment Is Nothing Then Range("B8").ClearComments
On Error Resume Next
lg = WorksheetFunction.Match(Target.Value, Sheets("Feuil2").Range("A3:A26"), 0) + 2
If lg > 0 Then Range("B8").AddComment Sheets("feuil2").Range("B" & lg).Text
Range("B8").Comment.Visible = False
End Sub
J'ai effectivement, la bonne donnée qui remplit le commentaire de la cellule (B8 ici dans l'exemple).
Mais j'ai encore deux soucis majeurs :
1° Commentaire qui change alors qu'il ne devrait pas.
--> exemple, en B8, j'ai inscris 13, du coup, il va me retrouver le commentaire adéquat dans la liste de la feuille2 entre A3:A26
Mais lorsque je remplis une autre cellule (en D12 par exemple), le commentaire de B8 devient le commentaire relatif à cette nouvelle donnée (soit le commentaire A12 qui vient écraser le commentaire initial A8), Pourtant, aucun commentaire ne s'affiche sur D12. Or, j'ai besoin de pouvoir lire les commentaires de toutes les cellules en passant avec la souris dessus.
2° Les commentaires disparaissent en cas d'utilisation de Delete dans une cellule non concernée.
--> exemple, en B8, ma cellule est remplie avec le bon commentaire, je remplis une autre cellule (D12 par exemple), puis je "delete" la cellule D12 et Oups, le commentaire de B8 disparait. Or, j'ai besoin qu'il s'affiche si ma souris passe dessus.
J'ai vraiment besoin d'un coup de main là-dessus, je fais un appel à l'aide, merci.
Impressionnant, c'est exactement çà.
Un tout tout grand merci.
Ok, ferais çà...
Toutefois, je t'ai envoyé un mail car je bloque encore sur une petite chose.
A partir du classeur "Test1R" qui fonctionne nickel maintenant, grâce à vous, je voudrais que le contenu et le commentaire affiché (grâce au code qui le lie à la feuil2) de la cellule B8 arrive automatiquement dans le classeur "Global" à l'endroit voulu.
Pour se faire, j'y ai mis la formule (dans Global) =[Test1R.xls]Feuil1'!$B$8
J'ai ma donnée qui y apparait, mais le commentaire (lui) ne suit pas.
Bonjour
Il ne me semble pas possible (mais je ne connais pas tout) de récupérer le commentaire d'une cellule par un simple lien
Il faut faire un copier/coller
Une question : A quoi cela sert de le mettre dans un autre fichier ?
Une copie de ce fichier "Global" serait peut-être intéressante à étudier, afin d'essayer de trouver une solution (pas sur)
Voilà, je t'ai renvoyer le document Global appelé RSU.
L'explication est dans le mail que je t'ai envoyé.
Bonsoir à Tous Banzai
juste une petite modification dans ta macro reset
a+
Papou
Sub reset1r()
ActiveWorkbook.Save
Range("F1,M1,B7:I53,K8:R53").ClearContents
Range("F1,M1,B7:I53,K8:R53").ClearComments
End SubBonsoir à Tous Banzai
juste une petite modification dans ta macro reset
a+
Papou
Sub reset1r()
ActiveWorkbook.Save
Range("F1,M1,B7:I53,K8:R53").ClearContents
Range("F1,M1,B7:I53,K8:R53").ClearComments
End Sub