Macro pour rechercher et afficher un commentaire

marik06 · 1 Mars 2012

Bonjour,
Dans le fichier en pièce jointe, il y a deux onglets :
- un qui s'appelle feuille tours avec des n° et des libellé
- un qui s'appelle commentaires avec des n° et des commentaires

En se mettant sur un n° de longlet feuille tours, je voudrais voir s'afficher le commentaire qui correspond au même n° de l'onglet commentaires.
S'il ne le trouve pas, un message affiche "pas de commentaire".
Vous allez me dire d'utililiser le commentaire d'excel mais cela ne correspond à la demande (!)
Je pensais initialement le faire avec un lien hypertexte mais le lien m'affiche le commentaire où il se trouve dans l'onglet commentaire et non en pleine page.
A moins qu'il n' ait des possibilités que j'ignore
Merci de votre aide
marik

Bebere · 2 Mars 2012

Re : Macro pour rechercher et afficher un commentaire

bonjour Marik
clic cellule colonne1 faitapparaitre un userform avec le commentaire

marik06 · 5 Mars 2012

Re : Macro pour rechercher et afficher un commentaire

Merci beaucoup bebere,
Je vais essayer cela et te tiens au courant

marik06 · 7 Mars 2012

Re : Macro pour rechercher et afficher un commentaire

Bonjour Bebere,
J'ai donc testé le useform1 et c'est parfait.
Grand merci
marik06

marik06 · 17 Mars 2012

Re : Macro pour rechercher et afficher un commentaire

Bonjour,
Je voudrais compliquer un peu les choses (?).
Si lorsque je veux rechercher mon commentaire à partir d'une cellule où il y a un numéro, MAIS qu'il n'y a pas de commentaire disponible dans l'onglet commentaire (le numéro n'est pas indiqué), comment modifier visual basic pour eviter qu'il me renvoie une erreur
Merci d'avance

job75 · 17 Mars 2012

Re : Macro pour rechercher et afficher un commentaire

Bonjour marik06, salut Bebere,

Autre manière avec le message de saisie d'une validation de donnée :

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(ActiveCell, [A2:A65536]) Is Nothing Or ActiveCell = "" Then Exit Sub
Dim m As String
On Error Resume Next
m = Application.VLookup(ActiveCell, Sheets("Commentaires").[A:B], 2, 0)
If m = "" Then m = "Pas de commentaire"
[A:A].Validation.Delete
With ActiveCell.Validation
  .Add xlValidateInputOnly
  .InputMessage = m
End With
End Sub

"Pas de commentaire" s'affiche qand le commentaire est vide ou quand le N° n'existe pas.

Fichier joint.

A+

job75 · 17 Mars 2012

Re : Macro pour rechercher et afficher un commentaire

Re,

Encore une solution avec un Label (contrôle ActiveX) sur la feuille :

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Label1
  .Visible = False
  If Intersect(ActiveCell, [A2:A65536]) Is Nothing Or ActiveCell = "" Then Exit Sub
  Dim m As String
  On Error Resume Next
  m = Application.VLookup(ActiveCell, Sheets("Commentaires").[A:B], 2, 0)
  If m = "" Then m = "Pas de commentaire"
  .Caption = m
  .AutoSize = False
  .Width = 10000
  .AutoSize = True
  .Top = ActiveCell.Top
  .Left = ActiveCell.Offset(, 1).Left
  .Visible = True
End With
End Sub

Le Label s'ajuste au texte par la propriété AutoSize.

Fichier (2).

A+

Macro pour rechercher et afficher un commentaire

marik06

XLDnaute Nouveau

Pièces jointes

Bebere

XLDnaute Barbatruc

Pièces jointes

marik06

XLDnaute Nouveau

marik06

XLDnaute Nouveau

marik06

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

Discussions similaires