XL 2019 Comparer deux listes pour répertorier les nouveau

TooFatBoy

XLDnaute Barbatruc

• Hier à 20:31

• #2

Bonjour,

Je ne vois pas à quoi sert le With dans la macro. 🙁

Quand tu utilises Cells.SpecialCells(xlCellTypeConstants) tu utilises toutes les cellules de la feuille qui contiennent une constante, et ce n'est probablement pas ce que tu veux faire.

Il faudrait peut-être réécrire complètement la macro.
Sinon, tu peux utiliser une formule du genre =SI(NB.SI(AX$5:AX$97;B5&" "&C5);"";"Nouveau").

 

Vote positif 0 Vote négatif

Solution

sylvanu

XLDnaute Barbatruc

Supporter XLD

• Hier à 21:20

• #3

Bonsoir Webperegrino,TooFatBoy,
Un essai en PJ avec :

VB:

Private Sub CommandButton1_Click()
    Dim Ancien, L%, i%, Prenom$, Nom$, Present%
    Application.ScreenUpdating = False
    Ancien = Range("AY5:AZ" & Cells(Rows.Count, "AY").End(xlUp).Row)
    For L = 5 To Cells(Rows.Count, "B").End(xlUp).Row
        Prenom = Cells(L, "B"): Nom = Cells(L, "C"): Present = 0
        For i = 1 To UBound(Ancien)
            If Ancien(i, 1) = Prenom And Ancien(i, 2) = Nom Then: Present = 1: Exit For
        Next i
        If Present = 0 Then Cells(L, "F") = "NOUVEAU" Else Cells(L, "F") = ""
    Next L
End Sub

 

Pièces jointes

• Répertorier les nouveaux en colonne F.xlsm

  34.3 KB · Affichages: 0

Vote positif 0 Vote négatif

W

Webperegrino

XLDnaute Accro

Supporter XLD

• Hier à 21:33

• #4

Le Forum,
Bonsoir TooFatBoy,
"Mais c'est bien sûr !", cette formule est aussi efficace que du VBA.
Je l'ai adoptée dans mon fichier source et cela produit exactement l'effet désiré.
Mais, pour entretenir mes neurones, je vais laisser tomber la codification par "Cells.SpecialCells(xlCellTypeConstants)" quand bien même je croyais spécifier, dans mes lignes vba, la plage à travailler : With Range(Cells(5, 50), Cells(derlg, 50))
Je vais revoir cette macro en produisant une série de boucles "For ... Next" sur les colonnes B-C en comparaison de la colonne AX, peut-être arriverai-je à la corriger.
Merci TooFatBoy pour cette formule, ça me convient déjà.
Cordialement,
Webperegrino

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• Hier à 21:45

• #5

Webperegrino à dit:

je croyais spécifier, dans mes lignes vba, la plage à travailler : With Range(Cells(5, 50), Cells(derlg, 50))

Cliquez pour agrandir...

Effectivement, tu spécifies là une plage de cellules dans la colonne AX, mais ensuite tu ne l'utilises pas.

 

Vote positif 0 Vote négatif

W

Webperegrino

XLDnaute Accro

Supporter XLD

• Hier à 21:47

• #6

Le Forum, TooFatBoy,
Bonsoir Sylvanu,
Même pas le temps de finaliser mon message #4 que vous me répondez en #3, avec la solution VBA de surcroît !
... et qui fonctionne aussi bien que la formulation de cellules en colonne "F" de TootFatBoy.
Me voilà maintenant à devoir choisir en deux solutions ! Merci.
Si les cellules de la colonne F contiennent la formule de TooFatBoy, je constate que c'est TooFatBoy qui gagne en rapidité d'exécution par rapport à la programmation rectificative en VBA.
Sylvanu, ne soyez pas contrit si je marque en vert la réponse #2 de TooFatBoy : votre solution est aussi excellente.
Ça devrait être vous qui devriez être marqué en vert car répondant avec du VBA corrigé.
Mais comme l'exécution est plus rapide selon ce que propose TooFatBoy... vraiment désolé Sylvanu, car vos deux solution donnent, également, "une meilleure transparence".
Pour moi vous êtes tous les deux sur la même marche du Podium !
Merci
Webperegrino

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• Hier à 21:53

• #7

Webperegrino à dit:

Sylvanu, ne soyez pas contrit si je marque en vert la réponse #2 de TooFatBoy

Cliquez pour agrandir...

Il n'y a pas compète.
La bonne solution est toujours celle que préfère le demandeur, et avec laquelle il se sent le plus à l'aise. 😉

 

Vote positif 0 Vote négatif

N

Nain porte quoi

XLDnaute Occasionnel

• Hier à 22:40

• #8

TooFatBoy à dit:

Je ne vois pas à quoi sert le With dans la macro. 🙁
Sinon, tu peux utiliser une formule du genre =SI(NB.SI(AX$5:AX$97;B5&" "&C5);"";"Nouveau").

Cliquez pour agrandir...

Chouette, un AMIS 😁
Anti Macro Inutilement Superfétatoire

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• Hier à 23:00

• #9

Webperegrino à dit:

Ça devrait être vous qui devriez être marqué en vert car répondant avec du VBA corrigé.

Cliquez pour agrandir...

Tout à fait, d'autant plus que la version VBA a la faculté de s'adapter automatiquement au nombre de lignes des tableaux, ce que ne fait pas la formule donnée en #2 si tu n'utilises pas des TS.

 

Vote positif 0 Vote négatif

W

Webperegrino

XLDnaute Accro

Supporter XLD

• Il y a 51 minutes

• #10

C'est parfait aussi pour cette formule dans mon fichier car je ne prospecterai que sur 110 à 130 lignes de noms de bénévoles.

La formule =SI(NB.SI(AX$5:AX$97;B5&" "&C5);"";"Nouveau")
est devenue dans mon application, en colonne F,
=si(C5="";"";SI(NB.SI(AX$5:AX$130;B5&" "&C5);"";"Nouveau"))

Ainsi, les lignes vides de la colonne F et en partie basse du pavé, ne contiendront pas "Nouveau", si j'ai moins de 130 bénévoles à saisir.
Merci TooFatBoy,
Webperegrino

 

Vote positif 0 Vote négatif