Bonjour,
je voudrais crée une formule ou un code VBA qui permettrai de retire les informations des cellule dont le fond est jaune ou gris et les copiers sur une autre feuille. y a t il moyen d'apres vous???
Merci d'avance
Bonjour,
je voudrais crée une formule ou un code VBA qui permettrai de retire les informations des cellule dont le fond est jaune ou gris et les copiers sur une autre feuille. y a t il moyen d'apres vous???
Merci d'avance
Bonjour,
Voici un exemple avec une procédure Main qui invoque une procédure CopyIsColor en lui passant les arguments
FromRng - La plage à parcourir
Color - Le code RGB à tester
toRange - L'adresse où copier la valeur (ici la couleur est copiée aussi)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 Option Explicit Sub Main() Dim cFrom As Range, cTo As Range With ThisWorkbook Set cFrom = .Worksheets("Feuil1").Range("B3:B10") Set cTo = .Worksheets("Feuil2").Range("A1") End With CopyIsColor cFrom, vbYellow, cTo End Sub[EDIT]
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 Sub CopyIsColor(FromRng As Range, color As Long, toRange As Range) Dim cel As Range For Each cel In FromRng If cel.Interior.color = color Then cel.Copy toRange.Offset(toRange.CurrentRegion.Rows.Count) End If Next End Sub
Si tu veux copier la valeur sans la mise en forme
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 ' cel.Copy toRange.Offset(toRange.CurrentRegion.Rows.Count) toRange.Offset(toRange.CurrentRegion.Rows.Count) = cel
Philippe Tulliez
Ce que l'on conçoit bien s'énonce clairement, et les mots pour le dire arrivent aisément. (Nicolas Boileau)
Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer suret si celle-ci est pertinente pensez à voter
Mes tutoriels : Utilisation de l'assistant « Insertion de fonction », Les filtres avancés ou élaborés dans Excel
Mon dernier billet : Utilisation de la fonction Dir en VBA pour vérifier l'existence d'un fichier
Partager