Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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.




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], 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: 4

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
Je viens de faire une autre version qui prend le démérite en colonne E mais beaucoup sont absent.
Peut être que dans le bon fichier on les retrouvent.
Bruno
 

Pièces jointes

  • Comparaison.xlsm
    837.5 KB · Affichages: 1

Yassin9

XLDnaute Junior
Re bonjour à vous @youky(BJ) et @WTF merci pour vos réponses précieuse,

J'ai checker un peu mais ton fichier @youky(BJ) et cela m'a l'air bon même si j'ai un peu de mal avec le codage

Et @WTF je pense que il y'a un problème pour ta macro regarde ce que cela me donne :


J'ai une erreur dès que je modifie le filtre.

Merci à vous
 

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], 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

Réponses
8
Affichages
385
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…