Posez votre question Format imprimable Liste des forums Aidez-les Statistiques Rechercher Charte Forum Bureautique

Macro Excel : copier coller si cellule jaune

Dernière réponse le 27 avr 2008 à 09:40:18 QuestionCDG, le 11 sep 2007 à 19:24:17

Signaler ce message aux modérateurs

Bonjour,

Sur une plage de cellules (A5;C20) par exemple, je souhaite copier coller en valeurs le contenu des cellules jaunes.
Le but est d’écraser les formules se trouvant dans ces cellules.

Mon début ne fonctionne pas. Merci pour votre aide !

Sub copie()

plage = ("B43:H47")

If plage.Interior.Color.Index = 10092543 Then
ActiveCell.Copy
ActiveCell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If

End Sub

Merci.

Configuration: Windows XP
Internet Explorer 6.0

Meilleures réponses pour « Macro Excel : copier coller si cellule jaune » dans :

Macro Excel copie de feuille Voir

Macro vba excel: copier une plage de données Voir

Macro VBA Excel copie cellule selon condition Voir

Ubuntu - Un copier coller rapide VoirUn copier-coller ultra-rapide Sous Ubuntu, Linux, il est très simple de faire un copier coller, encore plus simple qu'un “Ctrl + C” “Ctrl + V” : Il suffit de sélectionner le texte (juste le sélectionner) pour le mettre en mémoire puis de...

[Macro Excel] Pb copier/coller depuis Word Voir

[[Excel]]Copier/coller automatique dans Excel Voir

Macro excel - copié collé Voir

Posez votre question Répondre

gabuzo, le 11 sep 2007 à 19:39:44

Ce n'est pas copy mais copy special formula (je n'ai plus la formule exacte) qui écrase le contenu de la cellule destination

Répondre à gabuzo

eriiic, le 11 sep 2007 à 23:59:19

Bonsoir,
Plusieurs erreurs dans ton code, voici la version corrigée

Sub copie()
Dim plage As Range
Set plage = Range("B43:H47")
For Each c In plage 'on doit balayer toutes les cellules de la plage
MsgBox (c.Interior.ColorIndex) ' pas color.index
If c.Interior.ColorIndex = 10092543 Then
ActiveCell.Copy
ActiveCell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
Next c
End Sub

Répondre à eriiic

QuestionCDG, le 12 sep 2007 à 09:35:56

Merci beaucoup ! code plus court que ce que nous avions essayé avec l'enregistreur !

Merci !

Répondre à QuestionCDG

dado836, le 27 avr 2008 à 09:40:18

Bonjour, j'ai acheter silent hunter 4 est lorsque je souhaite joue en ligne je rentre la clé cd et la il me met key non valide .le jeux a ete acheter a carrefour sous emballage

Répondre à dado836

Posez votre question Répondre