Rédaction macro
bestkeeper
Messages postés
93
Statut
Membre
-
xjl Messages postés 232 Statut Membre -
xjl Messages postés 232 Statut Membre -
Je souhaite écrire une macro me permettant d'obtenir le résultat suivant :
cellule1 x cellule 2 x cellule3, si cellule 1 est écrite en rouge
cellule 1 x cellule 2, si cellule 1 écrite en noir
D'avance merci.
cellule1 x cellule 2 x cellule3, si cellule 1 est écrite en rouge
cellule 1 x cellule 2, si cellule 1 écrite en noir
D'avance merci.
Configuration: Windows 2000 Internet Explorer 6.0
1 réponse
-
Salut,
Tu peux adapter ça à tes besoins:
Sub produit2ou3()
For i = 1 To 100
If Cells(i, 1).Value <> "" Then
Select Case Cells(i, 1).Font.ColorIndex
Case 3
Cells(i, 4).Value = Cells(i, 1).Value * Cells(i, 2).Value * Cells(i, 3).Value
Case 1
Cells(i, 4).Value = Cells(i, 1).Value * Cells(i, 2).Value
Case Else
Cells(i, 4).Value = ""
End Select
End If
Next i
End Sub
