DonBeuBeu
XLDnaute Junior
Re-coucou!
Problème plus intéressant je veux colorier une sélection de à un moment donné de mon code que voici:
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!
Problème plus intéressant je veux colorier une sélection de à un moment donné de mon code que voici:
Code:
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!