exportation sur base de couleur de fond

F

fred94000

XLDnaute Junior

• 14 Décembre 2012

• #2

Re : exportation sur base de couleur de fond

bonjour adela
essaies ceci.

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("a3").Interior.ColorIndex = 3 Then
Sheets("feuil2").Range("a1") = Range("a3")
End If
end sub

 

Vote positif 0 Vote négatif

A

adela

Guest

• 21 Décembre 2012

• #3

Re : exportation sur base de couleur de fond

bonjour fred94000
merci de votre aide
j'ai essayé de copier coller votre code dans une macro que j'ai nommé "tricolor" mais je butte sur un message d'erreur
" end sub attendu " alors si c"est possible envoyez moi un classeur avec la macro , il suffit juste de colorer quelques cellules dan la feuille1 et inserer la macro .
excusez ma lenteur , merci beacoup , a+

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 21 Décembre 2012

• #4

Re : exportation sur base de couleur de fond

Bonjour Adela ,

Pourquoi ne pas envoyer un classeur préparé par toi même ?

Ensuite l'on pourrait incorporer le code et vérifier le bon fonctionnement ...

 

Vote positif 0 Vote négatif

A

adela

Guest

• 22 Décembre 2012

• #5

Re : exportation sur base de couleur de fond

bonjour camarchepas
je n'ai pas mis d'exemple parce qu'il n'y a vraiment rien de spécial à mettre dedans , c"est juste quelques cellules qu'on colore en rouge et qu'on doit les retrouver copiées de la feuille1 en feuille2 a leurs memes adresses et avec le meme contenu.
merci
l'exemple : fichier attaché.

 

Pièces jointes

• l'exemple.xlsx

  10.1 KB · Affichages: 41

Dernière modification par un modérateur: 22 Décembre 2012

Vote positif 0 Vote négatif

A

adela

Guest

• 24 Décembre 2012

• #6

Re : exportation sur base de couleur de fond

bonjour
alors les amis , ça n’intéresse personne d'aider un bleu ?
je vous assure que c"est très important pour moi , ça va permettre l"exécution de la phase finale d'un long travail , à savoir ,
un publipostage vers différents destinataires . alors soyez sympa dépannez moi .

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 24 Décembre 2012

• #7

Re : exportation sur base de couleur de fond

Bonjour ,

Je comprends plus,

J'aimerais bien savoir ton besoin exact, ça part dans tous les sens , sans trop d'explication et il a fallu pleurer pour avoir un fichier exemple ...

Tu sais , l'on traite les problèmes en fonction de l'interêt qu'ils nous sussite. au vu des réponses obtenues , il faudrait être vraiment plus clair.

Surtout que cela à l'air important et que tu n'as même pas le début d'une solution ...


Un résumer de ta petite affaire :
Le titre était :

exportation sur base de couleur de fond

Cliquez pour agrandir...

"si a1 sur feuille1 a un fond rouge ; alors exporte le contenu sans changement aucun vers a1 de la feuille2 , et comme ça pour toutes les cellules de la feuille ."

Cliquez pour agrandir...

et maintenant ???

un publipostage vers différents destinataires .

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

A

adela

Guest

• 24 Décembre 2012

• #8

Re : exportation sur base de couleur de fond

bonjour camerchepas
je crois que c"est clair ,c"est meme limpide, il s'agit de mettre la macro correcte qui permettrai d'exporter (ou copier) toutes
les cellules de la feuille1 dont la couleur de fond est rouge vers la feuille2 avec le meme contenu et aux memes adresses .
c"est à dire que si par exemple a1 sur feuille1 a un fond rouge elle doit etre copiee en a1 de la feuille2.pour l'instant c"est
là que je bloque . j'ai mis l'exemple comme souhaité dans un poste précédent mais sans suite jusque là. merci. a+

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 24 Décembre 2012

• #9

Re : exportation sur base de couleur de fond

Bonjour ,

Voici donc selon ta dernière demande.

La zone de balayage est à adaptée en fonction du besoin.
Plus la zone est grande et plus le temps sera long.

ATTENTION : 2 lignes commentées permettent si tu les actives d'aller plus vide , mais l'effet animation n'est alors plus visible.

tout dépant de ce que tu souhaites

Voir fichier joint

Code:

Option Explicit

Sub Copie()
Dim Cellule As Range
'Application.ScreenUpdating = False
For Each Cellule In ThisWorkbook.Sheets("Feuil1").Range("A1:Z200")
 If Cellule.Interior.ColorIndex <> -4142 Then
   Sheets("Feuil2").Range(Cellule.Address) = Cellule
   Sheets("Feuil2").Range(Cellule.Address).Interior.ColorIndex = Cellule.Interior.ColorIndex
 End If
Next Cellule
'Application.ScreenUpdating = True
End Sub

 

Pièces jointes

• l'exemple.xlsm

  20.3 KB · Affichages: 37

Vote positif 0 Vote négatif

A

adela

Guest

• 26 Décembre 2012

• #10

Re : exportation sur base de couleur de fond

bonjour camarchepas
c"est exactement ce que je voulais , avec en plus le cadeau de l'activex ,,,,
je suis ravi de votre aide ,,,mille merci

 

Vote positif 0 Vote négatif