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.
A voir également:
- Rédaction macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Aide a la redaction - Guide
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Macro maker - Télécharger - Divers Utilitaires
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
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
