Colorier une cellule...
Résolu
Bonjour,
Voici mon code qui me permet de vérifier des champs qui doivent être remplis aussi la vérification d'autres conditions avant qu'il mette un xx dans la cellule 42 si toutes les conditions sont vraies
je voulais savoir comment faire pour colorier si il y'a une ou plusierus cellules vides parmis cette selection (Range("A:H, J:R").) et envoyer un message d'erreur .
Merci
Voici mon code qui me permet de vérifier des champs qui doivent être remplis aussi la vérification d'autres conditions avant qu'il mette un xx dans la cellule 42 si toutes les conditions sont vraies
je voulais savoir comment faire pour colorier si il y'a une ou plusierus cellules vides parmis cette selection (Range("A:H, J:R").) et envoyer un message d'erreur .
Merci
For q = 2 To ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row
Set MaPlage = Range("A:H, J:R").Rows(q)
If CStr(ActiveSheet.Cells(q, 31).Value) = "Completed - Appointment made / Complété - Nomination faite" _
And WorksheetFunction.CountIf(MaPlage, "") = 0 Then
Select Case UCase(ActiveSheet.Cells(q, 14).Value)
Case "INA_CIN"
ActiveSheet.Cells(q, 42).Value = "XX"
End Select
End If
Next q
3 réponses
-
ContributeurBonjour,
J'avais fait cela il y a quelque temps, a adapter:
https://forums.commentcamarche.net/forum/affich-31994139-comment-savoir-si-une-cellule-est-colorer-ou-non-sur-vba#2
-
ContributeurAvec une petite adaptation:
Sub test() Dim Col As Range, C As Range For Each Col In Range("A1:A10").Columns ' a adapter For Each C In Col.Cells If C.Value = "" Then C.Interior.ColorIndex = 3 End If Next Next End Sub et ça fonctionne!!!
-
ContributeurExcuse pour le retard, j'étais sur d'autres projets.
Je ne vais pas corriger ce code qui n'est pas de moi, je te propose un code qui va parcourir les colonnes A, H, J et R et colorier les cellules vides en rouge (tu peux modifier la couleur) . Je pense que c'est cela que tu désires.
Je reprends donc mon code avec la sélection des colonnes:
Sub test() Dim Col As Range, C As Range Dim n As Long n = Range("R65536").End(xlUp).Row 'dernière ligne, a adapter à la colonne la plus remplie ici la R For Each Col In Range("A1:A" & n & ",H1:H" & n & ",J1:J" & n & ",R1:r" & n & "").Columns ' a adapter For Each C In Col.Cells If C.Value = "" Then C.Interior.ColorIndex = 3 'a adapter le couleur End If Next Next End Sub
