OVH Cloud OVH Cloud

Factorisation de tache repetitive

8 réponses
Avatar
francisco
Bonjour tout le monde

Est ce quelqu'un aurait sous le coude des exemples simple de Factorisation
de taches repetititives. Pourquoi aplliquer une factorisation des taches
repititives ?

Amicalement Francisco
Merci tout le monde pour votre aide

8 réponses

Avatar
Benead
Salut Francisco,

Qu'entends-tu par "une factorisation de taches repetititives" ?

--
A+
Benead
Bretagne
Xl97
-------- ;-)

francisco a écrit:
Bonjour tout le monde

Est ce quelqu'un aurait sous le coude des exemples simple de Factorisation
de taches repetititives. Pourquoi aplliquer une factorisation des taches
repititives ?

Amicalement Francisco
Merci tout le monde pour votre aide




Avatar
sabatier
en lisant cette question, je m'étais dit "mon coude, je le lève pour
boire mon verre de beaujolais mais quant à y mettre des choses dessous,
alors là.....surtout si je ne les comprends pas"
et je vois que je ne suis pas le seul...merci benead de m'accepter dans
ton bagad...
jps

Benead a écrit:
Salut Francisco,

Qu'entends-tu par "une factorisation de taches repetititives" ?



Avatar
isabelle
:-) je croyais que c'était un facteur %-)

isabelle


en lisant cette question, je m'étais dit "mon coude, je le lève pour
boire mon verre de beaujolais mais quant à y mettre des choses dessous,
alors là.....surtout si je ne les comprends pas"
et je vois que je ne suis pas le seul...merci benead de m'accepter dans
ton bagad...
jps

Benead a écrit:
Salut Francisco,

Qu'entends-tu par "une factorisation de taches repetititives" ?





Avatar
sabatier
tu as raison, mon ange : seul laurent D a dû comprendre la question...
jps

isabelle a écrit:
:-) je croyais que c'était un facteur %-)

isabelle


en lisant cette question, je m'étais dit "mon coude, je le lève pour
boire mon verre de beaujolais mais quant à y mettre des choses dessous,
alors là.....surtout si je ne les comprends pas"
et je vois que je ne suis pas le seul...merci benead de m'accepter dans
ton bagad...
jps

Benead a écrit:

Salut Francisco,

Qu'entends-tu par "une factorisation de taches repetititives" ?








Avatar
isabelle
:-)))) c'est vrai que je l'avais sortie des boulle à mythes ;-)
microsoft.public.fr.excel - 9 août 2000, posté par Sabatier - Afficher
l’arborescence (37 articles)

isabelle


tu as raison, mon ange : seul laurent D a dû comprendre la question...
jps

isabelle a écrit:
:-) je croyais que c'était un facteur %-)

isabelle


en lisant cette question, je m'étais dit "mon coude, je le lève pour
boire mon verre de beaujolais mais quant à y mettre des choses dessous,
alors là.....surtout si je ne les comprends pas"
et je vois que je ne suis pas le seul...merci benead de m'accepter dans
ton bagad...
jps

Benead a écrit:

Salut Francisco,

Qu'entends-tu par "une factorisation de taches repetititives" ?










Avatar
francisco
Execusez moi pour mon manque de clarté dans ma question , je veux en fait
placer ma requête Sql dans un autre module appelé ModRequête dans le module
Modrequête alos qu'initialement ma requêter se trouvedans le module
connexion mais que dans je faire pour appeler ma requête à partir du module
Mod Connexion je cherche à isoler une requête Rsql et la rendre Public car
elle va me servir dans d'autres procedures tels que celle qui se trouve dans
ModConnexion mais que dois je ecrire à la place de Rsql dans mon module
ModConnexion Sub Connexion() Vous trouverez le code en dessous

Amicalement Francisco Merci pour votre aide
________________________________________
ModRequête
'_________________________________________
Public Rsql As String
__________________________________________
Sub requête()
Rsql = "Select Ventes1999.CodeProduct, Ventes1999.LibelleCodeProduct,
Ventes1999.CodeConditionnement,Ventes1999.CodeCouleur," _
& " Ventes1999.Grammage, Ventes1999.PM, Ventes1999.Volume,
Ventes1999.AverageExMill ," _
& " Ventes1999.VariablesCosts, Ventes1999.FixedCosts,
Ventes1999.TonnesHeures FROM Ventes1999 " _
& "WHERE ((Ventes1999.LibelleCodeProduct)= '" & CritereCodeProduct & "' and
(Ventes1999.CodeConditionnement)= '" & CritereConditionnement & "' and
(Ventes1999.PM) = '" & CriterePM & "'and Ventes1999.CodeCouleur= '" &
CritereCouleur & "'and Ventes1999.Volume >" & Replace(CritereVolume, ",",
".") & " );"

