Discussion :

[Sarah SO]

Bonjour,

j'ai besoin d'aide pour un code VBA. Je dois réaliser une feuille contenant le nombre de refus effectués par un opérateur. De ce fait, je ne devrais obtenir que la liste des opérateurs ayant déjà refusée quelque chose ainsi que l'opérateur le plus critique ( tel que pour le bouton criticité fournisseur mais pour les opérateurs)

Cependant, mon code ne fonctionne pas, je ne comprends pas pourquoi.

[galopin01]

Bonjour,
Comme dit sur un autre forum cette comparaison est absurde :

Code :

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

While Sheets("Récep°Mat°1° (+analyse Pareto)").Cells(k, 4).Value <> Sheets("Salariés").Cells(j, 2).Value

On ne compare pas des nombres (Integer) avec des prénoms (String)
A+

[Sarah SO]

Je vous remercie de votre réponse. Comment dois je m’y Prendre alors car je ne vois pas comment faire ?

[Transitoire]

bonjour, compliqué et abstrus votre projet?

Code :

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

While Sheets("Récep°Mat°1° (+analyse Pareto)").Cells(k, 4).Value <> Sheets("Salariés").Cells(j, 2).Value

En fait, vous comparez un code opérateur avec un nom salarié.
Il faudrait comparer les code opérateur entre eux.

Code :

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

While Sheets("Récep°Mat°1° (+analyse Pareto)").Cells(k, 4).Value <> Sheets("Salariés").Cells(j, 1).Value

En ce qui concerne le reste, je ne pourrais pas vous aider beaucoup plus, car je suis sur Mac et je ne peut donc travailler avec des documents contenant des "ActiveX"

Cordialement

[Sarah SO]

Bonjour,

je vous remercie de votre réponse. C'est ce que j'ai tenté de faire, mais cette partie du code reste tjrs fausse.

[galopin01]

Bonjour,
En fait c'est un peu plus compliqué que ça car il y a une colonne cachée précisément la 4 ! Si ce sont les codes opérateurs que tu veux comparer
il faudrait mettre :

Code :

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

While Sheets("Récep°Mat°1° (+analyse Pareto)").Cells(k, 5).Value <> Sheets("Salariés").Cells(j, 1).Value

Il n'y a plus d'erreur mais pas de résultat non plus car c'est la suite qui est fausse :

Code :

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

If Sheets("Récep°Mat°1° (+analyse Pareto)").Cells(k, 7).Value = "Vrai" Then

En fait avec cette colonne cachée c'est tout ce qui concerne cette feuille qui devient faux : la colonne 7 devient 8 et ...je n'ai pas été plus loin car je ne comprend pas vraiment ce que tu fais !
A+