Msgbox suite à une écriture d'un mot spécifique

Bonjour,

Je tâtonne un peu sur VBA depuis peu et j'ai pour "mission" de faire apparaitre une msgbox à chaque fois qu'un mot spécifique est entré dans un planning (le mot peut se retrouver au milieu d'une phrase). J'ai essayé diverses solutions à base de Instr etc sans succès (au mieux j'ai eu une msgbox qui s'ouvrait en boucle). Etant technicien de laboratoire, je n'ai pas vraiment de formation en prog avec VBA à part internet et ce site magique ;)

En gros je voudrais qu'en rajoutant "motatester" dans une case du planning (donc une plage de donnée allant de A1 à H50) seul ou dans une phrase, qu'une msgbox s'affiche et que l'on puisse la fermer sans qu'elle ne se réouvre sauf si "motatester" est entré de nouveau.

Ce projet est il possible? Serait il possible d'avoir une trame dégrossie que je pourrai affiner par moi même? (j'aime bien me débrouiller seul mais la je sèche).

Merci et bonne journée !

Bonjour,

Citation:

---

Envoyé par fekapic

Ce projet est il possible? Serait il possible d'avoir une trame dégrossie que je pourrai affiner par moi même?

---

Avec ce début de code mis dans la feuille concernée tu devrais pouvoir te débrouiller

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Not Intersect(Target, Range("A1:H50")) Is Nothing Then If InStr(Target.Value, "motatester") > 0 Then MsgBox "c'est saisi !" End If End Sub

---

Citation:

---

Envoyé par fekapic

J'ai essayé diverses solutions à base de Instr etc sans succès

---

Peut-être pourrais-tu présenter le code que tu as tenté pour qu'il soit possible de t'indiquer quelles erreurs tu as commises.

Citation:

---

je n'ai pas vraiment de formation en prog avec VBA

---

Comme l'écrasante majorités de ceux qui utilisent le VBA (participants à ce forum compris).

Citation:

---

En gros je voudrais qu'en rajoutant "motatester" dans une case du planning (donc une plage de donnée allant de A1 à H50) seul ou dans une phrase, qu'une msgbox s'affiche et que l'on puisse la fermer sans qu'elle ne se réouvre sauf si "motatester" est entré de nouveau.

---

Dans une macro évènementielle Worksheet_Change, tu commences par vérifier que la cellule saisie est dans la zone souhaitée en utilisant Intersect.
Ensuite, tu fais un test sur sa valeur avec un InStr(). Si cette fonction renvoie une valeur supérieure à 0, tu affiches ta MsgBox.
Lire ça :
https://msdn.microsoft.com/fr-fr/lib...5(v=office.15)
https://docs.microsoft.com/fr-fr/off...tion.intersect
https://docs.microsoft.com/fr-fr/off...else-statement
https://docs.microsoft.com/fr-fr/off...instr-function

Citation:

---

Envoyé par Menhir

... Dans une macro évènementielle Worksheet_Change, tu commences par vérifier que la cellule saisie est dans la zone souhaitée en utilisant Intersect ...

---

Etant moins doué que Menhir j'utilise pas Intersect (par méconnassance j'avoue :aie: )

par contre j'utilise Target.row et Target.column (Target représentant la cellule dont la valeur a été changée perso je trouve cela plus représentatif

Donc deux façon de faire

Citation:

---

Envoyé par Menhir

...
Ensuite, tu fais un test sur sa valeur avec un InStr(). Si cette fonction renvoie une valeur supérieure à 0, tu affiches ta MsgBox.
Lire ça :
https://msdn.microsoft.com/fr-fr/lib...5(v=office.15)
https://docs.microsoft.com/fr-fr/off...tion.intersect
https://docs.microsoft.com/fr-fr/off...else-statement
https://docs.microsoft.com/fr-fr/off...instr-function

---

Bon j'irai voir ton deuxième lien Menhir ;)

Sinon n'oublie pas de faire F1 car il y a plein d'info dans l'aide en ligne

Citation:

---

Envoyé par Igloobel

Etant moins doué que Menhir j'utilise pas Intersect (par méconnassance j'avoue :aie: )

---

C'est comme beaucoup d'autres choses : il suffit de l'avoir fait une fois pour comprendre le truc. ;)

En gros, Intersect renvoie la zone commune des zones spécifiée dans ses paramètres.
Si elle renvoie Nothing, c'est qu'il n'y a rien de commune.

Donc, si on met comme paramètres Target et la zone souhaitée, un résultat Nothing indique que Target n'est pas dans la zone souhaitée.

Bonjour,

Ca fonctionne à merveille, je vais maintenant approfondir les fonctions target.count etc pour bien comprendre mais merci :)

Bonne journée

Citation:

---

Envoyé par fekapic

je vais maintenant approfondir les fonctions target.count etc pour bien comprendre

---

Tu ne trouveras pas Target dans l'aide.
Ici, c'est le nom d'une variable (tu pourrais le remplacer par n'importe quel autre nom si tu le souhaites).
Il faut plutôt chercher Range > Count. C'est une propriété qui compte le nombre de cellules d'une zone (Range).
https://msdn.microsoft.com/fr-fr/lib...9(v=office.15)