[VBA-E]Colorier cellule selon instruction
prog10
-
Active directory -
Active directory -
Bonjour,
J'ai besoin de recréer les action d'une mise en forme conditionelle, j'ai deja chercher quelque chose qui aurait
pu s'en rapprocher et je n'ai pas trouvé.
J'ai une colonne A et une autre B.
Si A30 est renseigné je veux que la cellule B30 devienne bleu si elle n'est pas remplit.
et si B30 est renseigné, je veux que la cellule A30 devienne bleu si elle n'est pas remplit.
Lorsque la cellule bleu est renseignée elle repasse en blanc par défaut.
Et cette macro agit sur toutes les lignes de A et B, même la 5000ieme.
Quelque chose comme ca :
Private Sub Color_cell()
If Len(Range("A30")) <> ""
Then Range("B30").ForeColor = RGB(51, 51, 255)
Else Range("A30").Value = vide
End Sub
Quelqu'un à une idée ?
merci!
J'ai besoin de recréer les action d'une mise en forme conditionelle, j'ai deja chercher quelque chose qui aurait
pu s'en rapprocher et je n'ai pas trouvé.
J'ai une colonne A et une autre B.
Si A30 est renseigné je veux que la cellule B30 devienne bleu si elle n'est pas remplit.
et si B30 est renseigné, je veux que la cellule A30 devienne bleu si elle n'est pas remplit.
Lorsque la cellule bleu est renseignée elle repasse en blanc par défaut.
Et cette macro agit sur toutes les lignes de A et B, même la 5000ieme.
Quelque chose comme ca :
Private Sub Color_cell()
If Len(Range("A30")) <> ""
Then Range("B30").ForeColor = RGB(51, 51, 255)
Else Range("A30").Value = vide
End Sub
Quelqu'un à une idée ?
merci!
A voir également:
- [VBA-E]Colorier cellule selon instruction
- É majuscule - Guide
- Excel compter cellule couleur sans vba - Guide
- Excel cellule couleur si condition texte - Guide
- Proteger cellule excel - Guide
- Aller à la ligne dans une cellule excel - Guide
9 réponses
Re,
Tu peux essayer (je n'ai pas testé)
Tu peux essayer (je n'ai pas testé)
Private Sub Color_cell()
For i = 1 To ActiveSheet.UsedRange.Rows.Count
If Cells(i, 1) <> "" Then
If Cells(i, 2) = "" Then
Cells(i, 2).Interior.Color = RGB(51, 51, 255)
End If
ElseIf Cells(i, 2) <> "" Then
If Cells(i, 1) = "" Then
Cells(i, 1).Interior.Color = RGB(51, 51, 225)
End If
End If
Next
End Sub
C'est la couleur de fond de la cellule que je veux colorier.
Je n'ai pas compris pour quoi tu utilise une boucle I ?si je veux que la cellule soit bien définit par exemple : A30 et B30.
Pourquoi ne pas utiliser range ?
J'ai testé ton code et ca n'a pas l'air de fonctionner.
merci
Je n'ai pas compris pour quoi tu utilise une boucle I ?si je veux que la cellule soit bien définit par exemple : A30 et B30.
Pourquoi ne pas utiliser range ?
J'ai testé ton code et ca n'a pas l'air de fonctionner.
merci
Re,
La boucle c'est pour ça
Et cette macro agit sur toutes les lignes de A et B, même la 5000ieme.
Je ne pense pas que tu veux écrire le même code 5000 fois.
Pourquoi ne pas utiliser range ?
Puisque je n'avais pas envie ;-))
La boucle c'est pour ça
Et cette macro agit sur toutes les lignes de A et B, même la 5000ieme.
Je ne pense pas que tu veux écrire le même code 5000 fois.
Pourquoi ne pas utiliser range ?
Puisque je n'avais pas envie ;-))
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Re,
Voici pour A30 seulement, tu n'as qu'à adapter
Private Sub Color_cell()
If Range("A30") <> "" Then
Range("B30").Interior.Color = RGB(51, 51, 255)
End If
End Sub
Voici pour A30 seulement, tu n'as qu'à adapter
Private Sub Color_cell()
If Range("A30") <> "" Then
Range("B30").Interior.Color = RGB(51, 51, 255)
End If
End Sub
lami20j ton code fonctionne mais je voudrai lorsque A30 est vide, B30 redevienne blanc.
Private Sub Color_cell()
If Range("A30") <> "" Then
Range("B30").Interior.Color = RGB(51, 51, 255)
ElseIf Range("A30") = "" Then
Range("B30").Interior.Color = RGB(255, 255, 255)
End If
End Sub
Mon code ne marche pas merci de m'aider !
Private Sub Color_cell()
If Range("A30") <> "" Then
Range("B30").Interior.Color = RGB(51, 51, 255)
ElseIf Range("A30") = "" Then
Range("B30").Interior.Color = RGB(255, 255, 255)
End If
End Sub
Mon code ne marche pas merci de m'aider !
Re,
Essaie
Essaie
Private Sub Color_cell()
If Range("A30") <> "" Then
Range("B30").Interior.Color = RGB(51, 51, 255)
ElseIf Range("A30") = "" Then
Range("B30").Interior.ColorIndex = RGB(FF, FF, FF)
End If
End Sub
