Discussion :

[max36000]

Bonjour,
je souhaite utiliser la formule NB.SI(I$4:I$4099;">-y") dans VBA mais il se bloque à la ligne 7
je ne vois pas le pb, j'ai tenté d'autre façon d'écrire sans succès

j'ai bien vu ce sujet https://www.developpez.net/forums/d1...efinie-boucle/ mais il ne met pas la solution

voyez vous l'erreur de syntaxe?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
            'calcul du nombre de valeurs suppérieur à -10,-11,-12,-13,..,-20
            Y = 10
            For X = 8205 To 8215
            'cellule(x,I)=appliquer formule (=NB.SI(I$4:I$4099;">-y"))
            Set MaPlage = Range(Cells(4, 9), Cells(iDerLig, 9))
            Cells(X, 9) = Application.WorksheetFunction.CountIf(MaPlage, "" > -"&y&""")
            Y = Y + 1
            Next

[Phil Free]

Bonjour,

essai ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(X, 9) = WorksheetFunction.CountIf(MaPlage, """>-" & y & """")

[max36000]

non ça marche toujours pas, il met toujours

erreur d'exécution '13': incompatibilité de type

[Phil Free]

Essai ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(X, 9).Value = WorksheetFunction.CountIf(MaPlage, """>-" & y & """")

si cela ne fonctionne toujours pas revois le dimensionnement de tes variables x et y

de plus pourquoi ce moins dans ta formule ? une variable dimensionné à long peu très bien contenir un nombre négatif et du coup y=y-1 ferait très bien l'affaire

[OrDonc]

Bonjour …

Avec Option Explicit on est obligé de déclarer les variables* (comme il se doit) d’où une adaptation de ton code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 Option Explicit
 Sub t()
    Dim y As Integer, x As Integer, Maplage As Range
    …
    y = 10
    Set Maplage = Range("I4:I4099")        ‘attention à la feuille contenant cette plage
    For x = 8205 To 8215
      Cells(x, 9) = Application.CountIf(Maplage, ">-" & y)
      y = y + 1
    Next
    …

*pas obligatoire mais très utile !

[Pierre Fauconnier]

Salut.

Pourrais-tu expliquer en français (sans jargon Excel ou VBA) ce que tu cherches à réaliser, avec une copie d'écran à la clé?

[max36000]

Bonjour …

Avec Option Explicit on est obligé de déclarer les variables* (comme il se doit) d’où une adaptation de ton code[...]

c'est la solution UN GRAND MERCI Ordonc

Salut.

Pourrais-tu expliquer en français (sans jargon Excel ou VBA) ce que tu cherches à réaliser, avec une copie d'écran à la clé?

en gros, j'ai une plage de 4100 ligne avec des valeurs variant entre -20 et 10
Objectif:
je voulais compter le nb de valeur supérieur à -10, le nb de valeur supérieur à -11, le nb de valeur supérieur à -12, ..., le nb de valeur supérieur à -20
le X correspond à la ligne ou va être mise la valeur (le nb supérieur à __)
le Y permet d'incrémenté le -10 pour aller à -20

[Pierre Fauconnier]

Ok. Je me posais la question du pourquoi ajouter ces formules en VBA...

Normalement, on travaille dans l'autre sens: Plutôt que d'amener les formules dans le classeur source, on amène les données dans le classeur de traitement, idéalement dans un tableau structuré (ou plusieurs) car le tableau structuré, comme je le précise dans le tuto, s'adapte aux nouvelles lignes de données, et ce classeur contient déjà les formules, graphiques, TCD et tous les outils nécessaires à l'exploitation des données. Cela demande en général moins de traitement de travailler dans ce sens...

Dans ton cas, un TCD fait l'affaire sans formules, par exemple. C'est juste de la conception de classeur, en fait Ca n'a à tout le moins pas de sens d'utiliser du code pour faire cela, surtout sur une plage dont l'adresse est hardcodée. Les fonctions d'ensemble telles que celle utilisée ici sont normalement utilisées sur des tableaux structurés et il est souvent toujours improductif d'utiliser des adresses de plage "en dur" dans du code.

Bon courage pour la suite (tu risques d'en avoir besoin )