Colorier une cellule...

Résolu/Fermé

r4944 Messages postés 122 Date d'inscription vendredi 2 octobre 2015 Statut Membre Dernière intervention 3 mars 2017 - 28 oct. 2015 à 18:09
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 30 oct. 2015 à 16:34

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

     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...
Aller à la ligne dans une cellule excel - Guide
Verrouiller cellule excel - Guide
Excel cellule couleur si condition texte - Guide
Excel remplir automatiquement une cellule en fonction d'une autre ✓ - Forum Excel
Excel si cellule contient partie texte ✓ - Forum Excel

3 réponses

Réponse 1 / 3

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
28 oct. 2015 à 18:21

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

r4944 Messages postés 122 Date d'inscription vendredi 2 octobre 2015 Statut Membre Dernière intervention 3 mars 2017
28 oct. 2015 à 19:08

salut , je l'ai essayé ca marche pas vraiment , je voulais juste colorier les cellules qui sont vides parmi cette selection de rangées

 Set MaPlage = Range("A:H, J:R").Rows(q)

Réponse 2 / 3

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
28 oct. 2015 à 20:45

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!!!

r4944 Messages postés 122 Date d'inscription vendredi 2 octobre 2015 Statut Membre Dernière intervention 3 mars 2017
28 oct. 2015 à 20:48

est ce que je peux faire ('' A & q , H & q '')

Réponse 3 / 3

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
30 oct. 2015 à 16:34

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:

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

Discussions similaires

Excel si cellule contient texte alors...

Excel : colorer une cellule sous condition d'une autre ?

Formule Excel : "SI" une cellule contient un mot, alors ?

excel fractionner une cellule horizontalement

Excel:récupérer le contenu d'une cellule en fonction d'une autre

Discussions similaires

Newsletters