A voir également:
- Macro Excel : copier coller si cellule jaune
- Liste déroulante excel - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Formule excel - Guide
- Macro word - Guide
- Si et excel - Guide
4 réponses
eriiic
Messages postés
24570
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
23 avril 2024
7 213
11 sept. 2007 à 23:59
11 sept. 2007 à 23:59
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
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
gabuzo
Messages postés
736
Date d'inscription
mardi 21 août 2007
Statut
Membre
Dernière intervention
17 avril 2008
58
11 sept. 2007 à 19:39
11 sept. 2007 à 19:39
ce n'est pas copy mais copy special formula (je n'ai plus la formule exacte) qui écrase le contenu de la cellule destination
