une dernière fois cette année, j'ai besoin de votre aide. En effet j'ai la
macro ci-dessous et lorsque je veux l'exécuter, elle s'arrête à NEXT et
recommence à IF cells (donc tourne en boucle et ne donne pas le résultat).
Merci d'avance pour votre secours et bonne année.
Macro.
Dim cells As Range, Compteur As Byte
Dim derligne
compteur = 0
derligne = sheets("base").range("h65536").End(xlUp).Row
For each cells in Sheets("Base").Range("h1:h" & derligne)
If celle = Sheets("stat").Range("e69").Value and
Abs(cells.Interior.Colorindex = 36) Then
compteur = compteur +1
End If
Next
sheets ("stat").range("f69").Value = compteur
Ens sub
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
Gaenonius
Cells est un mot clé du langage VBA pour Excel (alors que Cell ne l'est pas...). C'est une très mauvaise idée d'utiliser un mot clé comme nom de variable. Choisis un autre nom et relance ta procédure..pour voir.
-- Gaenonius
Bonjour à tous,
une dernière fois cette année, j'ai besoin de votre aide. En effet j'ai la macro ci-dessous et lorsque je veux l'exécuter, elle s'arrête à NEXT et recommence à IF cells (donc tourne en boucle et ne donne pas le résultat).
Merci d'avance pour votre secours et bonne année.
Macro.
Dim cells As Range, Compteur As Byte Dim derligne compteur = 0 derligne = sheets("base").range("h65536").End(xlUp).Row For each cells in Sheets("Base").Range("h1:h" & derligne) If celle = Sheets("stat").Range("e69").Value and Abs(cells.Interior.Colorindex = 36) Then compteur = compteur +1 End If Next sheets ("stat").range("f69").Value = compteur Ens sub
Cells est un mot clé du langage VBA pour Excel (alors que Cell ne l'est pas...).
C'est une très mauvaise idée d'utiliser un mot clé comme nom de variable.
Choisis un autre nom et relance ta procédure..pour voir.
--
Gaenonius
Bonjour à tous,
une dernière fois cette année, j'ai besoin de votre aide. En effet j'ai la
macro ci-dessous et lorsque je veux l'exécuter, elle s'arrête à NEXT et
recommence à IF cells (donc tourne en boucle et ne donne pas le résultat).
Merci d'avance pour votre secours et bonne année.
Macro.
Dim cells As Range, Compteur As Byte
Dim derligne
compteur = 0
derligne = sheets("base").range("h65536").End(xlUp).Row
For each cells in Sheets("Base").Range("h1:h" & derligne)
If celle = Sheets("stat").Range("e69").Value and
Abs(cells.Interior.Colorindex = 36) Then
compteur = compteur +1
End If
Next
sheets ("stat").range("f69").Value = compteur
Ens sub
Cells est un mot clé du langage VBA pour Excel (alors que Cell ne l'est pas...). C'est une très mauvaise idée d'utiliser un mot clé comme nom de variable. Choisis un autre nom et relance ta procédure..pour voir.
-- Gaenonius
Bonjour à tous,
une dernière fois cette année, j'ai besoin de votre aide. En effet j'ai la macro ci-dessous et lorsque je veux l'exécuter, elle s'arrête à NEXT et recommence à IF cells (donc tourne en boucle et ne donne pas le résultat).
Merci d'avance pour votre secours et bonne année.
Macro.
Dim cells As Range, Compteur As Byte Dim derligne compteur = 0 derligne = sheets("base").range("h65536").End(xlUp).Row For each cells in Sheets("Base").Range("h1:h" & derligne) If celle = Sheets("stat").Range("e69").Value and Abs(cells.Interior.Colorindex = 36) Then compteur = compteur +1 End If Next sheets ("stat").range("f69").Value = compteur Ens sub
verificator
bonjour Stephane, tu as fait une erreur avec la variable "cells" qui devient "celle" dans ta boucle. Par prudence j'éviterais de nommer une variable "cells" qui est un objet de VBA. amicalement
Dim cells As Range, Compteur As Byte Dim derligne compteur = 0 derligne = sheets("base").range("h65536").End(xlUp).Row For each cells in Sheets("Base").Range("h1:h" & derligne) If celle = Sheets("stat").Range("e69").Value and Abs(cells.Interior.Colorindex = 36) Then compteur = compteur +1 End If Next sheets ("stat").range("f69").Value = compteur Ens sub .
bonjour Stephane,
tu as fait une erreur avec la variable "cells" qui
devient "celle" dans ta boucle.
Par prudence j'éviterais de nommer une variable "cells"
qui est un objet de VBA.
amicalement
Dim cells As Range, Compteur As Byte
Dim derligne
compteur = 0
derligne = sheets("base").range("h65536").End(xlUp).Row
For each cells in Sheets("Base").Range("h1:h" & derligne)
If celle = Sheets("stat").Range("e69").Value and
Abs(cells.Interior.Colorindex = 36) Then
compteur = compteur +1
End If
Next
sheets ("stat").range("f69").Value = compteur
Ens sub
.
bonjour Stephane, tu as fait une erreur avec la variable "cells" qui devient "celle" dans ta boucle. Par prudence j'éviterais de nommer une variable "cells" qui est un objet de VBA. amicalement
Dim cells As Range, Compteur As Byte Dim derligne compteur = 0 derligne = sheets("base").range("h65536").End(xlUp).Row For each cells in Sheets("Base").Range("h1:h" & derligne) If celle = Sheets("stat").Range("e69").Value and Abs(cells.Interior.Colorindex = 36) Then compteur = compteur +1 End If Next sheets ("stat").range("f69").Value = compteur Ens sub .
Michel69
Salut Stéphane, T'as pas un pb dans ton If ? regarde comment tu as écrit Cell(e) ? A+ Stéphane a écrit dans le message :
Bonjour à tous,
une dernière fois cette année, j'ai besoin de votre aide. En effet j'ai la macro ci-dessous et lorsque je veux l'exécuter, elle s'arrête à NEXT et recommence à IF cells (donc tourne en boucle et ne donne pas le résultat).
Merci d'avance pour votre secours et bonne année.
Macro.
Dim cells As Range, Compteur As Byte Dim derligne compteur = 0 derligne = sheets("base").range("h65536").End(xlUp).Row For each cells in Sheets("Base").Range("h1:h" & derligne) If celle = Sheets("stat").Range("e69").Value and Abs(cells.Interior.Colorindex = 36) Then compteur = compteur +1 End If Next sheets ("stat").range("f69").Value = compteur Ens sub
Salut Stéphane,
T'as pas un pb dans ton If ? regarde comment tu as écrit Cell(e) ?
A+
Stéphane <Stphane@discussions.microsoft.com> a écrit dans le message :
C9632EBD-13ED-41D0-8002-9E7D1498C5DF@microsoft.com...
Bonjour à tous,
une dernière fois cette année, j'ai besoin de votre aide. En effet j'ai la
macro ci-dessous et lorsque je veux l'exécuter, elle s'arrête à NEXT et
recommence à IF cells (donc tourne en boucle et ne donne pas le résultat).
Merci d'avance pour votre secours et bonne année.
Macro.
Dim cells As Range, Compteur As Byte
Dim derligne
compteur = 0
derligne = sheets("base").range("h65536").End(xlUp).Row
For each cells in Sheets("Base").Range("h1:h" & derligne)
If celle = Sheets("stat").Range("e69").Value and
Abs(cells.Interior.Colorindex = 36) Then
compteur = compteur +1
End If
Next
sheets ("stat").range("f69").Value = compteur
Ens sub
Salut Stéphane, T'as pas un pb dans ton If ? regarde comment tu as écrit Cell(e) ? A+ Stéphane a écrit dans le message :
Bonjour à tous,
une dernière fois cette année, j'ai besoin de votre aide. En effet j'ai la macro ci-dessous et lorsque je veux l'exécuter, elle s'arrête à NEXT et recommence à IF cells (donc tourne en boucle et ne donne pas le résultat).
Merci d'avance pour votre secours et bonne année.
Macro.
Dim cells As Range, Compteur As Byte Dim derligne compteur = 0 derligne = sheets("base").range("h65536").End(xlUp).Row For each cells in Sheets("Base").Range("h1:h" & derligne) If celle = Sheets("stat").Range("e69").Value and Abs(cells.Interior.Colorindex = 36) Then compteur = compteur +1 End If Next sheets ("stat").range("f69").Value = compteur Ens sub
