[VBA-E] afficher un ALERT en cliquant sur une case d'excel

Version imprimable

06/08/2006, 19h14
Argorate

[VBA-E] afficher un ALERT en cliquant sur une case d'excel

Bonjour,
Mon pb est de retrouver le code permetant, en cliquant sur une case d'Excel (Microsoft office), d'afficher une fenêtre d'alert,(pareil qu'en JS) sauf qu'Excel il faut du VB, donc si vous avez le code ainsi que les instructions presisent de où? comment? faire avec votre citation de code pour qu'il marche, merci de me le comuniquer.
06/08/2006, 19h38
SfJ5Rpw8
on manque un peu d'info... mais .. tout d'abords tu va dans l'éditeur VBE.. Outils/Macros/visual basic editor ( ou ALT F11) ... puis dans l'arborescence à gauche ... un clic avec le bouton droit de la souris sur la feuille concernée.. puis code... puis
Code:

1 2 3 4 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) MsgBox "Double Clic sur " & Target.Address End Sub
06/08/2006, 20h03
Argorate

Merci, je vais donc précisez ma demande : il faut que je puisse écrire le commentaire de mon choix qui s'affiche dans l'alert, et de plus, je préférerais une "vrai" alert en un clique seulement, et pour finir il faut que cela fasse une alert uniquement dans une case, celle de mon choix, donc pour le code prenez juste un exemple.
Merci déjà pour savoir ou placer le code!

Puisque tu ne veux qu'un exemple de code, en voici un:

Code:

1
2
3
4
5
6
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect(Target, [A2]) Is Nothing Then
    MsgBox "Le message de ton choix"
    [A1].Select
  End If
End Sub

Concernant l'alerte, celle de AlainTech est très bien, par contre si je veux refaire le code dans une autre code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect(Target, [A1]) Is Nothing Then
    MsgBox "test1"
    [A1].Select
  End If
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect(Target, [A2]) Is Nothing Then
    MsgBox "test2"
    [A1].Select
  End If
End Sub

Il aime pas, ensuite j'ai tester :

Code:

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect(Target, [A1]) Is Nothing Then
    MsgBox "test1"
    [A1].Select
  End If
 
  If Not Intersect(Target, [A2]) Is Nothing Then
    MsgBox "test2"
    [A1].Select
  End If
End Sub

Cela marche mais je clique sur la case A2, sa me met test2 puis sa enchaine sur test1 alors que je n'ai pas cliqué sur la case A1, y a t-il moyen d'arranger cela?
Merci!

06/08/2006, 21h40
SfJ5Rpw8

supprime les lignes

Code:

[A1].Select

j'ai pas compris à quoi elles servent..?
06/08/2006, 21h49
Argorate

Justement c'est se qui apparemment causait le problème, ça marche, quand j'appuis ça affiche que se que j'ai dis qu'il fallait affiche en cliquant sur la case.

Merci, si je découvre d'autre Pb je vous ferai signe.
07/08/2006, 05h02
AlainTech

Citation:

Envoyé par bbil

supprime les lignes

Code:

[A1].Select

j'ai pas compris à quoi elles servent..?

Simplement que nous sommes dans un événement SelectionChange.
Je m'attendais à un "Ca marche pas si je clique sur le cellule déjà sélectionnée"...
Donc, je change la sélection après l'alerte (dans mon idée, vers une cellule sur laquelle l'alerte n'a pas de raison d'être).
CQFD :mouarf: