MsgBox dans une plage de cellule

[jmw]

Bonjour,

je débute en vba et j'aimerai mettre un message dans une plage de cellule dés que l'on click dessus.Voici ou j'en suis, ça fonctionne mes sur toutes les cellules et non sur une plage:

Private Sub worksheet_selectionchange(byval target as range)
If"1"then
msgbox("attention")
end if
end sub

merci

 

[Guest]

Re : MsgBox dans une plage de cellule

Bonjour Jmw,

Où il faut remplacer A1:C10 par l'adresse de ta plage de cellules

Private Sub worksheet_selectionchange(byval target as range)
If not Intersect(Target, Range("A1:C10")) Is Nothing Then
   If Target.Cells(1,1)="1"then
      msgbox("attention")
   end if
End if
end sub

Target est la plage selectionnée
Target.cells(1,1) est la première cellule de la plage
Intersect retourne l'intersection de deux ou plusieurs plages.
A+

 

[Dull]

Re : MsgBox dans une plage de cellule

Salut jmw, le Forum

peut être comme cela

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1:A10")) Is Nothing Then
'...TonCode
End If
End Sub

A modifier ta plage
Quoique j'ai pas saisi le If "1" then 😱

Edition: Salut Gérard 🙂 Maisbonssangc'estbiensur...
Bonne Journée

 

[job75]

Re : MsgBox dans une plage de cellule

Bonjour jmw,

Par exemple pour la plage A1:C10 :

Private Sub Worksheet_SelectionChange(ByVal Target as Range)
Dim Plage As Range
Set Plage = Range("A1:C10")
If Not Intersect(Target, Plage) Is Nothing Then
MsgBox "attention"
End If
End Sub

Edit : bonjour Hasco, Dull, pas rafraichi 🙂, ce qui est drôle Hasco c'est qu'on a pris la même plage 🙂

A+

 

[jmw]

Re : MsgBox dans une plage de cellule

merci,

c'est parfait!