End Sub
'_______________________________________________
ModConnexion
'______________________________________________
ce code provient d'un module appelé ModConnexion
Sub Connexion()
Dim cnt As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim rst1 As New ADODB.Recordset
Dim i As Integer
Dim Rsql As String


CritereCodeProduct = FrmSaisie.CboListeCodeProduct.Value
CritereConditionnement = FrmSaisie.CboListeConditionnement.Value
CriterePM = FrmSaisie.CboListePM.Value
CritereCouleur = FrmSaisie.CboListeCouleur.Value
CritereVolume = FrmSaisie.CboListeVolume.Value
___________________________________
'Que doids je mettre ici à la place de Rsql
__________________________________
Rsql = "Select Ventes1999.CodeProduct,
Ventes1999.LibelleCodeProduct,
Ventes1999.CodeConditionnement,Ventes1999.CodeCouleur," _
& " Ventes1999.Grammage, Ventes1999.PM, Ventes1999.Volume,
Ventes1999.AverageExMill ," _
& " Ventes1999.VariablesCosts, Ventes1999.FixedCosts,
Ventes1999.TonnesHeures FROM Ventes1999 " _
& "WHERE ((Ventes1999.LibelleCodeProduct)= '" & CritereCodeProduct & "' and
(Ventes1999.CodeConditionnement)= '" & CritereConditionnement & "' and
(Ventes1999.PM) = '" & CriterePM & "'and Ventes1999.CodeCouleur= '" &
CritereCouleur & "'and Ventes1999.Volume >" & Replace(CritereVolume, ",",
".") & " );"


'----------------------------------------------------
'à ouvrir une seule fois
cnt.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source c:psm_analyse_formulaire.mdb ;"
'------------------------------------------------------------
'Alimentation CODEPRODUCT
'------------------------------------------------------------

rst.Open Rsql, cnt

Columns("A").Clear
Range("a4") = "Type de produit"
Range("a4").Font.Bold = True
i = 4
While Not rst.EOF
i = i + 1
Sheets("Feuil1").Range("A" & i).Value = rst!CodeProduct
rst.MoveNext
Wend

rst.Close
Set rst = Nothing
End Sub
"sabatier" a écrit dans le message
de news:
tu as raison, mon ange : seul laurent D a dû comprendre la question...
jps

isabelle a écrit:
:-) je croyais que c'était un facteur %-)

isabelle


en lisant cette question, je m'étais dit "mon coude, je le lève pour
boire mon verre de beaujolais mais quant à y mettre des choses dessous,
alors là.....surtout si je ne les comprends pas"
et je vois que je ne suis pas le seul...merci benead de m'accepter dans
ton bagad...
jps

Benead a écrit:

Salut Francisco,

Qu'entends-tu par "une factorisation de taches repetititives" ?











Avatar
michdenis
Bonjour Francisco,

Au lieu d'utiliser une variable "Public", emploie plutôt une Constante, cette dernière va être disponible partout dans
ton programme.

Exemple : Dans le haut d'un module Standard :

Public Const Rsql = "Texte de ma requête SQL"


Salutations!



"francisco" a écrit dans le message de news:c6sja0$kq4$
Execusez moi pour mon manque de clarté dans ma question , je veux en fait
placer ma requête Sql dans un autre module appelé ModRequête dans le module
Modrequête alos qu'initialement ma requêter se trouvedans le module
connexion mais que dans je faire pour appeler ma requête à partir du module
Mod Connexion je cherche à isoler une requête Rsql et la rendre Public car
elle va me servir dans d'autres procedures tels que celle qui se trouve dans
ModConnexion mais que dois je ecrire à la place de Rsql dans mon module
ModConnexion Sub Connexion() Vous trouverez le code en dessous

