Macro pour copier une ligne si il y a une couleur

Fermé
Arenh - Modifié par baladur13 le 5/08/2014 à 14:15
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 6 août 2014 à 14:20
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.
A voir également:

2 réponses

WeaponEDGE Messages postés 113 Date d'inscription vendredi 18 juillet 2014 Statut Membre Dernière intervention 21 novembre 2014 9
Modifié par pijaku le 5/08/2014 à 16:08
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
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 750
Modifié par pijaku le 5/08/2014 à 16:09
Bonjour WeaponEDGE,

Peux tu utiliser la balise code plutôt que gras?

<> à la place de B

ou

<code> à la place de <bold>

Merci
0
WeaponEDGE Messages postés 113 Date d'inscription vendredi 18 juillet 2014 Statut Membre Dernière intervention 21 novembre 2014 9
6 août 2014 à 14:19
Ok Pijaku,
Je ne savais comment mettre au format code donc je le mettais en gras pour faire ressortir le tout.
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 750
6 août 2014 à 14:20
Salut,

Pas de souci.
Bonne continuation
0
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
0
WeaponEDGE Messages postés 113 Date d'inscription vendredi 18 juillet 2014 Statut Membre Dernière intervention 21 novembre 2014 9
Modifié par WeaponEDGE le 6/08/2014 à 14:18
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.Color
sur 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
0