Bonsoir à tous
Je reviens vers vous car malgré votre aide, je n'arrive toujours pas à m'en
sortir
Ce code fonctionne très bien, trop bien je dirai
Il compte les couleurs à chaque fois que je rentre une valeur dans une
cellule(j'ai beaucoup de cellules et çà me prends pas mal de temps à chaque
fois)
Comment faire pour que le comptage ne se fasse que lorsque j'appui sur le
bouton de commande?
Dans un module
Function Couleur(Rg As Range) As Long
Application.EnableEvents = False
Dim A As Long
For Each c In Rg
If c.Interior.ColorIndex = _
Range(Application.Caller.Address). _
Interior.ColorIndex Then
A = A + 1
End If
Next
Couleur = A
Application.EnableEvents = True
End Function
Sub mamac()
Application.EnableEvents = False
Calculate
Application.EnableEvents = True
End Sub
Dans la feuille
Private Sub CommandButton1_Click()
Call mamac
End Sub
Merci d'avance à l'intérêt que vous porterez à mon problème
Fred
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
JLuc
*Bonjour fredbzr*, Dans les options, met le calcul sur manuel ;-)
Bonsoir à tous Je reviens vers vous car malgré votre aide, je n'arrive toujours pas à m'en sortir Ce code fonctionne très bien, trop bien je dirai Il compte les couleurs à chaque fois que je rentre une valeur dans une cellule(j'ai beaucoup de cellules et çà me prends pas mal de temps à chaque fois) Comment faire pour que le comptage ne se fasse que lorsque j'appui sur le bouton de commande?
Dans un module Function Couleur(Rg As Range) As Long Application.EnableEvents = False Dim A As Long For Each c In Rg If c.Interior.ColorIndex = _ Range(Application.Caller.Address). _ Interior.ColorIndex Then A = A + 1 End If Next Couleur = A Application.EnableEvents = True End Function
Sub mamac() Application.EnableEvents = False Calculate Application.EnableEvents = True End Sub
Dans la feuille Private Sub CommandButton1_Click() Call mamac End Sub
Merci d'avance à l'intérêt que vous porterez à mon problème Fred
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
*Bonjour fredbzr*,
Dans les options, met le calcul sur manuel ;-)
Bonsoir à tous
Je reviens vers vous car malgré votre aide, je n'arrive toujours pas à m'en
sortir
Ce code fonctionne très bien, trop bien je dirai
Il compte les couleurs à chaque fois que je rentre une valeur dans une
cellule(j'ai beaucoup de cellules et çà me prends pas mal de temps à chaque
fois)
Comment faire pour que le comptage ne se fasse que lorsque j'appui sur le
bouton de commande?
Dans un module
Function Couleur(Rg As Range) As Long
Application.EnableEvents = False
Dim A As Long
For Each c In Rg
If c.Interior.ColorIndex = _
Range(Application.Caller.Address). _
Interior.ColorIndex Then
A = A + 1
End If
Next
Couleur = A
Application.EnableEvents = True
End Function
Sub mamac()
Application.EnableEvents = False
Calculate
Application.EnableEvents = True
End Sub
Dans la feuille
Private Sub CommandButton1_Click()
Call mamac
End Sub
Merci d'avance à l'intérêt que vous porterez à mon problème
Fred
*Bonjour fredbzr*, Dans les options, met le calcul sur manuel ;-)
Bonsoir à tous Je reviens vers vous car malgré votre aide, je n'arrive toujours pas à m'en sortir Ce code fonctionne très bien, trop bien je dirai Il compte les couleurs à chaque fois que je rentre une valeur dans une cellule(j'ai beaucoup de cellules et çà me prends pas mal de temps à chaque fois) Comment faire pour que le comptage ne se fasse que lorsque j'appui sur le bouton de commande?
Dans un module Function Couleur(Rg As Range) As Long Application.EnableEvents = False Dim A As Long For Each c In Rg If c.Interior.ColorIndex = _ Range(Application.Caller.Address). _ Interior.ColorIndex Then A = A + 1 End If Next Couleur = A Application.EnableEvents = True End Function
Sub mamac() Application.EnableEvents = False Calculate Application.EnableEvents = True End Sub
Dans la feuille Private Sub CommandButton1_Click() Call mamac End Sub
Merci d'avance à l'intérêt que vous porterez à mon problème Fred
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
fredbzr
Bonjour JLuc j'ai bien essayé, mais çà ne fonctionne pas et le problème est que j'ai d'autres codes qui eux doivent se calculer sans passer par le bouton je viens de m'apercevoir que le calcule par le bouton ne fonctionne qu'une seule fois (il faudrait qu'il fonctionne autant de fois que j'appuis dessus,logique..) Si tu as d'autres solutions je suis preneur car çà fait pas mal de temps que je suis bloqué là dessus merci d'avance
"JLuc" a écrit dans le message de news:
*Bonjour fredbzr*, Dans les options, met le calcul sur manuel ;-)
Bonsoir à tous Je reviens vers vous car malgré votre aide, je n'arrive toujours pas à m'en sortir Ce code fonctionne très bien, trop bien je dirai Il compte les couleurs à chaque fois que je rentre une valeur dans une cellule(j'ai beaucoup de cellules et çà me prends pas mal de temps à chaque fois) Comment faire pour que le comptage ne se fasse que lorsque j'appui sur le bouton de commande?
Dans un module Function Couleur(Rg As Range) As Long Application.EnableEvents = False Dim A As Long For Each c In Rg If c.Interior.ColorIndex = _ Range(Application.Caller.Address). _ Interior.ColorIndex Then A = A + 1 End If Next Couleur = A Application.EnableEvents = True End Function
Sub mamac() Application.EnableEvents = False Calculate Application.EnableEvents = True End Sub
Dans la feuille Private Sub CommandButton1_Click() Call mamac End Sub
Merci d'avance à l'intérêt que vous porterez à mon problème Fred
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
Bonjour JLuc
j'ai bien essayé, mais çà ne fonctionne pas et le problème est que j'ai
d'autres codes qui eux doivent se calculer sans passer par le bouton
je viens de m'apercevoir que le calcule par le bouton ne fonctionne qu'une
seule fois (il faudrait qu'il fonctionne autant de fois que j'appuis
dessus,logique..)
Si tu as d'autres solutions je suis preneur car çà fait pas mal de temps que
je suis bloqué là dessus
merci d'avance
"JLuc" <ns.jeanluc.laurent@free.fr.ns> a écrit dans le message de news:
mn.61aa7d71b940847e.40692@free.fr.ns...
*Bonjour fredbzr*,
Dans les options, met le calcul sur manuel ;-)
Bonsoir à tous
Je reviens vers vous car malgré votre aide, je n'arrive toujours pas à
m'en sortir
Ce code fonctionne très bien, trop bien je dirai
Il compte les couleurs à chaque fois que je rentre une valeur dans une
cellule(j'ai beaucoup de cellules et çà me prends pas mal de temps à
chaque fois)
Comment faire pour que le comptage ne se fasse que lorsque j'appui sur le
bouton de commande?
Dans un module
Function Couleur(Rg As Range) As Long
Application.EnableEvents = False
Dim A As Long
For Each c In Rg
If c.Interior.ColorIndex = _
Range(Application.Caller.Address). _
Interior.ColorIndex Then
A = A + 1
End If
Next
Couleur = A
Application.EnableEvents = True
End Function
Sub mamac()
Application.EnableEvents = False
Calculate
Application.EnableEvents = True
End Sub
Dans la feuille
Private Sub CommandButton1_Click()
Call mamac
End Sub
Merci d'avance à l'intérêt que vous porterez à mon problème
Fred
Bonjour JLuc j'ai bien essayé, mais çà ne fonctionne pas et le problème est que j'ai d'autres codes qui eux doivent se calculer sans passer par le bouton je viens de m'apercevoir que le calcule par le bouton ne fonctionne qu'une seule fois (il faudrait qu'il fonctionne autant de fois que j'appuis dessus,logique..) Si tu as d'autres solutions je suis preneur car çà fait pas mal de temps que je suis bloqué là dessus merci d'avance
"JLuc" a écrit dans le message de news:
*Bonjour fredbzr*, Dans les options, met le calcul sur manuel ;-)
Bonsoir à tous Je reviens vers vous car malgré votre aide, je n'arrive toujours pas à m'en sortir Ce code fonctionne très bien, trop bien je dirai Il compte les couleurs à chaque fois que je rentre une valeur dans une cellule(j'ai beaucoup de cellules et çà me prends pas mal de temps à chaque fois) Comment faire pour que le comptage ne se fasse que lorsque j'appui sur le bouton de commande?
Dans un module Function Couleur(Rg As Range) As Long Application.EnableEvents = False Dim A As Long For Each c In Rg If c.Interior.ColorIndex = _ Range(Application.Caller.Address). _ Interior.ColorIndex Then A = A + 1 End If Next Couleur = A Application.EnableEvents = True End Function
Sub mamac() Application.EnableEvents = False Calculate Application.EnableEvents = True End Sub
Dans la feuille Private Sub CommandButton1_Click() Call mamac End Sub
Merci d'avance à l'intérêt que vous porterez à mon problème Fred
