problème avec Countif

Version imprimable

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:

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

11/03/2020, 16h55
Phil Free

Bonjour,

essai ceci :

Code:

Cells(X, 9) = WorksheetFunction.CountIf(MaPlage, """>-" & y & """")
11/03/2020, 16h58
max36000

non ça marche toujours pas, il met toujours

Citation:

erreur d'exécution '13': incompatibilité de type
11/03/2020, 17h22
Phil Free

Essai ceci :

Code:

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

Bonjour …

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

Code:

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 !

12/03/2020, 10h02
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é?
12/03/2020, 11h04
max36000

Citation:

Envoyé par OrDonc

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

Citation:

Envoyé par 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é?

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
12/03/2020, 11h33
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 ;) )