réessayer

4 réponses

pierre

26/01/2004 à 20:24

bonsoir à tous(tes)
j'ai un inputbox qui me renvoie,en cas d'erreur de saisie,à un msgbox avec 2
boutons: ok et réessayer
comment faire pour que quand je clique sur réessayer je revienne à mon
inputbox?
comment faire aussi pour que ma proc se lance quand je sélectionne la 1°
cellule?

merci de vos réponses

begin 666 pierre.vcf
M0D5'24XZ5D-!4D0-"E9%4E-)3TXZ,BXQ#0I..CMP:65R<F4-"D9..G!I97)R
M90T*14U!24P[4%)%1CM)3E1%4DY%5#HB>'!I97)R934R>") =&ES8V%L:2YF
D<@T*4D56.C(P,#0P,3(V5#$Y,C0T,UH-"D5.1#I60T%21 T*
`
end

4 réponses

Père Brossollette

26/01/2004 à 22:51

Salut

un essai
Sub TEST()
debut:
rep = InputBox("Saisissez")
If rep = "" Then
rep1 = MsgBox("Vous voulez-vous ?", vbAbortRetryIgnore)
If rep1 = vbRetry Then GoTo debut
End If
End Sub

2-
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then MsgBox "tot"
End Sub

Père R. Brossollette
"pierre" <"xpierre52x"@tiscali.fr> a écrit dans le message de
news:

bonsoir à tous(tes)
j'ai un inputbox qui me renvoie,en cas d'erreur de saisie,à un msgbox avec
2

boutons: ok et réessayer
comment faire pour que quand je clique sur réessayer je revienne à mon
inputbox?
comment faire aussi pour que ma proc se lance quand je sélectionne la 1°
cellule?

merci de vos réponses

Père Brossollette

26/01/2004 à 23:07

oups ! correctif

2-
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then TaMacro> End Sub

Père R. Brossollette
"Père Brossollette" a écrit dans le message de
news:%

Salut

un essai
Sub TEST()
debut:
rep = InputBox("Saisissez")
If rep = "" Then
rep1 = MsgBox("Vous voulez-vous ?", vbAbortRetryIgnore)
If rep1 = vbRetry Then GoTo debut
End If
End Sub

2-
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then MsgBox "tot"
End Sub

Père R. Brossollette
"pierre" <"xpierre52x"@tiscali.fr> a écrit dans le message de
news:
bonsoir à tous(tes)
j'ai un inputbox qui me renvoie,en cas d'erreur de saisie,à un msgbox
avec

2
boutons: ok et réessayer
comment faire pour que quand je clique sur réessayer je revienne à mon
inputbox?
comment faire aussi pour que ma proc se lance quand je sélectionne la 1°
cellule?

merci de vos réponses

pierre

27/01/2004 à 08:14

merci beaucoup mon Père

"Père Brossollette" a écrit dans le message news:

oups ! correctif
2-
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then TaMacro> End Sub

Père R. Brossollette
"Père Brossollette" a écrit dans le message de
news:%
Salut

un essai
Sub TEST()
debut:
rep = InputBox("Saisissez")
If rep = "" Then
rep1 = MsgBox("Vous voulez-vous ?", vbAbortRetryIgnore)
If rep1 = vbRetry Then GoTo debut
End If
End Sub

2-
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then MsgBox "tot"
End Sub

Père R. Brossollette
"pierre" <"xpierre52x"@tiscali.fr> a écrit dans le message de
news:
bonsoir à tous(tes)
j'ai un inputbox qui me renvoie,en cas d'erreur de saisie,à un msgbox
avec

2
boutons: ok et réessayer
comment faire pour que quand je clique sur réessayer je revienne à mon
inputbox?
comment faire aussi pour que ma proc se lance quand je sélectionne la
1°

cellule?

merci de vos réponses

pierre

27/01/2004 à 15:11

encore merci après quelques tatonnements dûs aux adaptations tout fonstionne
pourait on me dire comment régler la taille et la position des input et
msgbox
merci de votre aide toujours juste ,rapide et aimable

"Père Brossollette" a écrit dans le message news:

oups ! correctif
2-
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then TaMacro> End Sub

Père R. Brossollette
"Père Brossollette" a écrit dans le message de
news:%
Salut

un essai
Sub TEST()
debut:
rep = InputBox("Saisissez")
If rep = "" Then
rep1 = MsgBox("Vous voulez-vous ?", vbAbortRetryIgnore)
If rep1 = vbRetry Then GoTo debut
End If
End Sub

2-
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then MsgBox "tot"
End Sub

Père R. Brossollette
"pierre" <"xpierre52x"@tiscali.fr> a écrit dans le message de
news:
bonsoir à tous(tes)
j'ai un inputbox qui me renvoie,en cas d'erreur de saisie,à un msgbox
avec

2
boutons: ok et réessayer
comment faire pour que quand je clique sur réessayer je revienne à mon
inputbox?
comment faire aussi pour que ma proc se lance quand je sélectionne la
1°

cellule?

merci de vos réponses

réessayer

4 réponses

Veuillez sélectionner un problème