Copie de ligne

[Yakusa]

Bonjour à tous et à toutes,

J'ai essayé de trouver une soluce à mon souci dans le forum mais sans succès donc je me suis permis d'écrire un petit topic afin que vous puissiez m'aider à résoudre celui ci 😀

Voilà le souci :
Je possède un fichier multiligne avec 3 colonnes (ID - FirstName - LastName)
La colonne qui nous intéresse est la colonne ID qui possède des valeurs de couleur rouge et de couleur noir.
Ce que je souhaiterai c'est capturer uniquement les valeurs de couleur ROUGE pour les placer dans la feuil2 du même fichier.

NB : Un exemple à été mis en pièce jointe

J'espère que vous pourrez m'aider et je remercie d'avance à tous ceux qui répondront 😀

 

[Robert]

Re : Copie de ligne

Bonjour Yakusa, bonjour le forum,

Je te propose cette petite macro :

Sub Macro1()
Dim cel As Range 'déclare la variable cel
Dim dest As Range 'déclare la variable dest
'boucle sur toutes les cellules éditées de la colonne A
For Each cel In Sheets("Feuil1").Range("A2:A" & Sheets("Feuil1").Range("A65536").End(xlUp).Row)
 
    'condition : si la couleur de la police est rouge
    If cel.Font.ColorIndex = 3 Then
        'définit la variable dest
        Set dest = Sheets("Feuil2").Range("A65536").End(xlUp).Offset(1, 0)
        'copie la ligne dans l'onglet "Feuil2
        Range(cel, cel.Offset(0, 2)).Copy Destination:=dest
    End If ' fin de l acondition
Next cel 'prochaine cellule de la colonne A
End Sub