Macro défectueuse boucle

Version imprimable

Bonjour à tous,
Je rencontre un problème qui est sans doute assez simple. Voici mon code:
Code:

1 2 3 4 5 6 7 8 9 10 Sub indicateurs() Dligne = Range("A1500").End(xlUp).Row For J = 7 To Dligne compteur = 0 If Cells(J, 7) > Cells(1, 8) Then compteur = compteur + 1 Next J Cells(4, 1) = compteur End Sub
Pour information: Mon tableau débute en ligne 7.
Je souhaite ici comparer toutes les cellules de ma colonne 7 (ce sont des dates) à la cellule en (1,8) (date également), et faire une somme de +1 à chaque fois qu'une cellule est supérieur à la date en (1,8).

Malheureusement, il semble y avoir une erreur dans mon code… Une âme charitable pour m'aiguiller ?

Bonne journée,
Mickamax

25/03/2019, 11h43
ARTURO83

Bonjour,

ligne compteur = 0 avant For j

Cdlt
25/03/2019, 11h44
MarcelG

Bonjour Mickamax,

Le compteur doit bien entendu être initié hors boucle.
Prends l'habitude de bien rattacher les objets Range à leur feuille Parent.

Cela dit.

Sans passer par VBA , privilégier les fonctions natives d'Excel (nb.si.....)

Voir la liste des fonctions Microsoft
25/03/2019, 12h31
Menhir

Quand un problème comme ça survient, fais tourner ta macro en pas-à-pas (touche F8) en observant les valeurs des variables dans la fenêtre de variables locales.

Hello,
Merci beaucoup pour vos réponses, c'était évident, mais pas assez pour le débutant que je suis on dirait.
J'ai avancé sur mon code, et je tombe sur un problème outrément plus dérangeant. VBA bloque sur le code suivant:

Code:

Cells(3, 2) = compteur / compteur2

Avec le message d'erreur "erreur d'exécution 6, dépassement de capacité".

J'ai fouillé sur le forum, et ce message semble arriver dans le cas où la valeur est inférieure ou supérieure à -32000 et +32000 (à la louche).
Ce n'est pas mon cas puisqu'il s'agit en fait d'un ratio, qui est compris entre 0 et 1. Je me demande si le problème ne viens pas du nombre de décimale trop important.
Toujours est-il que je n'arrive pas à avancer, quelqu'un saurait me filer un petit coup de pouce ?

Voici mon code: j'ai créé un formulaire où figurent deux arguments:
datedebut: inscrire la date de début d'une période.
Datefin: inscrire la date de fin de la période.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 Private Sub CommandButton1_Click() Dligne = Sheets("indicateurs devis cdes sp?ciale").Range("A1500").End(xlUp).Row compteur = 0 For J = 7 To Dligne If Sheets("indicateurs devis cdes sp?ciale").Cells(J, 3) >= Datedebut And Sheets("indicateurs devis cdes sp?ciale").Cells(J, 3) <= Datefin And Sheets("indicateurs devis cdes sp?ciale").Cells(J, 7) <= Sheets("indicateurs devis cdes sp?ciale").Cells(J, 15) Then compteur = compteur + 1 Next J compteur2 = 0 For K = 7 To Dligne If Sheets("indicateurs devis cdes sp?ciale").Cells(K, 3) >= Datedebut And Sheets("indicateurs devis cdes sp?ciale").Cells(K, 3) <= Datefin Then compteur2 = compteur2 + 1 Next K Sheets("TDB performance").Cells(1, 2) = Datedebut Sheets("TDB performance").Cells(1, 4) = Datefin Cells(3, 2) = compteur / compteur2 Majdate.Hide End Sub
Merci beaucoup !

Mickamax

25/03/2019, 14h17
MarcelG

Plusieurs choses:
Tu ne rattaches toujours pas les objets
Menhir :coucou: t'a conseillé d'utiliser la fenêtre des variables locales.
Qu'en est-il de
Date début?
Idem pour date fin?
compteur 2?

Je reprends donc Menhir.
Place un point d'arrêt au début de ton code puis procède à une exécution pas à pas en affichant la fenêtre des variables locales.

Cela dit, la prudence est de mise lors de la gestion de date par formulaire.
En effet, une Textbox ne retourne que du texte.
Dès lors, ne conviendrait-il pas de transformer les textes de date en date?

Enfin, je me demande si la fonction NB.SI.ENS ne serait pas plus adéquate.
25/03/2019, 15h35
Menhir

