msgbox si texte dans une plage de cellule

[drisou]

bonjour, je souhaiterais avoir une msgbox qui se lance lorsque j ai une donné dans une cellule comprise dans une plage de cellule . par ex : colonne b5a b50 si j ai un texte dans une de ces cellules je voudrais qu une msgbox s ouvre et me donne la reference de la cellule ou est inscrit le texte.ca serait donc une macro qui s execute des que la feuille 1 est activée. merci pour votre en esperant que je suis clair.

 

[JPM]

Bonjour,

Voici une procédure à copier sur le module de la feuille 1 :
- clic droit sur feuil1
- visualiser le code
- coller le texte suivant

'affiche l'adresse et me contenu des cellules non vide sur la plage B5 à B50
Private Sub Worksheet_Activate()
  Dim c As Range, msg As String
  msg = ''
  For Each c In Range('B5:B50')
    If Not IsEmpty(c) Then
      msg = msg & c.Address & ' : ' & c.Text & vbCrLf
    End If
  Next
  If Not msg = '' Then MsgBox msg
End Sub

bonne réception

Jean-Pierre

 

[drisou]

bonjour jpm et le forum, ta methode fonctionne super bien , pile ce que je cherchais. je te remercie beaucoup et bonne journée.