Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Modeste
Bonsour® magic-dd bonnes année meilleurs voeux à tous
alors voici mon souci comment traduire en vba pour chaque cellules de la plage A1 à B13, si une de ces cellules est egale à la cellule E1, alors ces cellules identiques auront pour fond la couleur rouge et la police sera jaune le for each n'est pas encore à ma portée
dans ce cas nul besoin de VBA ;o))) utiliser la mise en forme conditionnelle
Selectionner la plage A1:B13 Menu Format > Mise en forme Conditionnelle... Condition 1 la valeur de la cellule est : égale à =$E$1 bouton Format... police : Jaune motif : Rouge
Bonsour® magic-dd
bonnes année meilleurs voeux à tous
alors voici mon souci
comment traduire en vba
pour chaque cellules de la plage A1 à B13,
si une de ces cellules est egale à la cellule E1, alors ces cellules
identiques auront pour fond la couleur rouge et la police sera jaune
le for each n'est pas encore à ma portée
dans ce cas nul besoin de VBA ;o)))
utiliser la mise en forme conditionnelle
Selectionner la plage A1:B13
Menu Format > Mise en forme Conditionnelle...
Condition 1
la valeur de la cellule est :
égale à
=$E$1
bouton Format...
police : Jaune
motif : Rouge
Bonsour® magic-dd bonnes année meilleurs voeux à tous
alors voici mon souci comment traduire en vba pour chaque cellules de la plage A1 à B13, si une de ces cellules est egale à la cellule E1, alors ces cellules identiques auront pour fond la couleur rouge et la police sera jaune le for each n'est pas encore à ma portée
dans ce cas nul besoin de VBA ;o))) utiliser la mise en forme conditionnelle
Selectionner la plage A1:B13 Menu Format > Mise en forme Conditionnelle... Condition 1 la valeur de la cellule est : égale à =$E$1 bouton Format... police : Jaune motif : Rouge
FFO
Salut à toi Ce code devrait faire :
For Each c In Range("A1", "B13") If c = Range("E1") Then c.Interior.ColorIndex = 3 c.Font.ColorIndex = 6 End If Next
Dis moi !!!
Salut à toi
Ce code devrait faire :
For Each c In Range("A1", "B13")
If c = Range("E1") Then
c.Interior.ColorIndex = 3
c.Font.ColorIndex = 6
End If
Next
