[VBA] Colorier des cellules

[DonBeuBeu]

Re-coucou!

Problème plus intéressant je veux colorier une sélection de à un moment donné de mon code que voici:

Sub saisie_journée_complète()

' Petite macro qui permet de saisir des journées complètes automatiquement

Dim ListeValide As String
ListeValide = "B12;B15;B17;B19;B21;B23;B25;B27;B29;B31;B33;B35"
Dim adresseCell As String
adresseCell = Replace(ActiveCell.Address, "$", "")

If InStr(1, ListeValide, adresseCell) > 0 Then
Range(ActiveCell.Offset(0, 2), ActiveCell.Offset(0, 97)) = 1
Run ("envoi_au_tableauxbdd")

Else:
MsgBox "Veuillez selectionner une cellule valide"

End If

End Sub

Je voudrais colorier la sélection "ListeValide" juste après le Else, et avant le MsgBox, en jaune. Puis les recolorer en blanc juste après le MsgBox...

J'ai essayé des trucs mais rien ne marche, j'espère que sa prendra pas trop de place...

Merci d'avance!

 

[Pierrot93]

Re : [VBA] Colorier des cellules

Bonjour,

peut être ainsi, enfin si j'ai bien compris :

If InStr(1, ListeValide, adresseCell) > 0 Then
    Range(ActiveCell.Offset(0, 2), ActiveCell.Offset(0, 97)) = 1
    Run ("envoi_au_tableauxbdd")
Else
    Range(ListeValide).Interior.ColorIndex = 3
    MsgBox "Veuillez selectionner une cellule valide"
End If

bonne journée
@+

 

[DonBeuBeu]

Re : [VBA] Colorier des cellules

Déjà essayé avec un Range... Sans succès =\

 

[Pierrot93]

Re : [VBA] Colorier des cellules

Re,

dans l'initialisation,

ListeValide = "B12;B15;B17;B19;B21;B23;B25;B27;B29;B31;B33;B35"

remplace les point-virgules par des points ou des virgules, selon qu'il s'agit d'une plage ou d'une cellule isolée...

 

[DonBeuBeu]

Re : [VBA] Colorier des cellules

En remplaçant par des virgules sa marche nikel 😉

Impeccable parfait, merci à toi!

Bonne journée @plus