Zone de texte VBA

Bonsoir

J'aimerai avoir une zone de texte qui s'affiche automatiquement en cliquant sur une cellule bien précise

Par exemple en cliquant sur la cellul B5 une zone de texte apparaît et on re cliquant sur la même cellule la zone de texte disparaît.

Est ce que quelqu'un puisse m'aider car j'arrive pas a inserer le code.

Voici joint en PJ ce que j'essaye d'avoir, (j'ai mi des commentaires pour être plus explicatif)

Merci

Bonjour,

voici un exemple avec l'événement Worksheet_SelectionChange

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$B$5" Then
  If ActiveSheet.Shapes.Range(Array("TextBox 1")).Visible Then
     ActiveSheet.Shapes.Range(Array("TextBox 1")).Visible = False
  Else
     ActiveSheet.Shapes.Range(Array("TextBox 1")).Visible = True
  End If
End If
End Sub

Bonjour Zaki1993, le forum,

Un essai avec messagebox:

• la msgbox s'affiche si tu cliques sur B5
• Tu quittes msgbox en cliquant sur ok

A placer dans le module de la feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

 If Target.Address = "$B$5" Then MsgBox "Ton Texte", vbOKOnly  'remplace Ton texte par ce que tu veux

End Sub

Cordialement,

Merci beaucoup

Bonjour à toutes et à tous,

Autre possibilité :

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$B$5" Then ActiveSheet.Shapes("Zone_de_texte").Visible = IIf _
       (ActiveSheet.Shapes("Zone_de_texte").Visible = True, False, True): [b6].Select
End Sub

Bonjour

Lorsque j’insère le code il est exécuté seulement sur les cellule M117 et M121 alors que je voudrai l'avoir sur toute les cellule (M125, M129, M133, jusqu'a M185)

comment faire pour l'inserer ? svp

Merci.

Bonjour Zaki1993,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set isect = Application.Intersect(Target, Union(Range("M125"), Range("M129"), Range("M133:M185")))
If Not isect Is Nothing Then
    MsgBox Target.Address
End If
End Sub