Bonjour,
Dans un classeur,j'ai une textbox (sur une userform) qui envoie une date
dans une cellule spécifiée à l'aide d'une inputbox, la plage de réception
doit être F2:F10, sinon il y a message d'erreur par mgbox, cependant j'ai la
mgbox qui s'affiche même si c'est une cellule de la plage F2:F10 qui est
sélectionnée.Comment formuler la ligne ou est écrit if madate.adress <>
range("F2:F10").
Private Sub TextBox2_Change()
Dim madate As range
Set madate = Application.InputBox(prompt:="Sélectionnez la cellule",
Title:="Prise en compte de la date", Left:=3, Top:=80, Type:=8)
If madate.Address <> range("F2:F10").Address Then
MsgBox "Choisir la plage F2 à F10"
End If
madate = TextBox2
utiliser la fonction Intersect de la classe d'objets Application. Regarde l'aide , elle est bien faite pour cette fonction. If Intersect(madate, Range("F2:F10")) Is Nothing Then MsgBox "Choisir la plage F2 à F10"
A+
On 9 fév, 14:31, "colette" wrote:
Bonjour, Dans un classeur,j'ai une textbox (sur une userform) qui envoie une date dans une cellule spécifiée à l'aide d'une inputbox, la plage de r éception doit être F2:F10, sinon il y a message d'erreur par mgbox, cependant j' ai la mgbox qui s'affiche même si c'est une cellule de la plage F2:F10 qui est sélectionnée.Comment formuler la ligne ou est écrit if madate.adres s <> range("F2:F10"). Private Sub TextBox2_Change() Dim madate As range Set madate = Application.InputBox(prompt:="Sélectionnez la cellule", Title:="Prise en compte de la date", Left:=3, Top:€, Type:=8) If madate.Address <> range("F2:F10").Address Then
MsgBox "Choisir la plage F2 à F10" End If madate = TextBox2
End Sub Merci pour la réponse
Bonjour,
utiliser la fonction Intersect de la classe d'objets Application.
Regarde l'aide , elle est bien faite pour cette fonction.
If Intersect(madate, Range("F2:F10")) Is Nothing Then MsgBox "Choisir
la plage F2 à F10"
A+
On 9 fév, 14:31, "colette" <colettegu...@free.fr> wrote:
Bonjour,
Dans un classeur,j'ai une textbox (sur une userform) qui envoie une date
dans une cellule spécifiée à l'aide d'une inputbox, la plage de r éception
doit être F2:F10, sinon il y a message d'erreur par mgbox, cependant j' ai la
mgbox qui s'affiche même si c'est une cellule de la plage F2:F10 qui est
sélectionnée.Comment formuler la ligne ou est écrit if madate.adres s <>
range("F2:F10").
Private Sub TextBox2_Change()
Dim madate As range
Set madate = Application.InputBox(prompt:="Sélectionnez la cellule",
Title:="Prise en compte de la date", Left:=3, Top:=80, Type:=8)
If madate.Address <> range("F2:F10").Address Then
MsgBox "Choisir la plage F2 à F10"
End If
madate = TextBox2
utiliser la fonction Intersect de la classe d'objets Application. Regarde l'aide , elle est bien faite pour cette fonction. If Intersect(madate, Range("F2:F10")) Is Nothing Then MsgBox "Choisir la plage F2 à F10"
A+
On 9 fév, 14:31, "colette" wrote:
Bonjour, Dans un classeur,j'ai une textbox (sur une userform) qui envoie une date dans une cellule spécifiée à l'aide d'une inputbox, la plage de r éception doit être F2:F10, sinon il y a message d'erreur par mgbox, cependant j' ai la mgbox qui s'affiche même si c'est une cellule de la plage F2:F10 qui est sélectionnée.Comment formuler la ligne ou est écrit if madate.adres s <> range("F2:F10"). Private Sub TextBox2_Change() Dim madate As range Set madate = Application.InputBox(prompt:="Sélectionnez la cellule", Title:="Prise en compte de la date", Left:=3, Top:€, Type:=8) If madate.Address <> range("F2:F10").Address Then
MsgBox "Choisir la plage F2 à F10" End If madate = TextBox2
