msgbox si texte dans une plage de cellule

drisou

XLDnaute Occasionnel
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.
 
J

JPM

Guest
Bonjour,

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

Code:
'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
 

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
300 761
Messages
1 987 017
Membres
209 680
dernier inscrit
frobleyy