Bonjour à toutes et tous
Primo
Pour les réponses et réactions aux fil d'impression je vous contacte
demain
ou peut-être ce soir
Mais quoi qi'il en soit MERCI
Mon problème actuel (j'ose pas écrire urgent) est tout simple
Mais je ne trouve pas de solution ni ici ni sur Excelabo
C'est surement parce que je ne sais pas comment cela se dit
Voici j'ai une macro (qui roule !!!)
Mais je voudrais lui mettre une condition de départ
Si la cellule X est égale à "Offer" alors vas-y, sinon laisse tomber
Ou alors ce que j'essaie aussi est d'y inclure un MSG box
dans le genre
MsgBox("Remplacer l'offre?", vbYesNo, "OUI") = vbYes
et si c'est Yes la macro roule, si c'est no elle laisse tomber
A bientôt et merci beaucoup
Rex ;-))
Donc j'ai ceci
Sub Ordered()
' Je voudrais qu'il vérifie si la cellule J3 contient la valeur Offer
If ("J3") = "Offer" Then
Sheets("Offers").Cells([A2], 148) = [F4]
Sheets("Printing_Order").Visible = True
Sheets("Printing_Order").Select
' et puis un tas de commandes tec
' et en fin de macro
Else
End If
Application.ScreenUpdating = True
End Sub
Bonjour à toutes et tous
Primo
Pour les réponses et réactions aux fil d'impression je vous contacte
demain
ou peut-être ce soir
Mais quoi qi'il en soit MERCI
Mon problème actuel (j'ose pas écrire urgent) est tout simple
Mais je ne trouve pas de solution ni ici ni sur Excelabo
C'est surement parce que je ne sais pas comment cela se dit
Voici j'ai une macro (qui roule !!!)
Mais je voudrais lui mettre une condition de départ
Si la cellule X est égale à "Offer" alors vas-y, sinon laisse tomber
Ou alors ce que j'essaie aussi est d'y inclure un MSG box
dans le genre
MsgBox("Remplacer l'offre?", vbYesNo, "OUI") = vbYes
et si c'est Yes la macro roule, si c'est no elle laisse tomber
A bientôt et merci beaucoup
Rex ;-))
Donc j'ai ceci
Sub Ordered()
' Je voudrais qu'il vérifie si la cellule J3 contient la valeur Offer
If ("J3") = "Offer" Then
Sheets("Offers").Cells([A2], 148) = [F4]
Sheets("Printing_Order").Visible = True
Sheets("Printing_Order").Select
' et puis un tas de commandes tec
' et en fin de macro
Else
End If
Application.ScreenUpdating = True
End Sub
Bonjour à toutes et tous
Primo
Pour les réponses et réactions aux fil d'impression je vous contacte
demain
ou peut-être ce soir
Mais quoi qi'il en soit MERCI
Mon problème actuel (j'ose pas écrire urgent) est tout simple
Mais je ne trouve pas de solution ni ici ni sur Excelabo
C'est surement parce que je ne sais pas comment cela se dit
Voici j'ai une macro (qui roule !!!)
Mais je voudrais lui mettre une condition de départ
Si la cellule X est égale à "Offer" alors vas-y, sinon laisse tomber
Ou alors ce que j'essaie aussi est d'y inclure un MSG box
dans le genre
MsgBox("Remplacer l'offre?", vbYesNo, "OUI") = vbYes
et si c'est Yes la macro roule, si c'est no elle laisse tomber
A bientôt et merci beaucoup
Rex ;-))
Donc j'ai ceci
Sub Ordered()
' Je voudrais qu'il vérifie si la cellule J3 contient la valeur Offer
If ("J3") = "Offer" Then
Sheets("Offers").Cells([A2], 148) = [F4]
Sheets("Printing_Order").Visible = True
Sheets("Printing_Order").Select
' et puis un tas de commandes tec
' et en fin de macro
Else
End If
Application.ScreenUpdating = True
End Sub
Bonjour.
Utilise en tête de ta macro :
If [A1] <> "Offer" Then Exit Sub
ou
If MsgBox("Remplacer l'offre?", vbYesNo, "OUI") <> vbYes Then Exit Sub
Cordialement.
Daniel
"Rex" a écrit dans le message de news:Bonjour à toutes et tous
Primo
Pour les réponses et réactions aux fil d'impression je vous contacte
demain
ou peut-être ce soir
Mais quoi qi'il en soit MERCI
Mon problème actuel (j'ose pas écrire urgent) est tout simple
Mais je ne trouve pas de solution ni ici ni sur Excelabo
C'est surement parce que je ne sais pas comment cela se dit
Voici j'ai une macro (qui roule !!!)
Mais je voudrais lui mettre une condition de départ
Si la cellule X est égale à "Offer" alors vas-y, sinon laisse tomber
Ou alors ce que j'essaie aussi est d'y inclure un MSG box
dans le genre
MsgBox("Remplacer l'offre?", vbYesNo, "OUI") = vbYes
et si c'est Yes la macro roule, si c'est no elle laisse tomber
A bientôt et merci beaucoup
Rex ;-))
Donc j'ai ceci
Sub Ordered()
' Je voudrais qu'il vérifie si la cellule J3 contient la valeur Offer
If ("J3") = "Offer" Then
Sheets("Offers").Cells([A2], 148) = [F4]
Sheets("Printing_Order").Visible = True
Sheets("Printing_Order").Select
' et puis un tas de commandes tec
' et en fin de macro
Else
End If
Application.ScreenUpdating = True
End Sub
Bonjour.
Utilise en tête de ta macro :
If [A1] <> "Offer" Then Exit Sub
ou
If MsgBox("Remplacer l'offre?", vbYesNo, "OUI") <> vbYes Then Exit Sub
Cordialement.
Daniel
"Rex" <rthompspamon@skynet.be> a écrit dans le message de news:
ejE8pos8HHA.4200@TK2MSFTNGP04.phx.gbl...
Bonjour à toutes et tous
Primo
Pour les réponses et réactions aux fil d'impression je vous contacte
demain
ou peut-être ce soir
Mais quoi qi'il en soit MERCI
Mon problème actuel (j'ose pas écrire urgent) est tout simple
Mais je ne trouve pas de solution ni ici ni sur Excelabo
C'est surement parce que je ne sais pas comment cela se dit
Voici j'ai une macro (qui roule !!!)
Mais je voudrais lui mettre une condition de départ
Si la cellule X est égale à "Offer" alors vas-y, sinon laisse tomber
Ou alors ce que j'essaie aussi est d'y inclure un MSG box
dans le genre
MsgBox("Remplacer l'offre?", vbYesNo, "OUI") = vbYes
et si c'est Yes la macro roule, si c'est no elle laisse tomber
A bientôt et merci beaucoup
Rex ;-))
Donc j'ai ceci
Sub Ordered()
' Je voudrais qu'il vérifie si la cellule J3 contient la valeur Offer
If ("J3") = "Offer" Then
Sheets("Offers").Cells([A2], 148) = [F4]
Sheets("Printing_Order").Visible = True
Sheets("Printing_Order").Select
' et puis un tas de commandes tec
' et en fin de macro
Else
End If
Application.ScreenUpdating = True
End Sub
Bonjour.
Utilise en tête de ta macro :
If [A1] <> "Offer" Then Exit Sub
ou
If MsgBox("Remplacer l'offre?", vbYesNo, "OUI") <> vbYes Then Exit Sub
Cordialement.
Daniel
"Rex" a écrit dans le message de news:Bonjour à toutes et tous
Primo
Pour les réponses et réactions aux fil d'impression je vous contacte
demain
ou peut-être ce soir
Mais quoi qi'il en soit MERCI
Mon problème actuel (j'ose pas écrire urgent) est tout simple
Mais je ne trouve pas de solution ni ici ni sur Excelabo
C'est surement parce que je ne sais pas comment cela se dit
Voici j'ai une macro (qui roule !!!)
Mais je voudrais lui mettre une condition de départ
Si la cellule X est égale à "Offer" alors vas-y, sinon laisse tomber
Ou alors ce que j'essaie aussi est d'y inclure un MSG box
dans le genre
MsgBox("Remplacer l'offre?", vbYesNo, "OUI") = vbYes
et si c'est Yes la macro roule, si c'est no elle laisse tomber
A bientôt et merci beaucoup
Rex ;-))
Donc j'ai ceci
Sub Ordered()
' Je voudrais qu'il vérifie si la cellule J3 contient la valeur Offer
If ("J3") = "Offer" Then
Sheets("Offers").Cells([A2], 148) = [F4]
Sheets("Printing_Order").Visible = True
Sheets("Printing_Order").Select
' et puis un tas de commandes tec
' et en fin de macro
Else
End If
Application.ScreenUpdating = True
End Sub
Bonjour.
Utilise en tête de ta macro :
If [A1] <> "Offer" Then Exit Sub
ou
If MsgBox("Remplacer l'offre?", vbYesNo, "OUI") <> vbYes Then Exit Sub
Cordialement.
Daniel
"Rex" a écrit dans le message de news:Bonjour à toutes et tous
Primo
Pour les réponses et réactions aux fil d'impression je vous contacte
demain
ou peut-être ce soir
Mais quoi qi'il en soit MERCI
Mon problème actuel (j'ose pas écrire urgent) est tout simple
Mais je ne trouve pas de solution ni ici ni sur Excelabo
C'est surement parce que je ne sais pas comment cela se dit
Voici j'ai une macro (qui roule !!!)
Mais je voudrais lui mettre une condition de départ
Si la cellule X est égale à "Offer" alors vas-y, sinon laisse tomber
Ou alors ce que j'essaie aussi est d'y inclure un MSG box
dans le genre
MsgBox("Remplacer l'offre?", vbYesNo, "OUI") = vbYes
et si c'est Yes la macro roule, si c'est no elle laisse tomber
A bientôt et merci beaucoup
Rex ;-))
Donc j'ai ceci
Sub Ordered()
' Je voudrais qu'il vérifie si la cellule J3 contient la valeur Offer
If ("J3") = "Offer" Then
Sheets("Offers").Cells([A2], 148) = [F4]
Sheets("Printing_Order").Visible = True
Sheets("Printing_Order").Select
' et puis un tas de commandes tec
' et en fin de macro
Else
End If
Application.ScreenUpdating = True
End Sub
Bonjour.
Utilise en tête de ta macro :
If [A1] <> "Offer" Then Exit Sub
ou
If MsgBox("Remplacer l'offre?", vbYesNo, "OUI") <> vbYes Then Exit Sub
Cordialement.
Daniel
"Rex" <rthompspamon@skynet.be> a écrit dans le message de news:
ejE8pos8HHA.4200@TK2MSFTNGP04.phx.gbl...
Bonjour à toutes et tous
Primo
Pour les réponses et réactions aux fil d'impression je vous contacte
demain
ou peut-être ce soir
Mais quoi qi'il en soit MERCI
Mon problème actuel (j'ose pas écrire urgent) est tout simple
Mais je ne trouve pas de solution ni ici ni sur Excelabo
C'est surement parce que je ne sais pas comment cela se dit
Voici j'ai une macro (qui roule !!!)
Mais je voudrais lui mettre une condition de départ
Si la cellule X est égale à "Offer" alors vas-y, sinon laisse tomber
Ou alors ce que j'essaie aussi est d'y inclure un MSG box
dans le genre
MsgBox("Remplacer l'offre?", vbYesNo, "OUI") = vbYes
et si c'est Yes la macro roule, si c'est no elle laisse tomber
A bientôt et merci beaucoup
Rex ;-))
Donc j'ai ceci
Sub Ordered()
' Je voudrais qu'il vérifie si la cellule J3 contient la valeur Offer
If ("J3") = "Offer" Then
Sheets("Offers").Cells([A2], 148) = [F4]
Sheets("Printing_Order").Visible = True
Sheets("Printing_Order").Select
' et puis un tas de commandes tec
' et en fin de macro
Else
End If
Application.ScreenUpdating = True
End Sub
Bonjour.
Utilise en tête de ta macro :
If [A1] <> "Offer" Then Exit Sub
ou
If MsgBox("Remplacer l'offre?", vbYesNo, "OUI") <> vbYes Then Exit Sub
Cordialement.
Daniel
"Rex" a écrit dans le message de news:Bonjour à toutes et tous
Primo
Pour les réponses et réactions aux fil d'impression je vous contacte
demain
ou peut-être ce soir
Mais quoi qi'il en soit MERCI
Mon problème actuel (j'ose pas écrire urgent) est tout simple
Mais je ne trouve pas de solution ni ici ni sur Excelabo
C'est surement parce que je ne sais pas comment cela se dit
Voici j'ai une macro (qui roule !!!)
Mais je voudrais lui mettre une condition de départ
Si la cellule X est égale à "Offer" alors vas-y, sinon laisse tomber
Ou alors ce que j'essaie aussi est d'y inclure un MSG box
dans le genre
MsgBox("Remplacer l'offre?", vbYesNo, "OUI") = vbYes
et si c'est Yes la macro roule, si c'est no elle laisse tomber
A bientôt et merci beaucoup
Rex ;-))
Donc j'ai ceci
Sub Ordered()
' Je voudrais qu'il vérifie si la cellule J3 contient la valeur Offer
If ("J3") = "Offer" Then
Sheets("Offers").Cells([A2], 148) = [F4]
Sheets("Printing_Order").Visible = True
Sheets("Printing_Order").Select
' et puis un tas de commandes tec
' et en fin de macro
Else
End If
Application.ScreenUpdating = True
End Sub
J'ai une liste qui représente la suite des actions entre l'offre et le
paiement
Offre, Ordered, Ordered to Promethean, Delivered, Invoice Requested,
Invoiced, Paid
Comme avec la fonction IF on peut dire, en partant du dernier au
premier, quand tu rencontre cette situation, t'es dans le bon
continue mon gars
Sub Proc_Ordered()
Sheets("Offers").Cells([A2], 148) = [F4]
Sheets("Printing_Order").Visible = True
Sheets("Printing_Order").Select
' et puis un tas de commandes tec
' et en fin de macro
Else
End If
Application.ScreenUpdating = True
End Sub
J'ai une liste qui représente la suite des actions entre l'offre et le
paiement
Offre, Ordered, Ordered to Promethean, Delivered, Invoice Requested,
Invoiced, Paid
Comme avec la fonction IF on peut dire, en partant du dernier au
premier, quand tu rencontre cette situation, t'es dans le bon
continue mon gars
Sub Proc_Ordered()
Sheets("Offers").Cells([A2], 148) = [F4]
Sheets("Printing_Order").Visible = True
Sheets("Printing_Order").Select
' et puis un tas de commandes tec
' et en fin de macro
Else
End If
Application.ScreenUpdating = True
End Sub
J'ai une liste qui représente la suite des actions entre l'offre et le
paiement
Offre, Ordered, Ordered to Promethean, Delivered, Invoice Requested,
Invoiced, Paid
Comme avec la fonction IF on peut dire, en partant du dernier au
premier, quand tu rencontre cette situation, t'es dans le bon
continue mon gars
Sub Proc_Ordered()
Sheets("Offers").Cells([A2], 148) = [F4]
Sheets("Printing_Order").Visible = True
Sheets("Printing_Order").Select
' et puis un tas de commandes tec
' et en fin de macro
Else
End If
Application.ScreenUpdating = True
End Sub
Bonsour® Rex avec ferveur ;o))) vous nous disiez :J'ai une liste qui représente la suite des actions entre l'offre et le
paiement
Offre, Ordered, Ordered to Promethean, Delivered, Invoice Requested,
Invoiced, Paid
Comme avec la fonction IF on peut dire, en partant du dernier au
premier, quand tu rencontre cette situation, t'es dans le bon
continue mon gars
Select case [cellule X]
case "Offre"
call Proc_Ordered
case "Ordered"
call Proc_Ordered_Promethean
case "Delivred"
call Proc_Invoice_Requested
case "invoice requested"
call Proc_Invoiced
case "invoiced"
call Proc_Paid
case "Paid"
msgbox "Action terminée"
case else
Msgbox "cette action " & [celllule X] & " n'est pas référencée
!!!",
vbcritical
end selectSub Proc_Ordered()
Sheets("Offers").Cells([A2], 148) = [F4]
Sheets("Printing_Order").Visible = True
Sheets("Printing_Order").Select
' et puis un tas de commandes tec
' et en fin de macro
Else
End If
Application.ScreenUpdating = True
End Sub
--
--
@+
;o)))
Bonsour® Rex avec ferveur ;o))) vous nous disiez :
J'ai une liste qui représente la suite des actions entre l'offre et le
paiement
Offre, Ordered, Ordered to Promethean, Delivered, Invoice Requested,
Invoiced, Paid
Comme avec la fonction IF on peut dire, en partant du dernier au
premier, quand tu rencontre cette situation, t'es dans le bon
continue mon gars
Select case [cellule X]
case "Offre"
call Proc_Ordered
case "Ordered"
call Proc_Ordered_Promethean
case "Delivred"
call Proc_Invoice_Requested
case "invoice requested"
call Proc_Invoiced
case "invoiced"
call Proc_Paid
case "Paid"
msgbox "Action terminée"
case else
Msgbox "cette action " & [celllule X] & " n'est pas référencée
!!!",
vbcritical
end select
Sub Proc_Ordered()
Sheets("Offers").Cells([A2], 148) = [F4]
Sheets("Printing_Order").Visible = True
Sheets("Printing_Order").Select
' et puis un tas de commandes tec
' et en fin de macro
Else
End If
Application.ScreenUpdating = True
End Sub
--
--
@+
;o)))
Bonsour® Rex avec ferveur ;o))) vous nous disiez :J'ai une liste qui représente la suite des actions entre l'offre et le
paiement
Offre, Ordered, Ordered to Promethean, Delivered, Invoice Requested,
Invoiced, Paid
Comme avec la fonction IF on peut dire, en partant du dernier au
premier, quand tu rencontre cette situation, t'es dans le bon
continue mon gars
Select case [cellule X]
case "Offre"
call Proc_Ordered
case "Ordered"
call Proc_Ordered_Promethean
case "Delivred"
call Proc_Invoice_Requested
case "invoice requested"
call Proc_Invoiced
case "invoiced"
call Proc_Paid
case "Paid"
msgbox "Action terminée"
case else
Msgbox "cette action " & [celllule X] & " n'est pas référencée
!!!",
vbcritical
end selectSub Proc_Ordered()
Sheets("Offers").Cells([A2], 148) = [F4]
Sheets("Printing_Order").Visible = True
Sheets("Printing_Order").Select
' et puis un tas de commandes tec
' et en fin de macro
Else
End If
Application.ScreenUpdating = True
End Sub
--
--
@+
;o)))
Ce que je souhaitais (mais en m'expliquant mal, comme d'habitude)
est que si je demandais de livrer avant de commander chez Promethean
qu'il me refuse l'action
C'est à dire qu'il faut qu'une action soit complétée avant de pouvaoir
lancer la suivante
Mais une fois de plus je me rends compte que j'ai bien du mal à faire
passer ce que je pense
Ce que je souhaitais (mais en m'expliquant mal, comme d'habitude)
est que si je demandais de livrer avant de commander chez Promethean
qu'il me refuse l'action
C'est à dire qu'il faut qu'une action soit complétée avant de pouvaoir
lancer la suivante
Mais une fois de plus je me rends compte que j'ai bien du mal à faire
passer ce que je pense
Ce que je souhaitais (mais en m'expliquant mal, comme d'habitude)
est que si je demandais de livrer avant de commander chez Promethean
qu'il me refuse l'action
C'est à dire qu'il faut qu'une action soit complétée avant de pouvaoir
lancer la suivante
Mais une fois de plus je me rends compte que j'ai bien du mal à faire
passer ce que je pense
Bonsour® Rex avec ferveur ;o))) vous nous disiez :Ce que je souhaitais (mais en m'expliquant mal, comme d'habitude)
est que si je demandais de livrer avant de commander chez Promethean
qu'il me refuse l'action
C'est à dire qu'il faut qu'une action soit complétée avant de pouvaoir
lancer la suivante
Mais une fois de plus je me rends compte que j'ai bien du mal à faire
passer ce que je pense
En effet la problematique est bien de verifier l'évolution correcte et
chronologique des status
ce en quoi la procédure via Select Case est tout à fait apropriée
puisqu'elle ne lance l'évolution que pour le status précédement concerné
ce genre de controle sécuritaire uniquement par formule risque trop de
tourner à
l'usine à gaz...
si en effet tu veux faire évoluer ce status par procédure, il faut
interdire la
modification manuelle de cette [cellule X]
c'est à dire protéger la cellule, protéger la feuille et ne lever la
protection
que lors de l'utilisation de chaque procédure
Il te faudra pour cela développer une proc pour chaque type d'évolution de
status (Offre, Ordered, Ordered to Promethean, Delivered, Invoice
Requested,
Invoiced, Paid)
c'est alors chaque proc qui sera chargée d'inscrire le nouveau status
[Cellule
X]
cela sous-entend egalement l'impossibilité de retour arriere, ainsi que
impossibilité de passer une étape
Activesheet.unprotect
For each CelluleX in range("Status renseignés") ' ----ici il faudra
documenter
la plage des cellules X
Select case celluleX
Case "Offre"
call Proc_Ordered
celluleX="Ordered"
Case "Ordered"
call Proc_Ordered_Promethean
celluleX="Ordered"
Case "Delivred"
call Proc_Invoice_Requested
celluleX="Ordered"
Case "invoice requested"
call Proc_Invoiced
celluleX="Invoiced"
Case "invoiced"
call Proc_Paid
celluleX="Paid"
Case "Paid"
msgbox "Action terminée"
Case Else
Msgbox "cette action " & [celllule X] & " n'est pas référencée
!!!",vbcritical
End select
Next
Activesheet.protect
@+
;o)))
Bonsour® Rex avec ferveur ;o))) vous nous disiez :
Ce que je souhaitais (mais en m'expliquant mal, comme d'habitude)
est que si je demandais de livrer avant de commander chez Promethean
qu'il me refuse l'action
C'est à dire qu'il faut qu'une action soit complétée avant de pouvaoir
lancer la suivante
Mais une fois de plus je me rends compte que j'ai bien du mal à faire
passer ce que je pense
En effet la problematique est bien de verifier l'évolution correcte et
chronologique des status
ce en quoi la procédure via Select Case est tout à fait apropriée
puisqu'elle ne lance l'évolution que pour le status précédement concerné
ce genre de controle sécuritaire uniquement par formule risque trop de
tourner à
l'usine à gaz...
si en effet tu veux faire évoluer ce status par procédure, il faut
interdire la
modification manuelle de cette [cellule X]
c'est à dire protéger la cellule, protéger la feuille et ne lever la
protection
que lors de l'utilisation de chaque procédure
Il te faudra pour cela développer une proc pour chaque type d'évolution de
status (Offre, Ordered, Ordered to Promethean, Delivered, Invoice
Requested,
Invoiced, Paid)
c'est alors chaque proc qui sera chargée d'inscrire le nouveau status
[Cellule
X]
cela sous-entend egalement l'impossibilité de retour arriere, ainsi que
impossibilité de passer une étape
Activesheet.unprotect
For each CelluleX in range("Status renseignés") ' ----ici il faudra
documenter
la plage des cellules X
Select case celluleX
Case "Offre"
call Proc_Ordered
celluleX="Ordered"
Case "Ordered"
call Proc_Ordered_Promethean
celluleX="Ordered"
Case "Delivred"
call Proc_Invoice_Requested
celluleX="Ordered"
Case "invoice requested"
call Proc_Invoiced
celluleX="Invoiced"
Case "invoiced"
call Proc_Paid
celluleX="Paid"
Case "Paid"
msgbox "Action terminée"
Case Else
Msgbox "cette action " & [celllule X] & " n'est pas référencée
!!!",vbcritical
End select
Next
Activesheet.protect
@+
;o)))
Bonsour® Rex avec ferveur ;o))) vous nous disiez :Ce que je souhaitais (mais en m'expliquant mal, comme d'habitude)
est que si je demandais de livrer avant de commander chez Promethean
qu'il me refuse l'action
C'est à dire qu'il faut qu'une action soit complétée avant de pouvaoir
lancer la suivante
Mais une fois de plus je me rends compte que j'ai bien du mal à faire
passer ce que je pense
En effet la problematique est bien de verifier l'évolution correcte et
chronologique des status
ce en quoi la procédure via Select Case est tout à fait apropriée
puisqu'elle ne lance l'évolution que pour le status précédement concerné
ce genre de controle sécuritaire uniquement par formule risque trop de
tourner à
l'usine à gaz...
si en effet tu veux faire évoluer ce status par procédure, il faut
interdire la
modification manuelle de cette [cellule X]
c'est à dire protéger la cellule, protéger la feuille et ne lever la
protection
que lors de l'utilisation de chaque procédure
Il te faudra pour cela développer une proc pour chaque type d'évolution de
status (Offre, Ordered, Ordered to Promethean, Delivered, Invoice
Requested,
Invoiced, Paid)
c'est alors chaque proc qui sera chargée d'inscrire le nouveau status
[Cellule
X]
cela sous-entend egalement l'impossibilité de retour arriere, ainsi que
impossibilité de passer une étape
Activesheet.unprotect
For each CelluleX in range("Status renseignés") ' ----ici il faudra
documenter
la plage des cellules X
Select case celluleX
Case "Offre"
call Proc_Ordered
celluleX="Ordered"
Case "Ordered"
call Proc_Ordered_Promethean
celluleX="Ordered"
Case "Delivred"
call Proc_Invoice_Requested
celluleX="Ordered"
Case "invoice requested"
call Proc_Invoiced
celluleX="Invoiced"
Case "invoiced"
call Proc_Paid
celluleX="Paid"
Case "Paid"
msgbox "Action terminée"
Case Else
Msgbox "cette action " & [celllule X] & " n'est pas référencée
!!!",vbcritical
End select
Next
Activesheet.protect
@+
;o)))
Connais-tu l'expression anglaise (et non en terre cuite)
"Back to the drawingboard"
Connais-tu l'expression anglaise (et non en terre cuite)
"Back to the drawingboard"
Connais-tu l'expression anglaise (et non en terre cuite)
"Back to the drawingboard"
Bonsour® Rex avec ferveur ;o))) vous nous disiez :Connais-tu l'expression anglaise (et non en terre cuite)
"Back to the drawingboard"
In Other Words (fly me to the moon ???)
Vingt fois sur le métier remettez votre ouvrage. (Boileau)
Ce n'est que dans les choses qu'on aura travaillées et retravaillées
inlassablement qu'on pourra briller et exceller.
@+
;o)))
Bonsour® Rex avec ferveur ;o))) vous nous disiez :
Connais-tu l'expression anglaise (et non en terre cuite)
"Back to the drawingboard"
In Other Words (fly me to the moon ???)
Vingt fois sur le métier remettez votre ouvrage. (Boileau)
Ce n'est que dans les choses qu'on aura travaillées et retravaillées
inlassablement qu'on pourra briller et exceller.
@+
;o)))
Bonsour® Rex avec ferveur ;o))) vous nous disiez :Connais-tu l'expression anglaise (et non en terre cuite)
"Back to the drawingboard"
In Other Words (fly me to the moon ???)
Vingt fois sur le métier remettez votre ouvrage. (Boileau)
Ce n'est que dans les choses qu'on aura travaillées et retravaillées
inlassablement qu'on pourra briller et exceller.
@+
;o)))