remplissage de cellule suivant condition en VBA

[RaceX]

Bonjour à tous,

Me revoilà avec une nouvelle question😀

Cet fois j'aimerai aplliquer une couleur de remplissage lorsque la réponse à un msgbox est No. voilà mon script

Private Sub Worksheet_Change(ByVal Target As Range)

'Macro: Mettre le plan PDF à jour'

Dim Indice As String
Dim PDF
Indice = "a"

'La MsgBox s'ouvre dès lors que la valeur de la cellule Bx (ou x est le numéro de ligne) est différente de "" ou "a"'

If Not Application.Intersect(Target, Range("B5:B3000")) Is Nothing Then
If Not Target = Indice Or Target = "" Then
PDF = MsgBox("Attention: Le plan PDF est-il à jour?", vbYesNo, "Attention")
If PDF = vbYes Then
MsgBox ("PDF ok")
Else
'la plage de cellule de Ax à Xx doit etre remplis en rouge'

End If

End If

End If

End sub

Je doit vous avouer que j'ai commencé la prog en VBA depuis hier 😀 alors ce code est surement affreux à regarder.

Merci.

 

[porcinet82]

Re : remplissage de cellule suivant condition en VBA

Salut,

Non, je te rassure, ton code n'est pas si affreux que ca...
Pour ta question, je ne vois nul part une selection de cellule ou a quoi pourrait correspondre le x, donc je te laisse adapter, mais ce serai un truc de ce genre :
Range("A1:X100").Interior.Color = vbRed
ou
Selection.Interior.Color = vbRed

Mais ca risque d'etre un peu "rouge", si tu remplit la remplit la cellule. Si tu ne veux que la police en rouge, c'est Font a la place de Interior
@+

 

[RaceX]

Re : remplissage de cellule suivant condition en VBA

Merci de ta réponse, mais je me demande comment si par exmple:

- l'utilisateur modifie la cellule B5

- la réponse au MsgBox est No

dans ce cas il faudrait que les cellules (A5:X5) passe en rouge.

Mon code est pas trop affreux, c cool ça 😀 .

 

[porcinet82]

Re : remplissage de cellule suivant condition en VBA

re,

Modifie comme de cette manière :
Range("A" & target.row & ":X" & target.row).Interior.Color = vbRed
@+

 

[RaceX]

Re : remplissage de cellule suivant condition en VBA

Wow magnifique, ça marche à merveille. Merci beaucoup.