Bonsoir
j'ai 2 colonnes
dans la 1ère D3:D102 je saisi obligatoirement soit "4,5 jours" soit "5
jours"
si je saisi 4,5 jours une cellule dans D3:D102 je dois saisir
obligatoirement quelque chose à droite de cette cellule dans E3:E102
Je souhaite que le test se fasse en quittant la feuille par un bouton en
lançant un msgbox
Merci beaucoup
Flo riant
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Patrick BASTARD
Bonjour, *Florian* J'ai lu ton post avec le plus grand intéret :
Et pourquoi pas une mise en forme conditionnelle de E3:E102: Sélectionne E3:E102, Format, Mise en forme conditionnelle, La formule est =et(D3=4,5;E3=""), et choisir une couleur qui "pète" pour attirer l"attention de l'utilisateur. Elle disparaîtra une fois la saisie effectuée.
Cela te convient-il ?
-- Bien amicordialement, P. Bastard
Bonsoir j'ai 2 colonnes dans la 1ère D3:D102 je saisi obligatoirement soit "4,5 jours" soit "5 jours" si je saisi 4,5 jours une cellule dans D3:D102 je dois saisir obligatoirement quelque chose à droite de cette cellule dans E3:E102 Je souhaite que le test se fasse en quittant la feuille par un bouton en lançant un msgbox Merci beaucoup Flo riant
Bonjour, *Florian*
J'ai lu ton post eTOXnozfFHA.2644@TK2MSFTNGP09.phx.gbl
avec le plus grand intéret :
Et pourquoi pas une mise en forme conditionnelle de E3:E102:
Sélectionne E3:E102, Format, Mise en forme conditionnelle,
La formule est =et(D3=4,5;E3=""), et choisir une couleur qui "pète" pour
attirer l"attention de l'utilisateur. Elle disparaîtra une fois la saisie
effectuée.
Cela te convient-il ?
--
Bien amicordialement,
P. Bastard
Bonsoir
j'ai 2 colonnes
dans la 1ère D3:D102 je saisi obligatoirement soit "4,5 jours" soit "5
jours"
si je saisi 4,5 jours une cellule dans D3:D102 je dois saisir
obligatoirement quelque chose à droite de cette cellule dans E3:E102
Je souhaite que le test se fasse en quittant la feuille par un bouton
en lançant un msgbox
Merci beaucoup
Flo riant
Bonjour, *Florian* J'ai lu ton post avec le plus grand intéret :
Et pourquoi pas une mise en forme conditionnelle de E3:E102: Sélectionne E3:E102, Format, Mise en forme conditionnelle, La formule est =et(D3=4,5;E3=""), et choisir une couleur qui "pète" pour attirer l"attention de l'utilisateur. Elle disparaîtra une fois la saisie effectuée.
Cela te convient-il ?
-- Bien amicordialement, P. Bastard
Bonsoir j'ai 2 colonnes dans la 1ère D3:D102 je saisi obligatoirement soit "4,5 jours" soit "5 jours" si je saisi 4,5 jours une cellule dans D3:D102 je dois saisir obligatoirement quelque chose à droite de cette cellule dans E3:E102 Je souhaite que le test se fasse en quittant la feuille par un bouton en lançant un msgbox Merci beaucoup Flo riant
Florian
Bonsoir Patrick et merci pour ton aide, en fait j'ai mis dans le worksheets un truc que j'ai bricolé avec de la récup ;-)
Private Sub Worksheet_Change(ByVal Target As Range) With Target If Not Intersect([D3:D102], Target) Is Nothing And .Cells.Count = 1 Then If .Value = "4,5 jours" And .Offset(0, 1) = "" Then .Offset(0, 1).Select MsgBox "Vous devez choisir une demi-journée de fermeture ici !", vbInformation, _ " Demi-journée de fermeture ?" Call Clignote_cell End If End If End With End Sub
l'utilisateur voit où il doit saisir, mais le pb est que malgré tout, il peut en oublier, et il ne faut pas qu'il puisse quitter la feuille si tout n'est pas correctement saisi. Flo riant
"Patrick BASTARD" a écrit dans le message de news:
Bonjour, *Florian* J'ai lu ton post avec le plus grand intéret :
Et pourquoi pas une mise en forme conditionnelle de E3:E102: Sélectionne E3:E102, Format, Mise en forme conditionnelle, La formule est =et(D3=4,5;E3=""), et choisir une couleur qui "pète" pour attirer l"attention de l'utilisateur. Elle disparaîtra une fois la saisie effectuée.
Cela te convient-il ?
-- Bien amicordialement, P. Bastard
Bonsoir j'ai 2 colonnes dans la 1ère D3:D102 je saisi obligatoirement soit "4,5 jours" soit "5 jours" si je saisi 4,5 jours une cellule dans D3:D102 je dois saisir obligatoirement quelque chose à droite de cette cellule dans E3:E102 Je souhaite que le test se fasse en quittant la feuille par un bouton en lançant un msgbox Merci beaucoup Flo riant
Bonsoir Patrick et merci pour ton aide,
en fait j'ai mis dans le worksheets un truc que j'ai bricolé avec de la
récup ;-)
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If Not Intersect([D3:D102], Target) Is Nothing And .Cells.Count = 1 Then
If .Value = "4,5 jours" And .Offset(0, 1) = "" Then
.Offset(0, 1).Select
MsgBox "Vous devez choisir une demi-journée de fermeture ici !",
vbInformation, _
" Demi-journée de fermeture ?"
Call Clignote_cell
End If
End If
End With
End Sub
l'utilisateur voit où il doit saisir, mais le pb est que malgré tout, il
peut en oublier, et il ne faut pas qu'il puisse quitter la feuille si tout
n'est pas correctement saisi.
Flo riant
"Patrick BASTARD" <pasdespambastardp@freepasdespam.fr> a écrit dans le
message de news: u59n7xzfFHA.3448@TK2MSFTNGP12.phx.gbl...
Bonjour, *Florian*
J'ai lu ton post eTOXnozfFHA.2644@TK2MSFTNGP09.phx.gbl
avec le plus grand intéret :
Et pourquoi pas une mise en forme conditionnelle de E3:E102:
Sélectionne E3:E102, Format, Mise en forme conditionnelle,
La formule est =et(D3=4,5;E3=""), et choisir une couleur qui "pète" pour
attirer l"attention de l'utilisateur. Elle disparaîtra une fois la saisie
effectuée.
Cela te convient-il ?
--
Bien amicordialement,
P. Bastard
Bonsoir
j'ai 2 colonnes
dans la 1ère D3:D102 je saisi obligatoirement soit "4,5 jours" soit "5
jours"
si je saisi 4,5 jours une cellule dans D3:D102 je dois saisir
obligatoirement quelque chose à droite de cette cellule dans E3:E102
Je souhaite que le test se fasse en quittant la feuille par un bouton
en lançant un msgbox
Merci beaucoup
Flo riant
Bonsoir Patrick et merci pour ton aide, en fait j'ai mis dans le worksheets un truc que j'ai bricolé avec de la récup ;-)
Private Sub Worksheet_Change(ByVal Target As Range) With Target If Not Intersect([D3:D102], Target) Is Nothing And .Cells.Count = 1 Then If .Value = "4,5 jours" And .Offset(0, 1) = "" Then .Offset(0, 1).Select MsgBox "Vous devez choisir une demi-journée de fermeture ici !", vbInformation, _ " Demi-journée de fermeture ?" Call Clignote_cell End If End If End With End Sub
l'utilisateur voit où il doit saisir, mais le pb est que malgré tout, il peut en oublier, et il ne faut pas qu'il puisse quitter la feuille si tout n'est pas correctement saisi. Flo riant
"Patrick BASTARD" a écrit dans le message de news:
Bonjour, *Florian* J'ai lu ton post avec le plus grand intéret :
Et pourquoi pas une mise en forme conditionnelle de E3:E102: Sélectionne E3:E102, Format, Mise en forme conditionnelle, La formule est =et(D3=4,5;E3=""), et choisir une couleur qui "pète" pour attirer l"attention de l'utilisateur. Elle disparaîtra une fois la saisie effectuée.
Cela te convient-il ?
-- Bien amicordialement, P. Bastard
Bonsoir j'ai 2 colonnes dans la 1ère D3:D102 je saisi obligatoirement soit "4,5 jours" soit "5 jours" si je saisi 4,5 jours une cellule dans D3:D102 je dois saisir obligatoirement quelque chose à droite de cette cellule dans E3:E102 Je souhaite que le test se fasse en quittant la feuille par un bouton en lançant un msgbox Merci beaucoup Flo riant
Papyty
Salut Flo riant
Une piste peut etre au lieu d'utiliser un messagebox et faire clignoter la cellule, utilise une input box pour forcer la saisie de cette info et tu pourras également controler la saisie.
@+ Thierry
"Florian" a écrit dans le message de news: %235vKV%
Bonsoir Patrick et merci pour ton aide, en fait j'ai mis dans le worksheets un truc que j'ai bricolé avec de la récup ;-)
Private Sub Worksheet_Change(ByVal Target As Range) With Target If Not Intersect([D3:D102], Target) Is Nothing And .Cells.Count = 1 Then If .Value = "4,5 jours" And .Offset(0, 1) = "" Then .Offset(0, 1).Select MsgBox "Vous devez choisir une demi-journée de fermeture ici !", vbInformation, _ " Demi-journée de fermeture ?" Call Clignote_cell End If End If End With End Sub
l'utilisateur voit où il doit saisir, mais le pb est que malgré tout, il peut en oublier, et il ne faut pas qu'il puisse quitter la feuille si tout n'est pas correctement saisi. Flo riant
"Patrick BASTARD" a écrit dans le message de news:
Bonjour, *Florian* J'ai lu ton post avec le plus grand intéret :
Et pourquoi pas une mise en forme conditionnelle de E3:E102: Sélectionne E3:E102, Format, Mise en forme conditionnelle, La formule est =et(D3=4,5;E3=""), et choisir une couleur qui "pète" pour attirer l"attention de l'utilisateur. Elle disparaîtra une fois la saisie effectuée.
Cela te convient-il ?
-- Bien amicordialement, P. Bastard
Bonsoir j'ai 2 colonnes dans la 1ère D3:D102 je saisi obligatoirement soit "4,5 jours" soit "5 jours" si je saisi 4,5 jours une cellule dans D3:D102 je dois saisir obligatoirement quelque chose à droite de cette cellule dans E3:E102 Je souhaite que le test se fasse en quittant la feuille par un bouton en lançant un msgbox Merci beaucoup Flo riant
Salut Flo riant
Une piste peut etre au lieu d'utiliser un messagebox et faire clignoter la
cellule, utilise une input box pour forcer la saisie de cette info et tu
pourras également controler la saisie.
@+ Thierry
"Florian" <florian@toto.fr> a écrit dans le message de news:
%235vKV%23zfFHA.3612@TK2MSFTNGP12.phx.gbl...
Bonsoir Patrick et merci pour ton aide,
en fait j'ai mis dans le worksheets un truc que j'ai bricolé avec de la
récup ;-)
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If Not Intersect([D3:D102], Target) Is Nothing And .Cells.Count = 1
Then
If .Value = "4,5 jours" And .Offset(0, 1) = "" Then
.Offset(0, 1).Select
MsgBox "Vous devez choisir une demi-journée de fermeture ici
!", vbInformation, _
" Demi-journée de fermeture ?"
Call Clignote_cell
End If
End If
End With
End Sub
l'utilisateur voit où il doit saisir, mais le pb est que malgré tout, il
peut en oublier, et il ne faut pas qu'il puisse quitter la feuille si tout
n'est pas correctement saisi.
Flo riant
"Patrick BASTARD" <pasdespambastardp@freepasdespam.fr> a écrit dans le
message de news: u59n7xzfFHA.3448@TK2MSFTNGP12.phx.gbl...
Bonjour, *Florian*
J'ai lu ton post eTOXnozfFHA.2644@TK2MSFTNGP09.phx.gbl
avec le plus grand intéret :
Et pourquoi pas une mise en forme conditionnelle de E3:E102:
Sélectionne E3:E102, Format, Mise en forme conditionnelle,
La formule est =et(D3=4,5;E3=""), et choisir une couleur qui "pète" pour
attirer l"attention de l'utilisateur. Elle disparaîtra une fois la saisie
effectuée.
Cela te convient-il ?
--
Bien amicordialement,
P. Bastard
Bonsoir
j'ai 2 colonnes
dans la 1ère D3:D102 je saisi obligatoirement soit "4,5 jours" soit "5
jours"
si je saisi 4,5 jours une cellule dans D3:D102 je dois saisir
obligatoirement quelque chose à droite de cette cellule dans E3:E102
Je souhaite que le test se fasse en quittant la feuille par un bouton
en lançant un msgbox
Merci beaucoup
Flo riant
Une piste peut etre au lieu d'utiliser un messagebox et faire clignoter la cellule, utilise une input box pour forcer la saisie de cette info et tu pourras également controler la saisie.
@+ Thierry
"Florian" a écrit dans le message de news: %235vKV%
Bonsoir Patrick et merci pour ton aide, en fait j'ai mis dans le worksheets un truc que j'ai bricolé avec de la récup ;-)
Private Sub Worksheet_Change(ByVal Target As Range) With Target If Not Intersect([D3:D102], Target) Is Nothing And .Cells.Count = 1 Then If .Value = "4,5 jours" And .Offset(0, 1) = "" Then .Offset(0, 1).Select MsgBox "Vous devez choisir une demi-journée de fermeture ici !", vbInformation, _ " Demi-journée de fermeture ?" Call Clignote_cell End If End If End With End Sub
l'utilisateur voit où il doit saisir, mais le pb est que malgré tout, il peut en oublier, et il ne faut pas qu'il puisse quitter la feuille si tout n'est pas correctement saisi. Flo riant
"Patrick BASTARD" a écrit dans le message de news:
Bonjour, *Florian* J'ai lu ton post avec le plus grand intéret :
Et pourquoi pas une mise en forme conditionnelle de E3:E102: Sélectionne E3:E102, Format, Mise en forme conditionnelle, La formule est =et(D3=4,5;E3=""), et choisir une couleur qui "pète" pour attirer l"attention de l'utilisateur. Elle disparaîtra une fois la saisie effectuée.
Cela te convient-il ?
-- Bien amicordialement, P. Bastard
Bonsoir j'ai 2 colonnes dans la 1ère D3:D102 je saisi obligatoirement soit "4,5 jours" soit "5 jours" si je saisi 4,5 jours une cellule dans D3:D102 je dois saisir obligatoirement quelque chose à droite de cette cellule dans E3:E102 Je souhaite que le test se fasse en quittant la feuille par un bouton en lançant un msgbox Merci beaucoup Flo riant
Florian
Bonsoir Thierry En fait j'ai une liste déroulante dans les cellule, de ce fait une inputbox, c'est pas évident, cela dit ton idée est très intéressante. Merci pour l'aide apportée Flo riant
"Papyty" a écrit dans le message de news:
Salut Flo riant
Une piste peut etre au lieu d'utiliser un messagebox et faire clignoter la cellule, utilise une input box pour forcer la saisie de cette info et tu pourras également controler la saisie.
@+ Thierry
"Florian" a écrit dans le message de news: %235vKV%
Bonsoir Patrick et merci pour ton aide, en fait j'ai mis dans le worksheets un truc que j'ai bricolé avec de la récup ;-)
Private Sub Worksheet_Change(ByVal Target As Range) With Target If Not Intersect([D3:D102], Target) Is Nothing And .Cells.Count = 1 Then If .Value = "4,5 jours" And .Offset(0, 1) = "" Then .Offset(0, 1).Select MsgBox "Vous devez choisir une demi-journée de fermeture ici !", vbInformation, _ " Demi-journée de fermeture ?" Call Clignote_cell End If End If End With End Sub
l'utilisateur voit où il doit saisir, mais le pb est que malgré tout, il peut en oublier, et il ne faut pas qu'il puisse quitter la feuille si tout n'est pas correctement saisi. Flo riant
"Patrick BASTARD" a écrit dans le message de news:
Bonjour, *Florian* J'ai lu ton post avec le plus grand intéret :
Et pourquoi pas une mise en forme conditionnelle de E3:E102: Sélectionne E3:E102, Format, Mise en forme conditionnelle, La formule est =et(D3=4,5;E3=""), et choisir une couleur qui "pète" pour attirer l"attention de l'utilisateur. Elle disparaîtra une fois la saisie effectuée.
Cela te convient-il ?
-- Bien amicordialement, P. Bastard
Bonsoir j'ai 2 colonnes dans la 1ère D3:D102 je saisi obligatoirement soit "4,5 jours" soit "5 jours" si je saisi 4,5 jours une cellule dans D3:D102 je dois saisir obligatoirement quelque chose à droite de cette cellule dans E3:E102 Je souhaite que le test se fasse en quittant la feuille par un bouton en lançant un msgbox Merci beaucoup Flo riant
Bonsoir Thierry
En fait j'ai une liste déroulante dans les cellule, de ce fait une inputbox,
c'est pas évident, cela dit ton idée est très intéressante.
Merci pour l'aide apportée
Flo riant
"Papyty" <papyty@yahoo.fr> a écrit dans le message de news:
uaRYQE0fFHA.3232@TK2MSFTNGP15.phx.gbl...
Salut Flo riant
Une piste peut etre au lieu d'utiliser un messagebox et faire clignoter la
cellule, utilise une input box pour forcer la saisie de cette info et tu
pourras également controler la saisie.
@+ Thierry
"Florian" <florian@toto.fr> a écrit dans le message de news:
%235vKV%23zfFHA.3612@TK2MSFTNGP12.phx.gbl...
Bonsoir Patrick et merci pour ton aide,
en fait j'ai mis dans le worksheets un truc que j'ai bricolé avec de la
récup ;-)
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If Not Intersect([D3:D102], Target) Is Nothing And .Cells.Count = 1
Then
If .Value = "4,5 jours" And .Offset(0, 1) = "" Then
.Offset(0, 1).Select
MsgBox "Vous devez choisir une demi-journée de fermeture ici
!", vbInformation, _
" Demi-journée de fermeture ?"
Call Clignote_cell
End If
End If
End With
End Sub
l'utilisateur voit où il doit saisir, mais le pb est que malgré tout, il
peut en oublier, et il ne faut pas qu'il puisse quitter la feuille si
tout n'est pas correctement saisi.
Flo riant
"Patrick BASTARD" <pasdespambastardp@freepasdespam.fr> a écrit dans le
message de news: u59n7xzfFHA.3448@TK2MSFTNGP12.phx.gbl...
Bonjour, *Florian*
J'ai lu ton post eTOXnozfFHA.2644@TK2MSFTNGP09.phx.gbl
avec le plus grand intéret :
Et pourquoi pas une mise en forme conditionnelle de E3:E102:
Sélectionne E3:E102, Format, Mise en forme conditionnelle,
La formule est =et(D3=4,5;E3=""), et choisir une couleur qui "pète" pour
attirer l"attention de l'utilisateur. Elle disparaîtra une fois la
saisie effectuée.
Cela te convient-il ?
--
Bien amicordialement,
P. Bastard
Bonsoir
j'ai 2 colonnes
dans la 1ère D3:D102 je saisi obligatoirement soit "4,5 jours" soit "5
jours"
si je saisi 4,5 jours une cellule dans D3:D102 je dois saisir
obligatoirement quelque chose à droite de cette cellule dans E3:E102
Je souhaite que le test se fasse en quittant la feuille par un bouton
en lançant un msgbox
Merci beaucoup
Flo riant
Bonsoir Thierry En fait j'ai une liste déroulante dans les cellule, de ce fait une inputbox, c'est pas évident, cela dit ton idée est très intéressante. Merci pour l'aide apportée Flo riant
"Papyty" a écrit dans le message de news:
Salut Flo riant
Une piste peut etre au lieu d'utiliser un messagebox et faire clignoter la cellule, utilise une input box pour forcer la saisie de cette info et tu pourras également controler la saisie.
@+ Thierry
"Florian" a écrit dans le message de news: %235vKV%
Bonsoir Patrick et merci pour ton aide, en fait j'ai mis dans le worksheets un truc que j'ai bricolé avec de la récup ;-)
Private Sub Worksheet_Change(ByVal Target As Range) With Target If Not Intersect([D3:D102], Target) Is Nothing And .Cells.Count = 1 Then If .Value = "4,5 jours" And .Offset(0, 1) = "" Then .Offset(0, 1).Select MsgBox "Vous devez choisir une demi-journée de fermeture ici !", vbInformation, _ " Demi-journée de fermeture ?" Call Clignote_cell End If End If End With End Sub
l'utilisateur voit où il doit saisir, mais le pb est que malgré tout, il peut en oublier, et il ne faut pas qu'il puisse quitter la feuille si tout n'est pas correctement saisi. Flo riant
"Patrick BASTARD" a écrit dans le message de news:
Bonjour, *Florian* J'ai lu ton post avec le plus grand intéret :
Et pourquoi pas une mise en forme conditionnelle de E3:E102: Sélectionne E3:E102, Format, Mise en forme conditionnelle, La formule est =et(D3=4,5;E3=""), et choisir une couleur qui "pète" pour attirer l"attention de l'utilisateur. Elle disparaîtra une fois la saisie effectuée.
Cela te convient-il ?
-- Bien amicordialement, P. Bastard
Bonsoir j'ai 2 colonnes dans la 1ère D3:D102 je saisi obligatoirement soit "4,5 jours" soit "5 jours" si je saisi 4,5 jours une cellule dans D3:D102 je dois saisir obligatoirement quelque chose à droite de cette cellule dans E3:E102 Je souhaite que le test se fasse en quittant la feuille par un bouton en lançant un msgbox Merci beaucoup Flo riant
