Macro Excel : copier coller si cellule jaune

Question

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.

gabuzo · Answer

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

eriiic · Answer

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

QuestionCDG · Answer

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

dado836 · Answer

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

Macro Excel : copier coller si cellule jaune

4 réponses

Discussions similaires

Newsletters