Macro Recherche et Calcul de lignes Résolu/Fermé

Question

Bonjour,  

Je me tourne vers vous afin de demander votre aide. "HELP" !!! 

J'ai créé un fichier Excel avec des macros, des formules etc et il ne me reste plus qu'une macro à faire (je ne pense pas que cela soit possible avec des formules) avant de terminer ce fichier sur lequel je travaille depuis pas mal de temps et où en ce moment je bloque complètement ...  

Je vous explique le déroulement du fichier : 

Il y a 4 onglets (A, B, C, D) qui sont remplis manuellement par une équipe. 
Une autre équipe chargée d'exploiter le fichier va se servir de l'onglet "Synoptic" afin de choisir de quel(s) onglet(s) ils ont besoin. Ils vont donc remplir les colonnes de l'onglet "Synoptic" avec des numéros dans l'ordre où ils veulent que les onglets apparaissent ... 
En cliquant sur "CREATE" (dans l'onglet Synoptic), l'onglet "Process analysis Synoptic" s'affiche avec le contenu des onglets (A, B, C ou D) l'un après l'autre. 

En gros, on choisit ce qu'on veut sur Synoptic, la macro va rechercher ce qu'on veut et le colle dans l'onglet Process analysis Synoptic dans l'ordre désiré. 

Maintenant (là où je bloque) : 

Je voudrais que l'onglet "Balance" se remplisse automatiquement en fonction du contenu de l'onglet "Process Analysis Synoptic".  

Je m'explique plus clairement : 

L'onglet Process Analysis Synoptic est créé.  

Dans cet onglet, il y a deux phases de cotations (les colonnes entre M et AD et les colonnes entre AH et AY). Je voudrais que la macro aille recherché le nombre de ligne présente sur cet onglet (une ligne = là où il y a un résultat compris entre 0 et 1000, le reste n'est que mise en page).  

Donc je veux que la macro compte le nombre de lignes présentes et qu'elle calcule ensuite le nombre de ligne où le résultat est supérieur à 60 (toujours dans l'onglet Process Analysis Synoptic) 
Ensuite, elle affichera le résultat du nombre de lignes total dans l'onglet Balance en D23 et le nombre de ligne supérieur à 60 dans l'onglet D24. 


Voilà ce que je recherche ! Le reste je pense pouvoir m'en sortir tout seul, il me faut juste cette macro ... 

En espérant que c'est possible ! Merci d'avance ! 

Fichier joint : http://cjoint.com/data3/3KvkyKDxKD2.htm 

Si ce n'est pas possible, faites moi le savoir ! Merci 



Configuration: Windows XP / Chrome 23.0.1271.64  
  
"Mais comment faire, 
Comment lui dire, 
Comment lui faire voir, 
Ma planète, 
Artificielle..." 

-M-

Heliotte · Answer

je regarde à cela ce soir
a+

GTA54 · Answer

Merci beaucoup ! ;)

Heliotte · Answer

On ne peut pas dire que c'est très clair:
D'un côté, du dis: une ligne = là où il y a un résultat compris entre 0 et 1000, le reste n'est que mise en page
et plus bas, à deux reprises, tu parles de ligne où le résultat est supérieur à 60
En plus de cela, je pense que je perd mon temps alors que je pourrais aider une autre personne qui ne joue pas avec mes pieds, car tu parles de résultats, mais je ne vois pas où je vais bien pouvoir tiré des résultats. Si tu parles des résultat se trouvant dans l'encadré "D. BULB ASSEMBLY ON A TUBE / Assemblage..." entre la colonne "N" et "AC", je pense qu'on ne peut pas se fier à un numéero de lignes, car l'encadré juste avant contient beaucoup de lignes vides !!!

Pour résumé, tu me fait un topo plus précis avec des données se trouvant toujours à la même place ou au moins des données se trouvant à des endroits dont on peux expliquer avec certitude pourquoi elles à ces places.
Actuellement, je ne voit pas comment résoudre ton problème.

Si on a des données situées dans une colonne "x", on peut faire un compteur de ligne + un compteur de ligne répondant à tel ou tel critère avec ou sans macro

GTA54 · Answer

J'ai encore une question Heliotte.

