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
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
A voir également:
- Macro pour copier une ligne si il y a une couleur
- Excel cellule couleur si condition texte - Guide
- Comment copier une vidéo youtube - Guide
- Aller à la ligne excel - Guide
- Somme si couleur - Guide
- Partager photos en ligne - Guide
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
Modifié par pijaku le 5/08/2014 à 16:08
Bonjour,
Sous Excel 2010 ça donnerais ça
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
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
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
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 :
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
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
Modifié par pijaku le 5/08/2014 à 16:09
Peux tu utiliser la balise code plutôt que gras?
<> à la place de B
ou
<code> à la place de <bold>
Merci
6 août 2014 à 14:19
Je ne savais comment mettre au format code donc je le mettais en gras pour faire ressortir le tout.
6 août 2014 à 14:20
Pas de souci.
Bonne continuation