XL 2019 Comparer les 2 colonnes I en fonction d'une

Yassin9

XLDnaute Junior
Bonjour,

J'espère que vous allez bien ?

  • J'aimerais savoir s'il était possible de comparer les 2 colonnes I en fonction de H, et n'afficher que les valeurs de I restantes ( en gros n'afficher en colonne K que les valeurs restantes de I - H ) et du coup afficher la valeur du démérite ( en colonne E ) des valeurs restantes en K et que ce process se fasse automatiquement si on change le tri Semaine en E2.

Le fichier Excel est plus parlant.


  • J'aurais une autre question, j'aimerais sortir seulement les valeurs d'un TDC, typiquement ici par exemple j'aimerais sortir les valeurs en dessous de Étiquettes de lignes et Total général et cela même si le filtre change.


1655888792910.png


Merci de votre lecture
 

Pièces jointes

  • Comparaison.xlsx
    831 KB · Affichages: 5
Solution
Yes pour l'astuce,
Allez hop un bon truc pour commencer à bidouiller en macro
DoubleClick sur Module1 et rajoute dans le code ce qui est en rouge
Bon je te joint le fichier tout de même

Sub restants()
Application.EnableEvents = False
[K5:L19].ClearContents
If [I6] = 0 Then GoTo fin
lig = 5
For k = 5 To 11
If Cells(k, 9) <> "Total général" Then
n = Application.Match(Cells(k, 9), [H5:H19], 0)
If Not IsNumeric(n) Then
Cells(lig, 11) = Cells(k, 9): lig = lig + 1
End If
End If
Next
For k = 5 To 19
If Cells(k, 11) = "" Then Exit For
n = Application.Match(Cells(k, 11).Text, [D:D], 0)
If IsNumeric(n) Then Cells(k, 12) = Cells(n, 5)
Next
fin:
Application.EnableEvents = True
End Sub

WTF

XLDnaute Impliqué
Bonjour Yassin,
Je ne suis pas bien sur d'avoir compris ta demande.
Peut être que tu pourrais donner un exemple de résultat attendu.
En PJ une proposition
 

Pièces jointes

  • Comparaison.xlsx
    831.9 KB · Affichages: 3

youky(BJ)

XLDnaute Barbatruc
Bonjour Yassine,WTF,
Voici mais avec macro donc il faut les activer à l'ouverture.
Pour les démérites je prends la valeur en Données, je viens que voir qu'il faut peut être faire la somme des exemple "N1" je prend ici la 1ère valeur trouvée en Données
Bruno
 

Pièces jointes

  • Comparaison.xlsm
    837.5 KB · Affichages: 3

youky(BJ)

XLDnaute Barbatruc
Yes pour l'astuce,
Allez hop un bon truc pour commencer à bidouiller en macro
DoubleClick sur Module1 et rajoute dans le code ce qui est en rouge
Bon je te joint le fichier tout de même

Sub restants()
Application.EnableEvents = False
[K5:L19].ClearContents
If [I6] = 0 Then GoTo fin
lig = 5
For k = 5 To 11
If Cells(k, 9) <> "Total général" Then
n = Application.Match(Cells(k, 9), [H5:H19], 0)
If Not IsNumeric(n) Then
Cells(lig, 11) = Cells(k, 9): lig = lig + 1
End If
End If
Next
For k = 5 To 19
If Cells(k, 11) = "" Then Exit For
n = Application.Match(Cells(k, 11).Text, [D:D], 0)
If IsNumeric(n) Then Cells(k, 12) = Cells(n, 5)
Next
fin:
Application.EnableEvents = True
End Sub
 

Pièces jointes

  • Comparaison.xlsm
    837.3 KB · Affichages: 4

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
312 023
Messages
2 084 715
Membres
102 637
dernier inscrit
TOTO33000