Discussion :

[Argorate]

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.

[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 :

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

1
2
3
4
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 MsgBox "Double Clic sur " & Target.Address
End Sub

[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!

[AlainTech]

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

Code :

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

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

[Argorate]

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

Code :

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

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 :

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

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!

[SfJ5Rpw8]

supprime les lignes

Code :

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

 [A1].Select

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

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

[AlainTech]

supprime les lignes

Code :

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

 [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