XL 2016 Message box identique sur plusieurs cellules

RoseP · 21 Octobre 2022

Bonjour à tous,

Je souhaite qu'une fenêtre s'affiche à l'écran avec un bouton "ok" lorsque l'on écrit quelques choses dans une cellule,
Un tableau sera probablement plus parlant... :

A	B
test	1
test	2

Souhait : un message box s'affiche lorsque l'on écrit dans les lignes de la colonne B.

J'avais commencé ma macro avec le code suivant :

VB:

Sub mess()
'texte directement introduit dans le code
MsgBox "Merci de préciser la raison dans les commentaires"
End Sub

Mais je ne parviens pas à la liée aux cellules...

Je vous remercie par avance pour votre aide.

Bonne journée

Eric C · 21 Octobre 2022

Bonjour le forum
Bonjour RoseP

Essaie ceci :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B:B")) Is Nothing Then
If Target.Value <> "" Then
MsgBox "Merci de préciser la raison dans les commentaires"
End If
End If
End Sub

Bonne journée
@+ Eric c

Eric C · 21 Octobre 2022

Bonjour le forum
Bonjour RoseP

Essaie ceci :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B:B")) Is Nothing Then
If Target.Value <> "" Then
MsgBox "Merci de préciser la raison dans les commentaires"
End If
End If
End Sub

Bonne journée
@+ Eric c

RoseP · 21 Octobre 2022

Eric C à dit:
Bonjour le forum
Bonjour RoseP

Essaie ceci :

VB:

Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("B:B")) Is Nothing Then If Target.Value <> "" Then MsgBox "Merci de préciser la raison dans les commentaires" End If End If End Sub

Bonne journée
@+ Eric c

Bonjour @Eric C , merci de votre réponse, c'est effectivement ce que je cherche à réaliser.
Est-il possible de m'expliquer comment vous avez réaliser cela ? car je ne parviens pas à l'intégrer à mon fichier.
Merci par avance

Bonne journée!

Eric C · 21 Octobre 2022

Re le fil

Commentaires dans le code - Il n'est pas évident de répondre à la demande sans fichier anonymisé joint

VB:

Private Sub Worksheet_Change(ByVal Target As Range)            
'C'est une macro événementielle qui réagit chaque fois qu'on modifie une cellule dans la feuille
If Not Application.Intersect(Target, Range("B:B")) Is Nothing Then
   'Condition 1) On veut une action quand on Clique n'importe où dans la colonne "B" uniquement
If Target.Value <> "" Then                                          
'Condition 2) Si on entre une valeur dans la cellule (cellule n'est pas "vide") alors, à la sortie
MsgBox "Merci de préciser la raison dans les commentaires"          
 'le message apparaît
End If  
'Fin de condition
End If
'Idem
End Sub
'Fin de procédure

Bonne journée
@+ Eric c

RoseP · 21 Octobre 2022

j'ai mis du temps mais j'ai fini par comprendre... (je suis encore très novice en VBA... mais j'ai la volonté de vouloir réussir!)

maintenant que j'ai compris exactement ce que vous me disiez; si je souhaitais faire apparaitre ce message box entre B1 et B6, ainsi que sur B10 jusqu'à B15,
comment puis-je le faire?

Merci @Eric C

Eric C · 21 Octobre 2022

Re le fil
Voici le code :

VB:

If Not Application.Intersect(Target, Range("B1:B6, B10:B15")) Is Nothing Then

Cela fait toujours plaisir de savoir que la contribution a aidé (ou pas).
N'hésitez pas à marquer le sujet comme solutionné le cas échéant (à droite du post) ou à liker.

Bonne après-midi à toutes & à tous

@+ Eric c

RoseP · 21 Octobre 2022

merci beaucoup, j'avais essayé avec la virgule, j'avais l'espace après... pourtant c'est comme en français : toujours un espace après la virgule!!!
Encore merci pour votre patience et votre aide!

Bonne après-midi à tous

XL 2016 Message box identique sur plusieurs cellules

RoseP

XLDnaute Nouveau

Eric C

Eric C

XLDnaute Barbatruc

Pièces jointes

RoseP

XLDnaute Nouveau

Eric C

XLDnaute Barbatruc

RoseP

XLDnaute Nouveau

Eric C

XLDnaute Barbatruc

RoseP

XLDnaute Nouveau

Discussions similaires