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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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

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

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
496
Réponses
7
Affichages
547
Retour