Citation:

Envoyé par Mickamax

Code:

Cells(3, 2) = compteur / compteur2

Avec le message d'erreur "erreur d'exécution 6, dépassement de capacité".

Déclare tes variables et donne-leur un type.
Déclare-les TOUTES.

Rend cette déclaration obligatoire en utilisant avant ton premier Sub un Option Explicit ou, mieux, en rendant ça automatique.
Outils > Options > Cocher "Déclaration de variables obligatoire"

Quand on laisse VBA faire et qu'on ne met dans la variable que des entiers, VBA considère la variable comme un Integer.
Et une opération entre deux Integer est considérée comme un Integer, même si, dans le cas d'une division, c'est aberrant (beaucoup de langages informatiques font cette erreur).
Il se peut que ton problème vienne de là.

Citation:

Envoyé par MarcelG

Plusieurs choses:
Tu ne rattaches toujours pas les objets

Bonjour,
Je n'ai jamais appris à attacher des variables à mes fichiers, il s'agit sûrement d'une habitude qui montre rapidement ses limites, comme dans cette situation il semblerait.
Pour ma défense, mes connaissances VBA se basent sur les 8h de cours qui m'ont été dispensées cette année, et des infos que j'ai trouvé par-ci par-là.
Je prendrais cette habitude à partir de maintenant.

Citation:

Menhir :coucou: t'a conseillé d'utiliser la fenêtre des variables locales.
Qu'en est-il de
Date début?
Idem pour date fin?
compteur 2?

Je reprends donc Menhir.
Place un point d'arrêt au début de ton code puis procède à une exécution pas à pas en affichant la fenêtre des variables locales.

Cela dit, la prudence est de mise lors de la gestion de date par formulaire.
En effet, une Textbox ne retourne que du texte.
Dès lors, ne conviendrait-il pas de transformer les textes de date en date?

Bon, je repasse pour le gros noob de service, mais je ne sais pas non plus utiliser l'exécution pas à pas (boouuuuh le nul !) ni ouvrir ma fenêtre des variables locales. :oops:

Effectivement les variables Datedebut et Datefin sont en format textBox. Petite question qui rejoint le fait que j'ai peu de connaissance en variable:
Est-ce que si je déclare : Dim Datedebut as Date et Dim Datefin as Date, le format va changer?

Citation:

Enfin, je me demande si la fonction NB.SI.ENS ne serait pas plus adéquate.

J'ai pour idée de confectionner un tableau de bord qui se met à jour selon la date de début et date de fin. Il y aura par la suite des requêtes plus complexes, d'où l'utilisation de VBA.

Citation:

Déclare tes variables et donne-leur un type.
Déclare-les TOUTES.

Rend cette déclaration obligatoire en utilisant avant ton premier Sub un Option Explicit ou, mieux, en rendant ça automatique.
Outils > Options > Cocher "Déclaration de variables obligatoire"

Quand on laisse VBA faire et qu'on ne met dans la variable que des entiers, VBA considère la variable comme un Integer.
Et une opération entre deux Integer est considérée comme un Integer, même si, dans le cas d'une division, c'est aberrant (beaucoup de langages informatiques font cette erreur).
Il se peut que ton problème vienne de là.

Hello, j'ai déclaré mes variables comme suivi dans le code.
Le problème n'est pas résolu pour autant. Peut-être que l'erreur viens de moi.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 Private Sub CommandButton1_Click() Dim Datedebut As Date Dim Datefin As Date Dim compteur As Integer Dim compteur2 As Integer Dligne = Sheets("indicateurs devis cdes sp?ciale").Range("A1500").End(xlUp).Row compteur = 0 For J = 7 To Dligne If Sheets("indicateurs devis cdes sp?ciale").Cells(J, 3) >= Datedebut And Sheets("indicateurs devis cdes sp?ciale").Cells(J, 3) <= Datefin And Sheets("indicateurs devis cdes sp?ciale").Cells(J, 7) <= Sheets("indicateurs devis cdes sp?ciale").Cells(J, 15) Then compteur = compteur + 1 Next J compteur2 = 0 For K = 7 To Dligne If Sheets("indicateurs devis cdes sp?ciale").Cells(K, 3) >= Datedebut And Sheets("indicateurs devis cdes sp?ciale").Cells(K, 3) <= Datefin Then compteur2 = compteur2 + 1 Next K Sheets("TDB performance").Cells(1, 2) = Datedebut Sheets("TDB performance").Cells(1, 4) = Datefin Sheets("TDB performance").Cells(3, 2) = compteur / compteur2 Majdate.Hide End Sub
Petite question: considère t-on les "compteurs" comme des variables ou non ?
Merci pour votre aide.
Mickamax

