Affichage de texte au passage de la souris

Bonjour le forum,

Est il possible d'afficher du texte lors du passage de la souris sur une cellule.

le texte serait saisie dans un userform et enregistré dans une feuille à part.

Si oui, comment faire??

Bonne journée à tous

Bonjour

Le texte des commentaires de cellule ne convient pas ?

Cordialement

Bonjour Amadéus,

Non, malheureusement car les feuilles ou je veux faire apparaitre les commentaires sont protégés.

J'ai donc créé un userform qui permet la saisie de commentaire qui sont enregistrés dans la feuille DATA.

Maintenant, l'idéal serait en cliquant sur le bouton pour voir l'occupation de la salle de les visualiser en passant la souris dessus la réservation ou en cliquant dessus pour faire apparaitre le commentaire.

Mais je ne sais pas comment faire

Amicalement

Bonjour

Là, c'est un sujet pour un expert VBA.

Il me semble que Dubois a fait un truc de ce genre pour Adrien. S'il passe, il nous en dira peut-être plus.

Cordialement

merci de ton aide

bonjour,

tu peux quand même utiliser les commentaires. Ajoute remplace la fonction MiseEnFormeReservation du Userform de réservation par celle-ci:

Private Function MiseEnFormeReservation(NomFeuille As String) As Boolean
  Dim resultat As Boolean, FirstCel As String
  'On Error GoTo fin
  ' Déprotéger la feuille
  Call Protection(NomFeuille, False)
  ' Faire la mise en forme
  With Sheets(NomFeuille)
    ' Inscrire le nom dans la première cellule
    FirstCel = Left(MaPlage.Address, InStr(1, MaPlage.Address, ":") - 1)
    .Range(FirstCel).Value = Me.ComboNomUtilisateur
    With .Range(MaPlage.Address)
    .Merge
    .Interior.ColorIndex = CouleurUser
    '.HorizontalAlignment = xlCenter
    .HorizontalAlignment = xlCenterAcrossSelection
    .Borders(xlEdgeLeft).LineStyle = xlContinuous
    .Borders(xlEdgeTop).LineStyle = xlContinuous
    .Borders(xlEdgeBottom).LineStyle = xlContinuous
    .Borders(xlEdgeRight).LineStyle = xlContinuous
    'Lignes ajouté *********************************
    Sheets(NomFeuille).Range(FirstCel).AddComment Text:=Commentaire.Text
    '***********************************************
    End With
  End With
  resultat = True
fin:
  MiseEnFormeReservation = resultat
  ' Protéger la feuille
  Call Protection(NomFeuille, True)
End Function

et dans le code du userform de suppression:

Private Sub MiseEnFormeReservation(NomFeuille As String, Plage As String)
' Déprotéger la feuille
  Call Protection(NomFeuille, False)
  ' Faire la mise en forme
  With Sheets(NomFeuille).Range(Plage)
    .ClearContents
    .Interior.ColorIndex = xlNone
    .HorizontalAlignment = xlLeft
    .Borders(xlEdgeLeft).LineStyle = xlNone
    .Borders(xlEdgeTop).LineStyle = xlNone
    .Borders(xlEdgeBottom).LineStyle = xlNone
    .Borders(xlEdgeRight).LineStyle = xlNone
    ' Ligne ajoutée********************************
    .ClearComments
    ' *********************************************
  End With
  ' Protéger la feuille
  Call Protection(NomFeuille, True)
End Sub

Bonjour le Math et le forum

J'ai installé ta modif qui marche à merveille

Par contre serait il possible de faire apparaitre les commentaires au passage de la souris ou sur un clique et les faire disparaitre car il faut oter la protection pour modifier les paramètres du commentaire.

En tout cas merci beaucoup et bonne journée à tous

-- 27 Mai 2010, 10:39 --

problème résolu

merci à tous