Bonjour,
Un grand Merci à tous ceux et celles qui ont répondu à mon appel à l'aide
et croyez-bien que j'ai l'intention dans le futur de mettre vos
à profit. Mais j'aurais à nouveau besoin de votre aide. J'ai fait part de
question dans mon message du 23 novembre (Mefc en VBA) à la suite de la
réponse de FFO. Pourriez-vous s.v.p. m'aider à nouveau?
Merci
--
boily_SLSJ
Bonjour,
Un grand Merci à tous ceux et celles qui ont répondu à mon appel à l'aide
et croyez-bien que j'ai l'intention dans le futur de mettre vos
à profit. Mais j'aurais à nouveau besoin de votre aide. J'ai fait part de
question dans mon message du 23 novembre (Mefc en VBA) à la suite de la
réponse de FFO. Pourriez-vous s.v.p. m'aider à nouveau?
Merci
--
boily_SLSJ
Bonjour,
Un grand Merci à tous ceux et celles qui ont répondu à mon appel à l'aide
et croyez-bien que j'ai l'intention dans le futur de mettre vos
à profit. Mais j'aurais à nouveau besoin de votre aide. J'ai fait part de
question dans mon message du 23 novembre (Mefc en VBA) à la suite de la
réponse de FFO. Pourriez-vous s.v.p. m'aider à nouveau?
Merci
--
boily_SLSJ
J'ai exécuté tes deux Private SubWorkbook_SheetCalculate(ByVal sh As Object)
sans rencontrer de Pb. Il faut contrôler tes données si elles sont toutes
numériques.
"guy boily" a écrit dans le message de
news:
> Bonjour,
> Un grand Merci à tous ceux et celles qui ont répondu à mon appel à l'aide
> et croyez-bien que j'ai l'intention dans le futur de mettre vos
commentaires
> à profit. Mais j'aurais à nouveau besoin de votre aide. J'ai fait part de
ma
> question dans mon message du 23 novembre (Mefc en VBA) à la suite de la
> réponse de FFO. Pourriez-vous s.v.p. m'aider à nouveau?
>
> Merci
>
> --
> boily_SLSJ
J'ai exécuté tes deux Private SubWorkbook_SheetCalculate(ByVal sh As Object)
sans rencontrer de Pb. Il faut contrôler tes données si elles sont toutes
numériques.
"guy boily" <guyboily@discussions.microsoft.com> a écrit dans le message de
news:8410EF6E-9143-4B03-942A-3FD880939C7C@microsoft.com...
> Bonjour,
> Un grand Merci à tous ceux et celles qui ont répondu à mon appel à l'aide
> et croyez-bien que j'ai l'intention dans le futur de mettre vos
commentaires
> à profit. Mais j'aurais à nouveau besoin de votre aide. J'ai fait part de
ma
> question dans mon message du 23 novembre (Mefc en VBA) à la suite de la
> réponse de FFO. Pourriez-vous s.v.p. m'aider à nouveau?
>
> Merci
>
> --
> boily_SLSJ
J'ai exécuté tes deux Private SubWorkbook_SheetCalculate(ByVal sh As Object)
sans rencontrer de Pb. Il faut contrôler tes données si elles sont toutes
numériques.
"guy boily" a écrit dans le message de
news:
> Bonjour,
> Un grand Merci à tous ceux et celles qui ont répondu à mon appel à l'aide
> et croyez-bien que j'ai l'intention dans le futur de mettre vos
commentaires
> à profit. Mais j'aurais à nouveau besoin de votre aide. J'ai fait part de
ma
> question dans mon message du 23 novembre (Mefc en VBA) à la suite de la
> réponse de FFO. Pourriez-vous s.v.p. m'aider à nouveau?
>
> Merci
>
> --
> boily_SLSJ
cellule pour forcer un recalcul après que j'ai choisi mon code dans ma
déroulante?
Function SomCool(Zne As Range, Couleur As String)
Application.Volatile True
Select Case Couleur
Case "rouge"
Couleur = 3
Case "vert"
Couleur = 4
Case "jaune"
Couleur = 6
Case "bleu"
Couleur = 5
Case "gris"
Couleur = 15
Case "orange"
Couleur = 40
End Select
For Each cell In Zne
If cell.Interior.ColorIndex = Couleur Then cvSomme = cvSomme + 1
'NB : si tu veux dénombrer seulement les cellules d'une couleur donnée,
remplace
' cvSomme= cvSomme+ cell.value par cvSomme=cvSomme+1
Next
SomCool = cvSomme
End Function
Pour compter mes couleurs j'ai mis da ma feuille =somcool(e8:ab8;"rouge")
et ainsi de suite pour vert et jaune...et c'est nickel.
Merci pour tout.
--
boily_SLSJ
"Fredo P." a écrit :
> J'ai exécuté tes deux Private SubWorkbook_SheetCalculate(ByVal sh As
> sans rencontrer de Pb. Il faut contrôler tes données si elles sont
> numériques.
> "guy boily" a écrit dans le message
> news:
> > Bonjour,
> > Un grand Merci à tous ceux et celles qui ont répondu à mon appel à
> > et croyez-bien que j'ai l'intention dans le futur de mettre vos
> commentaires
> > à profit. Mais j'aurais à nouveau besoin de votre aide. J'ai fait part
> ma
> > question dans mon message du 23 novembre (Mefc en VBA) à la suite de
> > réponse de FFO. Pourriez-vous s.v.p. m'aider à nouveau?
> >
> > Merci
> >
> > --
> > boily_SLSJ
>
>
>
cellule pour forcer un recalcul après que j'ai choisi mon code dans ma
déroulante?
Function SomCool(Zne As Range, Couleur As String)
Application.Volatile True
Select Case Couleur
Case "rouge"
Couleur = 3
Case "vert"
Couleur = 4
Case "jaune"
Couleur = 6
Case "bleu"
Couleur = 5
Case "gris"
Couleur = 15
Case "orange"
Couleur = 40
End Select
For Each cell In Zne
If cell.Interior.ColorIndex = Couleur Then cvSomme = cvSomme + 1
'NB : si tu veux dénombrer seulement les cellules d'une couleur donnée,
remplace
' cvSomme= cvSomme+ cell.value par cvSomme=cvSomme+1
Next
SomCool = cvSomme
End Function
Pour compter mes couleurs j'ai mis da ma feuille =somcool(e8:ab8;"rouge")
et ainsi de suite pour vert et jaune...et c'est nickel.
Merci pour tout.
--
boily_SLSJ
"Fredo P." a écrit :
> J'ai exécuté tes deux Private SubWorkbook_SheetCalculate(ByVal sh As
> sans rencontrer de Pb. Il faut contrôler tes données si elles sont
> numériques.
> "guy boily" <guyboily@discussions.microsoft.com> a écrit dans le message
> news:8410EF6E-9143-4B03-942A-3FD880939C7C@microsoft.com...
> > Bonjour,
> > Un grand Merci à tous ceux et celles qui ont répondu à mon appel à
> > et croyez-bien que j'ai l'intention dans le futur de mettre vos
> commentaires
> > à profit. Mais j'aurais à nouveau besoin de votre aide. J'ai fait part
> ma
> > question dans mon message du 23 novembre (Mefc en VBA) à la suite de
> > réponse de FFO. Pourriez-vous s.v.p. m'aider à nouveau?
> >
> > Merci
> >
> > --
> > boily_SLSJ
>
>
>
cellule pour forcer un recalcul après que j'ai choisi mon code dans ma
déroulante?
Function SomCool(Zne As Range, Couleur As String)
Application.Volatile True
Select Case Couleur
Case "rouge"
Couleur = 3
Case "vert"
Couleur = 4
Case "jaune"
Couleur = 6
Case "bleu"
Couleur = 5
Case "gris"
Couleur = 15
Case "orange"
Couleur = 40
End Select
For Each cell In Zne
If cell.Interior.ColorIndex = Couleur Then cvSomme = cvSomme + 1
'NB : si tu veux dénombrer seulement les cellules d'une couleur donnée,
remplace
' cvSomme= cvSomme+ cell.value par cvSomme=cvSomme+1
Next
SomCool = cvSomme
End Function
Pour compter mes couleurs j'ai mis da ma feuille =somcool(e8:ab8;"rouge")
et ainsi de suite pour vert et jaune...et c'est nickel.
Merci pour tout.
--
boily_SLSJ
"Fredo P." a écrit :
> J'ai exécuté tes deux Private SubWorkbook_SheetCalculate(ByVal sh As
> sans rencontrer de Pb. Il faut contrôler tes données si elles sont
> numériques.
> "guy boily" a écrit dans le message
> news:
> > Bonjour,
> > Un grand Merci à tous ceux et celles qui ont répondu à mon appel à
> > et croyez-bien que j'ai l'intention dans le futur de mettre vos
> commentaires
> > à profit. Mais j'aurais à nouveau besoin de votre aide. J'ai fait part
> ma
> > question dans mon message du 23 novembre (Mefc en VBA) à la suite de
> > réponse de FFO. Pourriez-vous s.v.p. m'aider à nouveau?
> >
> > Merci
> >
> > --
> > boily_SLSJ
>
>
>
Salut guy
Excuses moi si je n'ai pu te répondre d'autres obligations m'ont appelé
ailleur
J'ai lu ton adaptation de mon code et voudrai t'apporter une précision
Lorsque tu utilises 2 boucles :
For i > For j >
soit tu les imbriques l'une dans l'autre comme tu l'as fait :
For i = 5 To 28
For k = 5 To 28
If Cells(8, i) < Cells(12, i) And Cells(8, i) < Cells(6, 3) Then
Cells(8, i).Interior.ColorIndex = 3
End If
If Cells(8, i) > Cells(12, i) Then
Cells(8, i).Interior.ColorIndex = 6
End If
If Cells(8, i) < Cells(12, i) And Cells(8, i) > Cells(6, 3) Then
Cells(8, i).Interior.ColorIndex = 4
End If
If Cells(29, k) < Cells(33, k) And Cells(29, k) < Cells(6, 3) Then
Cells(29, k).Interior.ColorIndex = 3
End If
If Cells(29, k) > Cells(33, k) Then
Cells(29, k).Interior.ColorIndex = 6
End If
If Cells(29, k) < Cells(33, k) And Cells(29, k) > Cells(6, 3) Then
Cells(29, k).Interior.ColorIndex = 4
End If
Next k
Next i
soit tu les dissocies ainsi
For i = 5 To 28
If Cells(8, i) < Cells(12, i) And Cells(8, i) < Cells(6, 3) Then
Cells(8, i).Interior.ColorIndex = 3
End If
If Cells(8, i) > Cells(12, i) Then
Cells(8, i).Interior.ColorIndex = 6
End If
If Cells(8, i) < Cells(12, i) And Cells(8, i) > Cells(6, 3) Then
Cells(8, i).Interior.ColorIndex = 4
End If
Next i
For k = 5 To 28
If Cells(29, k) < Cells(33, k) And Cells(29, k) < Cells(6, 3) Then
Cells(29, k).Interior.ColorIndex = 3
End If
If Cells(29, k) > Cells(33, k) Then
Cells(29, k).Interior.ColorIndex = 6
End If
If Cells(29, k) < Cells(33, k) And Cells(29, k) > Cells(6, 3) Then
Cells(29, k).Interior.ColorIndex = 4
End If
Next k
Si tu les imbriques la 2° boucle (For k = 5 To 28 te concernant) se
déroulera à chaque boucle de la 1° (For i = 5 To 28 te concernant)
Ce n'est interessant que si la variable i de la première boucle a une
incidence sur le résultat de la 2° boucle
Pour celà il faudrait que la variable i de la 1° boucle soit aussi une
variable de la 2° boucle en plus de la variable k
Par exemple :
If Cells(8, i+k) < Cells(12, i+k) And Cells(8, i+k) < Cells(6, 3) Then
Cells(8, i+k).Interior.ColorIndex = 3
End If
Or ce n'est pas le cas il n'y a aucune interaction entre les 2 variables des
2 boucles
Celà malgré tout n'altère pas le résultat mais alourdi considérablement le
traitement qui à chaque boucle de la 1° boucle éxécute la 2° boucle pour un
résultat toujours identique
Le phénomène s'accroit avec le nombre de boucles imbriqués
Je te conseille donc fortement si les variables de chaque boucle n'ont
aucune interaction entre elles de les dissociers
Ainsi tu traites ta 1° boucle puis tu traites ta 2° boucle
Et non pas ta 2° boucle autant de fois que la 1° boucle s'éxécute
Tu devrait gagner du temps d'éxécution
Fais des essais et dis moi !!!
Salut guy
Excuses moi si je n'ai pu te répondre d'autres obligations m'ont appelé
ailleur
J'ai lu ton adaptation de mon code et voudrai t'apporter une précision
Lorsque tu utilises 2 boucles :
For i > For j >
soit tu les imbriques l'une dans l'autre comme tu l'as fait :
For i = 5 To 28
For k = 5 To 28
If Cells(8, i) < Cells(12, i) And Cells(8, i) < Cells(6, 3) Then
Cells(8, i).Interior.ColorIndex = 3
End If
If Cells(8, i) > Cells(12, i) Then
Cells(8, i).Interior.ColorIndex = 6
End If
If Cells(8, i) < Cells(12, i) And Cells(8, i) > Cells(6, 3) Then
Cells(8, i).Interior.ColorIndex = 4
End If
If Cells(29, k) < Cells(33, k) And Cells(29, k) < Cells(6, 3) Then
Cells(29, k).Interior.ColorIndex = 3
End If
If Cells(29, k) > Cells(33, k) Then
Cells(29, k).Interior.ColorIndex = 6
End If
If Cells(29, k) < Cells(33, k) And Cells(29, k) > Cells(6, 3) Then
Cells(29, k).Interior.ColorIndex = 4
End If
Next k
Next i
soit tu les dissocies ainsi
For i = 5 To 28
If Cells(8, i) < Cells(12, i) And Cells(8, i) < Cells(6, 3) Then
Cells(8, i).Interior.ColorIndex = 3
End If
If Cells(8, i) > Cells(12, i) Then
Cells(8, i).Interior.ColorIndex = 6
End If
If Cells(8, i) < Cells(12, i) And Cells(8, i) > Cells(6, 3) Then
Cells(8, i).Interior.ColorIndex = 4
End If
Next i
For k = 5 To 28
If Cells(29, k) < Cells(33, k) And Cells(29, k) < Cells(6, 3) Then
Cells(29, k).Interior.ColorIndex = 3
End If
If Cells(29, k) > Cells(33, k) Then
Cells(29, k).Interior.ColorIndex = 6
End If
If Cells(29, k) < Cells(33, k) And Cells(29, k) > Cells(6, 3) Then
Cells(29, k).Interior.ColorIndex = 4
End If
Next k
Si tu les imbriques la 2° boucle (For k = 5 To 28 te concernant) se
déroulera à chaque boucle de la 1° (For i = 5 To 28 te concernant)
Ce n'est interessant que si la variable i de la première boucle a une
incidence sur le résultat de la 2° boucle
Pour celà il faudrait que la variable i de la 1° boucle soit aussi une
variable de la 2° boucle en plus de la variable k
Par exemple :
If Cells(8, i+k) < Cells(12, i+k) And Cells(8, i+k) < Cells(6, 3) Then
Cells(8, i+k).Interior.ColorIndex = 3
End If
Or ce n'est pas le cas il n'y a aucune interaction entre les 2 variables des
2 boucles
Celà malgré tout n'altère pas le résultat mais alourdi considérablement le
traitement qui à chaque boucle de la 1° boucle éxécute la 2° boucle pour un
résultat toujours identique
Le phénomène s'accroit avec le nombre de boucles imbriqués
Je te conseille donc fortement si les variables de chaque boucle n'ont
aucune interaction entre elles de les dissociers
Ainsi tu traites ta 1° boucle puis tu traites ta 2° boucle
Et non pas ta 2° boucle autant de fois que la 1° boucle s'éxécute
Tu devrait gagner du temps d'éxécution
Fais des essais et dis moi !!!
Salut guy
Excuses moi si je n'ai pu te répondre d'autres obligations m'ont appelé
ailleur
J'ai lu ton adaptation de mon code et voudrai t'apporter une précision
Lorsque tu utilises 2 boucles :
For i > For j >
soit tu les imbriques l'une dans l'autre comme tu l'as fait :
For i = 5 To 28
For k = 5 To 28
If Cells(8, i) < Cells(12, i) And Cells(8, i) < Cells(6, 3) Then
Cells(8, i).Interior.ColorIndex = 3
End If
If Cells(8, i) > Cells(12, i) Then
Cells(8, i).Interior.ColorIndex = 6
End If
If Cells(8, i) < Cells(12, i) And Cells(8, i) > Cells(6, 3) Then
Cells(8, i).Interior.ColorIndex = 4
End If
If Cells(29, k) < Cells(33, k) And Cells(29, k) < Cells(6, 3) Then
Cells(29, k).Interior.ColorIndex = 3
End If
If Cells(29, k) > Cells(33, k) Then
Cells(29, k).Interior.ColorIndex = 6
End If
If Cells(29, k) < Cells(33, k) And Cells(29, k) > Cells(6, 3) Then
Cells(29, k).Interior.ColorIndex = 4
End If
Next k
Next i
soit tu les dissocies ainsi
For i = 5 To 28
If Cells(8, i) < Cells(12, i) And Cells(8, i) < Cells(6, 3) Then
Cells(8, i).Interior.ColorIndex = 3
End If
If Cells(8, i) > Cells(12, i) Then
Cells(8, i).Interior.ColorIndex = 6
End If
If Cells(8, i) < Cells(12, i) And Cells(8, i) > Cells(6, 3) Then
Cells(8, i).Interior.ColorIndex = 4
End If
Next i
For k = 5 To 28
If Cells(29, k) < Cells(33, k) And Cells(29, k) < Cells(6, 3) Then
Cells(29, k).Interior.ColorIndex = 3
End If
If Cells(29, k) > Cells(33, k) Then
Cells(29, k).Interior.ColorIndex = 6
End If
If Cells(29, k) < Cells(33, k) And Cells(29, k) > Cells(6, 3) Then
Cells(29, k).Interior.ColorIndex = 4
End If
Next k
Si tu les imbriques la 2° boucle (For k = 5 To 28 te concernant) se
déroulera à chaque boucle de la 1° (For i = 5 To 28 te concernant)
Ce n'est interessant que si la variable i de la première boucle a une
incidence sur le résultat de la 2° boucle
Pour celà il faudrait que la variable i de la 1° boucle soit aussi une
variable de la 2° boucle en plus de la variable k
Par exemple :
If Cells(8, i+k) < Cells(12, i+k) And Cells(8, i+k) < Cells(6, 3) Then
Cells(8, i+k).Interior.ColorIndex = 3
End If
Or ce n'est pas le cas il n'y a aucune interaction entre les 2 variables des
2 boucles
Celà malgré tout n'altère pas le résultat mais alourdi considérablement le
traitement qui à chaque boucle de la 1° boucle éxécute la 2° boucle pour un
résultat toujours identique
Le phénomène s'accroit avec le nombre de boucles imbriqués
Je te conseille donc fortement si les variables de chaque boucle n'ont
aucune interaction entre elles de les dissociers
Ainsi tu traites ta 1° boucle puis tu traites ta 2° boucle
Et non pas ta 2° boucle autant de fois que la 1° boucle s'éxécute
Tu devrait gagner du temps d'éxécution
Fais des essais et dis moi !!!
Rebonjour guy
" je garde mes
For...IF comme ils étaient.."
Dissociés donc je suppose ???
Concernant ta problématique
"Private Sub
Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) "
Je ne suis pas à l'origine de la proposition mais peux essayer de te trouver
une solution
Peux sur ce lien me transmettre ton document afin que je l'analyse :
http://www.cijoint.fr/index.php
communiques moi le lien pour que je le récupère
Rebonjour guy
" je garde mes
For...IF comme ils étaient.."
Dissociés donc je suppose ???
Concernant ta problématique
"Private Sub
Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) "
Je ne suis pas à l'origine de la proposition mais peux essayer de te trouver
une solution
Peux sur ce lien me transmettre ton document afin que je l'analyse :
http://www.cijoint.fr/index.php
communiques moi le lien pour que je le récupère
Rebonjour guy
" je garde mes
For...IF comme ils étaient.."
Dissociés donc je suppose ???
Concernant ta problématique
"Private Sub
Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) "
Je ne suis pas à l'origine de la proposition mais peux essayer de te trouver
une solution
Peux sur ce lien me transmettre ton document afin que je l'analyse :
http://www.cijoint.fr/index.php
communiques moi le lien pour que je le récupère
Rebonjour guy
" je garde mes
For...IF comme ils étaient.."
Dissociés donc je suppose ???
Concernant ta problématique
"Private Sub
Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) "
Je ne suis pas à l'origine de la proposition mais peux essayer de te trouver
une solution
Peux sur ce lien me transmettre ton document afin que je l'analyse :
http://www.cijoint.fr/index.php
communiques moi le lien pour que je le récupère
Rebonjour guy
" je garde mes
For...IF comme ils étaient.."
Dissociés donc je suppose ???
Concernant ta problématique
"Private Sub
Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) "
Je ne suis pas à l'origine de la proposition mais peux essayer de te trouver
une solution
Peux sur ce lien me transmettre ton document afin que je l'analyse :
http://www.cijoint.fr/index.php
communiques moi le lien pour que je le récupère
Rebonjour guy
" je garde mes
For...IF comme ils étaient.."
Dissociés donc je suppose ???
Concernant ta problématique
"Private Sub
Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) "
Je ne suis pas à l'origine de la proposition mais peux essayer de te trouver
une solution
Peux sur ce lien me transmettre ton document afin que je l'analyse :
http://www.cijoint.fr/index.php
communiques moi le lien pour que je le récupère
Rebonjour guy
J'ai testé ton fichier
Si je choisi en C4 un nouveau mois le recalcul s'opère automatiquement
As tu le bon paramétrage dans :
Outils/Options
Onglet Calcul
Rubrique Calcul mettre "Automatique"
Verfies et dis moi !!!!
Rebonjour guy
J'ai testé ton fichier
Si je choisi en C4 un nouveau mois le recalcul s'opère automatiquement
As tu le bon paramétrage dans :
Outils/Options
Onglet Calcul
Rubrique Calcul mettre "Automatique"
Verfies et dis moi !!!!
Rebonjour guy
J'ai testé ton fichier
Si je choisi en C4 un nouveau mois le recalcul s'opère automatiquement
As tu le bon paramétrage dans :
Outils/Options
Onglet Calcul
Rubrique Calcul mettre "Automatique"
Verfies et dis moi !!!!