Macro pour copier une ligne si il y a une couleur
Arenh
-
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour le forum,
Est-il possible de copie une ligne (ex a1) d'une page ( Feuil 1) sur une autre page (feuil 2) si la ligne (a1) contient une couleur (cellule grise) ?
Merci pour votre aide.
Est-il possible de copie une ligne (ex a1) d'une page ( Feuil 1) sur une autre page (feuil 2) si la ligne (a1) contient une couleur (cellule grise) ?
Merci pour votre aide.
2 réponses
-
Bonjour,
Sous Excel 2010 ça donnerais ça
If sheets("Feuil1").Range("A1").Interior.Color <> 16777215 Then
sheets("Feuil2").Range("A1") = sheets("Feuil1").Range("A1")
End If -
Bonjour,
J'ai essayé de mettre le code dans un module et de le lancer via un bouton de commande mais rien ne se passe. Je n'ai pas d'erreur mais rien ne se passe.
Peux-tu m'expliquer comment l'utiliser ?
Merci-
Bonjour,
Le code que j'ai donné fonctionne uniquement avec la cellule A1 de la feuille1.
Si ça ne marche toujours pas : utilise le code :
Ref_Couleur = sheets("Feuil1").Range("A1").Interior.Colorsur ta feuille pour connaitre la référence lorsque ta cellule est blanche pluis remplace le 16777215 par la référence que t'obtiens.
En gros le code dit
Si la cellule A1 de la feuille 1 est différent de blanc alors copie le cellule A1 vers la feuille 2
-