Amicalement Francisco Merci pour votre aide
________________________________________
ModRequête
'_________________________________________
Public Rsql As String
__________________________________________
Sub requête()
Rsql = "Select Ventes1999.CodeProduct, Ventes1999.LibelleCodeProduct,
Ventes1999.CodeConditionnement,Ventes1999.CodeCouleur," _
& " Ventes1999.Grammage, Ventes1999.PM, Ventes1999.Volume,
Ventes1999.AverageExMill ," _
& " Ventes1999.VariablesCosts, Ventes1999.FixedCosts,
Ventes1999.TonnesHeures FROM Ventes1999 " _
& "WHERE ((Ventes1999.LibelleCodeProduct)= '" & CritereCodeProduct & "' and
(Ventes1999.CodeConditionnement)= '" & CritereConditionnement & "' and
(Ventes1999.PM) = '" & CriterePM & "'and Ventes1999.CodeCouleur= '" &
CritereCouleur & "'and Ventes1999.Volume >" & Replace(CritereVolume, ",",
".") & " );"

End Sub
'_______________________________________________
ModConnexion
'______________________________________________
ce code provient d'un module appelé ModConnexion
Sub Connexion()
Dim cnt As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim rst1 As New ADODB.Recordset
Dim i As Integer
Dim Rsql As String


CritereCodeProduct = FrmSaisie.CboListeCodeProduct.Value
CritereConditionnement = FrmSaisie.CboListeConditionnement.Value
CriterePM = FrmSaisie.CboListePM.Value
CritereCouleur = FrmSaisie.CboListeCouleur.Value
CritereVolume = FrmSaisie.CboListeVolume.Value
___________________________________
'Que doids je mettre ici à la place de Rsql
__________________________________
Rsql = "Select Ventes1999.CodeProduct,
Ventes1999.LibelleCodeProduct,
Ventes1999.CodeConditionnement,Ventes1999.CodeCouleur," _
& " Ventes1999.Grammage, Ventes1999.PM, Ventes1999.Volume,
Ventes1999.AverageExMill ," _
& " Ventes1999.VariablesCosts, Ventes1999.FixedCosts,
Ventes1999.TonnesHeures FROM Ventes1999 " _
& "WHERE ((Ventes1999.LibelleCodeProduct)= '" & CritereCodeProduct & "' and
(Ventes1999.CodeConditionnement)= '" & CritereConditionnement & "' and
(Ventes1999.PM) = '" & CriterePM & "'and Ventes1999.CodeCouleur= '" &
CritereCouleur & "'and Ventes1999.Volume >" & Replace(CritereVolume, ",",
".") & " );"


'----------------------------------------------------
'à ouvrir une seule fois
cnt.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source c:psm_analyse_formulaire.mdb ;"
'------------------------------------------------------------
'Alimentation CODEPRODUCT
'------------------------------------------------------------

rst.Open Rsql, cnt

Columns("A").Clear
Range("a4") = "Type de produit"
Range("a4").Font.Bold = True
i = 4
While Not rst.EOF
i = i + 1
Sheets("Feuil1").Range("A" & i).Value = rst!CodeProduct
rst.MoveNext
Wend

rst.Close
Set rst = Nothing
End Sub
"sabatier" a écrit dans le message
de news:
tu as raison, mon ange : seul laurent D a dû comprendre la question...
jps

isabelle a écrit:
:-) je croyais que c'était un facteur %-)

isabelle


en lisant cette question, je m'étais dit "mon coude, je le lève pour
boire mon verre de beaujolais mais quant à y mettre des choses dessous,
alors là.....surtout si je ne les comprends pas"
et je vois que je ne suis pas le seul...merci benead de m'accepter dans
ton bagad...
jps

Benead a écrit:

Salut Francisco,

Qu'entends-tu par "une factorisation de taches repetititives" ?











Avatar
francisco
Merci Denis Amicalement Francisco
"michdenis" a écrit dans le message de news:

Bonjour Francisco,

Au lieu d'utiliser une variable "Public", emploie plutôt une Constante,
cette dernière va être disponible partout dans

ton programme.

Exemple : Dans le haut d'un module Standard :

Public Const Rsql = "Texte de ma requête SQL"


Salutations!



"francisco" a écrit dans le message de
news:c6sja0$kq4$

Execusez moi pour mon manque de clarté dans ma question , je veux en fait
placer ma requête Sql dans un autre module appelé ModRequête dans le
module