25/03/2019, 17h15
MarcelG

1 pièce(s) jointe(s)

Salut Mickamax,

Citation:

Je n'ai jamais appris à attacher des variables à mes fichiers

Ouh là!

Le plus simple serait de débuter par le commencement.
Sur ce forum, tu trouveras bon nombre de tutoriels qui pourront t'aider à structurer un code basique.

En pièce jointe, une liste de liens utiles, dont certains vers des espaces documentaires de base.
Tu consulteras notamment le tutoriel de Silkyroad sur les variables.

Bonne suite.

Bonjour à tous,
J'ai lu les tutoriels avec beaucoup d'intérêt, merci beaucoup.
Je reviens à la charge concernant mon problème d'exécution 6: Dépassement de capacité:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Sub CommandButton1_Click()
Dim compteur As Long
Dim compteur2 As Long
Dim J As Double
Dim K As Double
Dim Datedebut As Date
Dim Datefin As Date
 
 
Dligne = Sheets("indicateurs devis cdes sp?ciale").Range("A150").End(xlUp).Row
 
compteur = 0
    For J = 7 To Dligne
    If Sheets("indicateurs devis cdes sp?ciale").Cells(J, 3) >= Datedebut And Sheets("indicateurs devis cdes sp?ciale").Cells(J, 3) <= Datefin And Sheets("indicateurs devis cdes sp?ciale").Cells(J, 7) <= Sheets("indicateurs devis cdes sp?ciale").Cells(J, 15) Then compteur = compteur + 1
    Next J
compteur2 = 0
    For K = 7 To Dligne
    If Sheets("indicateurs devis cdes sp?ciale").Cells(K, 3) >= Datedebut And Sheets("indicateurs devis cdes sp?ciale").Cells(K, 3) <= Datefin Then compteur2 = compteur2 + 1
    Next K
 
Sheets("TDB performance").Cells(1, 2) = Datedebut
Sheets("TDB performance").Cells(1, 4) = Datefin
 
Sheets("TDB performance").Cells(3, 2) = compteur2 / compteur
 
 
 
Majdate.Hide
End Sub

J'ai eu beau modifié mes variables dans tous les sens, rien n'y fait, j'ai toujours ce problème qui apparaît sur ma dernière ligne de code:

Code:

1
2
 
Sheets("TDB performance").Cells(3, 2) = compteur2 / compteur

Malgré la documentation importante, aucune ne semble correspondre à mon problème… Quelqu'un pour m'aiguiller ?

Mickamax

26/03/2019, 10h59
ARTURO83

Bonjour,

Mettez un point d'arrêt sur la ligne en question et relevez les valeurs de compteur et compteur2

Cdlt
26/03/2019, 12h00
Menhir

Juste avant cette ligne, met le code :

Code:

Debub.Print compteur, compteur2

Et regarde ce qui s'affiche dans la fenêtre d'exécution.

1 pièce(s) jointe(s)

Salut à tous,
J'ai découvert une partie du problème grâce à la fenêtre des variables locales:

Pièce jointe 461311

Mes compteurs sont à 0, d'où le message d'erreur provenant de la division par 0.

J'ai crû que cela venait de ma datedebut et datefin qui était en format Txt, alors que je les comparais à des cellules en format date, mais en modifiant le code et en renvoyant à des cellules elles-mêmes bien en format date, j'ai le même problème.

