Colorier une cellule...
Résolu
r4944
Messages postés
136
Statut
Membre
-
cs_Le Pivert Messages postés 8437 Statut Contributeur -
cs_Le Pivert Messages postés 8437 Statut Contributeur -
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
A voir également:
- Colorier une cellule...
- Excel cellule couleur si condition texte - Guide
- Proteger cellule excel - Guide
- Aller à la ligne dans une cellule excel - Guide
- Comment colorer une cellule excel en fonction du contenu d'une autre cellule - Forum Bureautique
- Diviser une cellule excel en deux horizontalement ✓ - Forum LibreOffice / OpenOffice
3 réponses
Bonjour,
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
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
Avec 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!!!
Excuse 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:
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
Set MaPlage = Range("A:H, J:R").Rows(q)