J'ai bien compris votre macro et j'aimerais savoir comment je pourrais insérer des conditions. 

Par exemple, ne compter que les lignes >60 qui n'ont pas de "X" dans la colonne BA.

CAD que je compte toute les lignes et les reporte dans l'onglet balance. Ensuite je compte toutes les lignes >60 puis je compte le nombre de lignes >60 mais avec un "X" dans la colonne BA. Enfin, je reporte le résultat de la soustraction Nombre de lignes >60 - Nombre de ligne >60 et avec un "X". 

Redites moi si c'est possible. Merci ! =)

GTA54 · Answer

Bonjour Helliote, J'ai un soucis avec une nouvelle macro. Elle s'exécute parfaitement bien pour la partie 10 >= S >= 8 mais en ce qui concerne la partie 4 >= S >= 1 ce n'est pas bon... Voici la macro : Sub BalanceRSA() Dim NbTotalLignes As Long, NbTotalLigneSup60 As Long, NbTotalLigneInf36 As Long Dim NbTotalLignesSeverity As Long, NbTotalLignesSeverity1 As Integer Dim DerniereLigne As Long Dim i As Long ' ' repères NbTotalLignes = 0 NbTotalLigneSup36 = 0 NbTotalLignesSeverity = 0 NbTotalLigneInf36 = 0 NbTotalLigneSup100 = 0 NbTotalLigneInf100 = 0 NbTotalLignesSeverity3 = 0 NbTotalLignesSeverity2 = 0 DerniereLigne = Worksheets("Process Analysis Synoptic").Range(Chr(89) & "65536").End(xlUp).Row ' Y=89 ' ' calcul pour 10 >= Severity > 8 For i = 1 To DerniereLigne If (Val(Worksheets("Process Analysis Synoptic").Cells(i, 25).Value) > 0) Then NbTotalLignes = NbTotalLignes + 1 End If Next i For i = 1 To DerniereLigne If (Val(Worksheets("Process Analysis Synoptic").Cells(i, 25).Value) > 36) Then NbTotalLignesSeverity = NbTotalLignesSeverity + 1 If (Val(Worksheets("Process Analysis Synoptic").Cells(i, 22).Value) > 8) Then NbTotalLigneSup36 = NbTotalLigneSup36 + 1 End If End If Next i For i = 1 To DerniereLigne If (Val(Worksheets("Process Analysis Synoptic").Cells(i, 25).Value) < 36) Then NbTotalLignesSeverity1 = NbTotalLignesSeverity1 + 1 If (Val(Worksheets("Process Analysis Synoptic").Cells(i, 22).Value) > 8) Then NbTotalLigneInf36 = NbTotalLigneInf36 + 1 End If End If Next i ' calcul pour 1 >= Severity >= 4 For i = 1 To DerniereLigne If (Val(Worksheets("Process Analysis Synoptic").Cells(i, 25).Value) > 100) Then NbTotalLignesSeverity2 = NbTotalLignesSeverity2 + 1 If (Val(Worksheets("Process Analysis Synoptic").Cells(i, 22).Value) < 5) Then NbTotalLigneSup100 = NbTotalLigneSup100 + 1 End If End If Next i For i = 1 To DerniereLigne If (Val(Worksheets("Process Analysis Synoptic").Cells(i, 25).Value) > 36) Then NbTotalLignesSeverity3 = NbTotalLignesSeverity3 + 1 If (Val(Worksheets("Process Analysis Synoptic").Cells(i, 22).Value) < 5) Then NbTotalLigneInf100 = NbTotalLigneInf100 + 1 End If End If Next i ' ' écrire les résultats Worksheets("balance").Cells(22, 24).Value = NbTotalLignes ' 10 >= S >= 4 Worksheets("balance").Cells(26, 25).Value = NbTotalLigneSup36 Worksheets("balance").Cells(27, 25).Value = NbTotalLigneInf36 Worksheets("balance").Cells(30, 25).Value = NbTotalLigneSup100 Worksheets("balance").Cells(31, 25).Value = NbTotalLigneInf100 'Worksheets("balance").Cells(34, 25).Value = NbTotalLignesSeverity End Sub En espérant que tu arrives à comprendre. Merci !

Macro Recherche et Calcul de lignes

5 réponses

Discussions similaires