Voici mon code:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Sub indicateurs() Dim compteur As Integer Dim compteur2 As Integer Dim Dligne As Integer Dligne = Sheets("indicateurs devis cdes sp?ciale").Range("A1500").End(xlUp).Row compteur = 0 For J = 7 To Dligne If Sheets("indicateurs devis cdes sp?ciale").Cells(J, 3) >= Sheets("TDB performance").Cells(1, 2) And Sheets("indicateurs devis cdes sp?ciale").Cells(J, 3) <= Sheets("TDB performance").Cells(1, 4) And Sheets("indicateurs devis cdes sp?ciale").Cells(J, 7) <= Sheets("indicateurs devis cdes sp?ciale").Cells(J, 15) Then compteur = compteur + 1 Next J compteur2 = 0 For K = 7 To Dligne If Sheets("indicateurs devis cdes sp?ciale").Cells(K, 3) >= Sheets("TDB performance").Cells(1, 2) And Sheets("indicateurs devis cdes sp?ciale").Cells(K, 3) <= Sheets("TDB performance").Cells(1, 4) Then compteur2 = compteur2 + 1 Next K Debub.Print compteur, compteur2 Sheets("TDB performance").Cells(3, 2) = compteur / compteur2 End Sub
Je rebondi sur la remarque de Marcel, la fonction NB.SI.ENS me fait de l'œil tout compte fait… Mais est-il possible dans la variable "SI" d'inclure une autre cellule ?
Un truc du style: Nombre de cellule dans une plage données qui sont inférieures à une date ET supérieure à une date donnée ?

Merci,
Mickamax

26/03/2019, 13h34
Igloobel

Bonjour,

Citation:

Je rebondi sur la remarque de Marcel, la fonction NB.SI.ENS me fait de l'œil tout compte fait… Mais est-il possible dans la variable "SI" d'inclure une autre cellule ?
Un truc du style: Nombre de cellule dans une plage données qui sont inférieures à une date ET supérieure à une date donnée ?

oui il est tout à fait possible de combiner des fonctions entre elles (d'ailleur on le fait tout le temps :mouarf: )

donc sur ta phrase on peut faire

=SI(ET(Condition1;Condition2);ActionAlors;ActionSinon)
26/03/2019, 13h58
Mickamax

1 pièce(s) jointe(s)

Citation:

Envoyé par Igloobel

Bonjour,

oui il est tout à fait possible de combiner des fonctions entre elles (d'ailleur on le fait tout le temps :mouarf: )

donc sur ta phrase on peut faire

=SI(ET(Condition1;Condition2);ActionAlors;ActionSinon)

Bonjour,
Le problème de ma formule =SI(ET( est que je ne peux sélectionner que 1 cellule dans ma condition 1 ou condition 2, si je ne dis pas de bêtise.

Comme une image vaut mieux que mille mots, voici ce que je souhaite faire:

Pièce jointe 461329

Je voudrais que sur une cellule apparaisse le nombre de ligne de mon tableau qui remplissent les conditions suivantes:
- Date supérieure à ma cellule "date début" en B2
- Date inférieure à ma cellule "Date fin" en B4
- Egalement les lignes de mon tableau dont le délai de réponse client (B4) est inférieure au délai de réponse souhaité (B5).

L'idée étant que ma sélection des lignes se mettent à jour automatiquement puisqu'il s'agira d'un tableau nommé, seul les champs "date début" et "date fin" feront office de "variable à modifier".

Merci beaucoup,
C'est fouilli je m'en rends bien compte.
26/03/2019, 14h01
Menhir

Citation:

Envoyé par Mickamax

Effectivement les variables Datedebut et Datefin sont en format textBox. Petite question qui rejoint le fait que j'ai peu de connaissance en variable:
Est-ce que si je déclare : Dim Datedebut as Date et Dim Datefin as Date, le format va changer?

Cette instruction sert à déclarer des variables, pas à changer le type d'un objet.

Donc, il faut créer 2 nouvelles variables de type date avec un nom qui ne corresponde pas à celui d'un objet existant et mettre dedans le contenu de tes textbox convertit en date.
La méthode de conversion dépend de ce qui se trouve dans ces textbox mais il est possible qu'une fonction DateValue puisse faire l'affaire.
https://docs.microsoft.com/fr-fr/off...value-function
26/03/2019, 14h10
Menhir

Citation:

Envoyé par Mickamax

Je voudrais que sur une cellule apparaisse le nombre de ligne de mon tableau qui remplissent les conditions suivantes:
- Date supérieure à ma cellule "date début" en B2
- Date inférieure à ma cellule "Date fin" en B4
- Egalement les lignes de mon tableau dont le délai de réponse client (B4) est inférieure au délai de réponse souhaité (B5).

Pour connaitre le nombre d'occurrences sur une (ou plusieurs) condition, utilise la fonction NB.SI.ENS().

Citation:

L'idée étant que ma sélection des lignes se mettent à jour automatiquement puisqu'il s'agira d'un tableau nommé, seul les champs "date début" et "date fin" feront office de "variable à modifier".

Là, je n'ai rien compris à ta phrase.