XL 2016 Trouver films non colorisés

[lynyrd]

Bonjour le forum
J'aimerai avoir dans la colonne "C" par rapport à "B" tous les films qui se sont pas en jaune.
en VBA.
Merci

 

[lynyrd]

Merci ChTi160
C'est tout bon

 

[JHA]

Bonjour à tous,

Avec la fonction lire.cellule?

JHA

 

[sylvanu]

Bonjour Lynyrd, Chti, JHA,
Variante avec ... un peu de retard :

Sub NonJaune()
    Dim DL%, Tablo, T, L%, N%
    Application.ScreenUpdating = False
    DL = [B65500].End(xlUp).Row
    [C:C].ClearContents
    Tablo = Range("B1:B" & DL)
    ReDim T(1 To DL): N = 1
    For L = 1 To DL
        If Cells(L, "B").Interior.Color = vbWhite Then
            T(N) = Tablo(L, 1): N = N + 1
        End If
    Next L
    [C1].Resize(DL, 1).Value = Application.Transpose(T)
End Sub

 

[lynyrd]

Merci JHA et sylvanu
Pas mal du tout sylvanu sans espace
Merci

 

[lynyrd]

Je vais abuser
est ce possible d'avoir en colonne "d" tous les films que j'ai dans la colonne "b" et qui ne sont pas dans la colonne "a"
Merci

 

[sylvanu]

Re,
Il suffit de rajouter :

' Tri des présent en B et absent en A
    Erase T
    ReDim T(1 To DL): N = 1
    For L = 1 To DL
        If Application.CountIf([A:A], Tablo(L, 1)) = 0 Then
            T(N) = Cells(L, "B"): N = N + 1
        End If
    Next L
    [D1].Resize(DL, 1).Value = Application.Transpose(T)

( Est ce que "42" est bien différent de "42 - L'histoire vraie de Jackie Robinson" ?

 

[lynyrd]

non c'est les meme films

 

[sylvanu]

Alors liste rectifiée en PJ.

 

[lynyrd]

on s'est mal compris
il me faudrai les films qui se trouvent uniquement en colonne "b" par rapport à la colonne "a"

exemple : "avatar la voie de l'eau" se trouve uniquement dans la colonne "b"

 

[sylvanu]

???
Dans ma PJ, vous avez "AVATAR LA VOIE DE L'EAU" en D293. Présent en B et absent en A.
Ce n'est pas ce que vous voulez ?

 

[lynyrd]

si si ,excuse moi
Merci