Macro Recherche et Calcul de lignes

La seule chose dont je suis certain, c'est que, dans l'onglet "Balance", tu veux:
en "D23", le nombre total de ligne (inclus les lignes vident ?)
en "D24", le nombre de ligne correspondant au nombre de ligne:
- soit : dont le total est compris entre 0 et 1000
- soit : dont le total est supérieur à 60

Je me suis mal exprimé je vais faire un exemple détaillé :

Admettons que je sois un utilisateur du fichier.

Je veux avoir dans l'onglet "Process Analysis Synoptic" les données de l'onglet A et du D l'un après l'autre.
J'ouvre donc l'onglet Synoptic, je met un 1 devant ADHESIVE ASSEMBLY et un 2 devant BULB ASSEMBLY. Je clique sur CREATE. L'onglet Process Analysis Synoptic s'ouvre avec les données de l'onglet A suivies des données de l'onglet D (vous pouvez vous même faire un exemple, cela doit fonctionner).

Maintenant que j'ai l'onglet Process analysis Synoptic avec ce que je veux dedans, je souhaite que l'onglet BALANCE se remplisse tout seul en fonction de l'onglet Process Analysis Synoptic que je viens de créer.

La macro doit :

1) _ Compter le nombre de lignes totale présente dans l'onglet Process analysis Synoptic.
1 ligne = 1 opération (j'ai du supprimer les infos pour secret pro) mais pour être plus clair pour vous 1 ligne = lorsque en colonne Q on a un résultat compris entre 1 et 1000 (colonne Risk Priority Index) on compte 1 (ensuite c'est une addition)
Dans l'exemple du dessus (onglets A et D), je compte 11 lignes (ce que la macro doit trouver).

2) _ Une fois que l'on a compter le nombre de lignes, on inscrit ce résultat dans l'onglet Balance en D23. (c'est le nombre total de lignes présentes)

3) _ Ensuite il faut que je sache combien de lignes (dans les 11 lignes précédentes) ont un résultats supérieurs à 60. La macro va donc faire pareil qu'au point 1 ci avant sauf que le résultat ne devra pas être compris entre 1 et 1000 mais entre 61 et 1000.
Toujours dans l'exemple, je compte 6 lignes avec un résultat supérieurs à 60 dans la colonne Q.

4) _ Pareil que l'étape 2, on inscrit ce résultats (6 lignes) dans l'onglet Balance en D24.

Donc en récapitulatif.

Pour un exemple avec les onglets A et D.
Je créé ma page avec l'onglet Synoptic en mettant 1 devant Adhesive Assembly, je mets un 2 devant Bulb assembly. Click sur CREATE. L'onglet Process analysis s'affiche avec le contenu mis bout a bout des onglets A et D.

Jusqu'ici ca fonctionne, maintenant je veux exploiter Process analysis synoptic et remplir Balance. La macro va compter le nombre de ligne d'info sur Process analysis synoptic

Compter 1 ligne lorsqu'il y a 1 valeur comprise entre 1 et 1000 dans la colonne Q. Ce qui fait donc 11 lignes pour notre exemple. Afficher 11 dans l'onglet Balance en D23.

Faire pareil pour le 2ème comptage avec comme critère non pas une valeur entre 1 et 1000 mais une valeur comprise entre 61 et 1000.
Afficher (pour notre exemple) 6 dans l'onglet Balance en D24.


J'espère avoir été clair. N'hésitez pas à me soumettre vos interrogations. J'ai vraiment besoin de cet outil....

Merci d'avance.

