XL 2010 faire apparaitre un info sur sélection d'un cellule

[jeanmi]

Bonjour à tous,

j'avais trouvé sur le forum un fichier qui réalisé ce que je souhaiterai faire, mais j'ai pas compris comment et je ne retrouve pas qui avait proposé cette méthode.

Voici en image ce que je cherche à faire :
case sélectionnée = affichage sur ce qui est attendu.
Merci pour votre aide.
Cordialement

 

[Hasco]

bonjour,

Voir l'onglet message de saisie de la validation des données :

Cordialement

 

[jeanmi]

bonjour,

Voir l'onglet message de saisie de la validation des données :
Regarde la pièce jointe 1127931
Cordialement

Bonjour @Hasco à tous,

Merci pour cette réponde des plus rapide est claire.
Apparemment la position de ces info est toujours la même pour toutes les cellules.

Cordialement

 

[patricktoulon]

bonjour
dynamico on ferait comme ceci
dans le module de la feuille concernée
exemple pour la plage A1:A100

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With Target
        If .Column = 1 Then
            Range("A1:A100").ClearComments
            Target.AddComment
            With .Comment.Shape
                .Width = 200
                .Height = 20
                .IncrementLeft -Target.Width
                .IncrementTop Target.Height * 2
            End With
            .Comment.Text Text:="Attention !! Format de saisie :"" --/--/20--"""
            Target.Comment.Visible = True
        Else
            Range("A1:A100").ClearComments
        End If
    End With
End Sub

demo

 

[patricktoulon]

re
et pour le fun un peu de design sur le commentaire

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With Target
        If .Column = 1 Then
            Range("A1:A100").ClearComments
            Target.AddComment
            With .Comment.Shape
                .TextFrame.Characters.Font.ColorIndex = 2
                .TextFrame.Characters.Font.Bold = True
                .AutoShapeType = 5
                .Width = 200
                .Height = 20
                .IncrementLeft -Target.Width
                .IncrementTop Target.Height * 2
                .Fill.ForeColor.RGB = vbRed
                .Fill.OneColorGradient 3, 1, 0.27
                .TextFrame.Characters.Font.Color = vbWhite
            End With
            .Comment.Text Text:="Attention !! Format de saisie :"" --/--/20--"""
            Target.Comment.Visible = True
        Else
            Range("A1:A100").ClearComments
        End If
    End With
End Sub

c'est beau non ?😉