XL 2016 soustraire texte

[jcpat]

bonsoir
j'espère que vous allez bien 🙂
voilà j'ai une problématique, dans mon fichier excel j'ai 2 tableaux le 1 et le 2.
Dans le 1 j'ai des prénoms dans une case en couleur, je cherche à copier dans un tableau 2 les prénoms qui ne sont pas en couleur, bref j'essaie de soustraire du texte d'un tableau à un autre.
Merci @ vous si avez une solution

 

[sylvanu]

Bonsoir Jcpat,
Un essai en PJ avec :

Sub Copie()
For Each c In Range("C2:F9")
    If c.Interior.Color = vbWhite Then
        c.Offset(10, 0) = c
    End If
Next c
End Sub

 

[job75]

Bonsoir jcpat, sylvanu,

Si le tableau source est grand il faut utiliser un tableau VBA pour aller vite :

Sub Copier()
Dim source As Range, ncol%, dest As Range, tablo, i&, j%
Set source = [C2:F9] 'à adapter
ncol = source.Columns.Count
Set dest = [C12] '1ère cellule de destination, à adapter
tablo = source.Resize(source.Rows.Count + 1) 'matrice, plus rapide, au moins 2 éléments
For i = 1 To UBound(tablo) - 1
    For j = 1 To ncol
        If tablo(i, j) <> "" Then If source(i, j).Interior.ColorIndex <> xlNone Then tablo(i, j) = ""
Next j, i
'---restitution---
With dest.Resize(i - 1, ncol)
    .Value = tablo
    .Borders.Weight = xlThin 'bordures
End With
End Sub

A+

 

[job75]

Testé sur 50 000 lignes, voyez le fichier joint.

 

[mapomme]

Bonjour à tous,

Une autre méthode un tout petit peu plus rapide...

 

[jcpat]

Bonjour, désolé pour ma réponse tardive , juste merci @ vous pour vos retours , j'ai pu adapter mon fichier .
Encore une fois vous êtes au top 🙂