toutes les macros doivent avoir accès à l'onglet "Sheets("presentation")"
or cet onglet (peut-être d'un autre classeur ne s'y trouve pas
moralité .. macros impossible à exécuter sans modifier le code .. d'où l'impossibilité de voir comment ça marche !
Je comprend bien qu'il ne doit pas y avoir de données confidentielles dans les documents émis en dehors du boulot, mais je ne peux pas tester.
Ce qu'il me reste à faire, c'est vous faire part de mes idées. Ce sera à vous de les mettre en oeuvre et de les tester.

Je suis d'accord.

Je vais vider le fichier excel complètement et vous le transmettre. Il y aura l'onglet présentation comme ça.

Merci !

http://cjoint.com/data3/3Kwj3xU4ZRk.htm

Voici le lien !

Oui, c'est tout à fait possible.
Dans le code que je vous ai donné, il y a deux conditions imbriquées.
Il suffit d'imbriquer une troisième conditions.
La première, plus grand que "0" = ok .. on passe à la deuxième.
La deuxième, plus grand que "60" = ok .. on passe à la troisième.
Et la troisième condition devra vérifier que la cellule de cette même ligne mais à la colonne "JeMetsDesX" contient un "x". Si oui, on incrément une variable ; si non, on passe à la ligne suivante:
Le code:

If (Worksheets("Process Analysis Synoptic").Cells(i, 53).Value = "x") Then
                NbTotalLigneSup60 = NbTotalLigneSup60 + 1
End If

Cells(i, 53) : la cellule de la ligne "i" et de la colonne "AB"
"x" : le caractère x
Voilà
Pensez à mettre "résolu", merci
Cordialement

Merci beaucoup !

Je le mettrai en résolu ce soir dès fois que j'ai encore quelque chose à vous demandez dans la journée ... ^^

En tout cas merci beaucoup, vos réponses sont claires, nettes et précises !

Pas de problème
Bonne journée

Re Bonjour Helliote,

J'ai voulu refaire la même démarche mais pas avec la cotation en colonne 17 ! Je choisi la colonne 38 maintenant.
La macro s'exécute mais rien ne s'affiche. :/

Vous savez ce qui se passe ?

Je me demande si ce n'est pas à cause de la ligne :

DerniereLigne = Worksheets("Process Analysis Synoptic").Range(Chr(81) & "65536").End(xlUp).Row ' Q=81

Mais je n'arrive pas à l'interpréter.

Bonjour GTA54,
Pouvez-vous déposer le fichier (après avoir supprimer les données sensibles) ici "cjoint.com" et me laisser le lien dans votre prochain message, merci.

Bonjour GTA54,
Vous le placez à quel endroit ce code, dans une feuille (quel nom) ou dans un module ?
Qu'est-il censé faire ?

Alors dans un module. Il se lance avec un bouton.

Son déroulement :

Dans l'onglet Process Analsysis Synoptic, la macro recherche le nombre de ligne supérieures à 0 en colonne "Y".
Elle inscrit le résultat dans l'onglet Balance.

Ensuite elle recherche le nombre de lignes supérieures à 36 en colonne "Y" ET comprises entre 8 et 10 en "V". Elle inscrit le résultat dans l'onglet Balance.

Maintenant même tâche que la ligne précédente avec valeur comprises entre 8 et 10 en "V" MAIS cette fois avec les valeurs inférieures à 36 en "Y". Résultat dans balance.

Ainsi de suite avec :

Valeurs comprises entre 4 et 8 en "V". Et valeurs supérieures à 50 en "Y". Puis valeurs inférieures à 50 en "Y". Résultats dans Balance

Enfin, Valeurs comprises entre 1 et 4 en "V". Et valeurs supérieures à 100 en "Y". Puis valeurs inférieures à 100 en "Y". Résultats dans Balance.

En espérant avoir été clair. =)

Merci d'avance.

Bonsoir GTA54,
J'ai modifié complètement le code, car, par rapport à la semaine passée, mon analyse à changer. Principalement à cause des données élémentaires et des calculs à effectuer.
J'ai mis le fichier (texte) ici : http://cjoint.com/data/0KBqwBvzFFR.htm .. à coller dans un module. La seule chose que je n'ai pas changer est le nom de la procédure.
Veuillez vérifier que les données 'résultats' sont copiées au bon endroit .. A cet égard, j'ai ajouté tous les commentaires nécessaire à cette vérification.
Cordialement

Bonjour Heliotte !

Merci pour la macro mais cela ne fonctionne pas... Je vous laisse le fichier ici http://cjoint.com/12nv/BKCjlpb7pA5.htm

Ce sera plus simple à comprendre ce que je recherche et vous pourrez vérifier par vous même ce qui ne va pas.. Parce que personnellement je bloque car votre macro avait l'air de coller parfaitement avec ce que je cherchais.

J'espère que cela va pouvoir se faire !

En attendant merci !

Cordialement

Le but étant de remplir le tableau qui se trouve dans l'onglet "Balance".

La colonne "Initial" est traitée par rapport aux données en colonnes V et Y.
La colonne "Revision after action" est quant à elle remplie grâce aux données en colonnes AQ et AT.

Je ne vous avais pas demandé cela puisque ça aurait été un copier-coller de la macro en V et Y, mais puisque vous avez le fichier, je préfère que ce soit vous qui vous penchiez dessus tout de suite. Cela évitera de vous redéranger encore et encore .... =S

Cordialement.