Discussion :

[fekapic]

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 !

[anasecu]

Bonjour,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Menhir]

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.

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).

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

[Igloobel]

... 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 )

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

...
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

[Menhir]

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

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.

[fekapic]

Bonjour,

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

Bonne journée

[Menhir]

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)