Modrequête alos qu'initialement ma requêter se trouvedans le module
connexion mais que dans je faire pour appeler ma requête à partir du
module

Mod Connexion je cherche à isoler une requête Rsql et la rendre Public
car

elle va me servir dans d'autres procedures tels que celle qui se trouve
dans

ModConnexion mais que dois je ecrire à la place de Rsql dans mon module
ModConnexion Sub Connexion() Vous trouverez le code en dessous

Amicalement Francisco Merci pour votre aide
________________________________________
ModRequête
'_________________________________________
Public Rsql As String
__________________________________________
Sub requête()
Rsql = "Select Ventes1999.CodeProduct, Ventes1999.LibelleCodeProduct,
Ventes1999.CodeConditionnement,Ventes1999.CodeCouleur," _
& " Ventes1999.Grammage, Ventes1999.PM, Ventes1999.Volume,
Ventes1999.AverageExMill ," _
& " Ventes1999.VariablesCosts, Ventes1999.FixedCosts,
Ventes1999.TonnesHeures FROM Ventes1999 " _
& "WHERE ((Ventes1999.LibelleCodeProduct)= '" & CritereCodeProduct & "'
and

(Ventes1999.CodeConditionnement)= '" & CritereConditionnement & "' and
(Ventes1999.PM) = '" & CriterePM & "'and Ventes1999.CodeCouleur= '" &
CritereCouleur & "'and Ventes1999.Volume >" & Replace(CritereVolume, ",",
".") & " );"

End Sub
'_______________________________________________
ModConnexion
'______________________________________________
ce code provient d'un module appelé ModConnexion
Sub Connexion()
Dim cnt As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim rst1 As New ADODB.Recordset
Dim i As Integer
Dim Rsql As String


CritereCodeProduct = FrmSaisie.CboListeCodeProduct.Value
CritereConditionnement = FrmSaisie.CboListeConditionnement.Value
CriterePM = FrmSaisie.CboListePM.Value
CritereCouleur = FrmSaisie.CboListeCouleur.Value
CritereVolume = FrmSaisie.CboListeVolume.Value
___________________________________
'Que doids je mettre ici à la place de Rsql
__________________________________
Rsql = "Select Ventes1999.CodeProduct,
Ventes1999.LibelleCodeProduct,
Ventes1999.CodeConditionnement,Ventes1999.CodeCouleur," _
& " Ventes1999.Grammage, Ventes1999.PM, Ventes1999.Volume,
Ventes1999.AverageExMill ," _
& " Ventes1999.VariablesCosts, Ventes1999.FixedCosts,
Ventes1999.TonnesHeures FROM Ventes1999 " _
& "WHERE ((Ventes1999.LibelleCodeProduct)= '" & CritereCodeProduct & "'
and

(Ventes1999.CodeConditionnement)= '" & CritereConditionnement & "' and
(Ventes1999.PM) = '" & CriterePM & "'and Ventes1999.CodeCouleur= '" &
CritereCouleur & "'and Ventes1999.Volume >" & Replace(CritereVolume, ",",
".") & " );"


'----------------------------------------------------
'à ouvrir une seule fois
cnt.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source > c:psm_analyse_formulaire.mdb ;"
'------------------------------------------------------------
'Alimentation CODEPRODUCT
'------------------------------------------------------------

rst.Open Rsql, cnt

Columns("A").Clear
Range("a4") = "Type de produit"
Range("a4").Font.Bold = True
i = 4
While Not rst.EOF
i = i + 1
Sheets("Feuil1").Range("A" & i).Value = rst!CodeProduct
rst.MoveNext
Wend

rst.Close
Set rst = Nothing
End Sub
"sabatier" a écrit dans le
message

de news:
tu as raison, mon ange : seul laurent D a dû comprendre la question...
jps

isabelle a écrit:
:-) je croyais que c'était un facteur %-)

isabelle


en lisant cette question, je m'étais dit "mon coude, je le lève pour
boire mon verre de beaujolais mais quant à y mettre des choses
dessous,




alors là.....surtout si je ne les comprends pas"
et je vois que je ne suis pas le seul...merci benead de m'accepter
dans




ton bagad...
jps

Benead a écrit:

Salut Francisco,

Qu'entends-tu par "une factorisation de taches repetititives" ?