XL 2016 surbrillance cellules

[jo50160]

Bonjour à tous.

Voilà, j’ai un petit problème avec Excel, je voudrais savoir comment faire pour calculer le nombre de cellules qui n’est pas en surbrillance dans une plage A2 : H17.

Quelqu’un peut –t-il me dépanner.

Merci par avance.

 

[Robert]

Bonsoir Jo, bonsoir le forum,

Qu'appelles-tu "surbrillance" ? Si tu veux dire "sélectionnées", tu obtiens le nombre de cellule non sélectionnées dans la plage A2:H17 en VBA avec la ligne de code suivante :

MsgBox 128 - Application.Intersect(Selection, Range("A2:H17")).Cells.Count

128 étant le nombre de cellule de la plage A2:H17.

Par formule je ne sais pas faire...

 

[jo50160]

Bonjour Robert
Merci de m'avoir répondu.
Pour répondre a ta question, j'appel surbrillance = couleur de remplissage.
Ton code fonctionne bien mais comme j'ai plusieurs cellules a sélectionné, mais qui éparpillé
cela m'est difficile.
Je t'envoi mon fichier avec ton code.

 

[M12]

Bonjour
a voir

 

[Chris401]

Bonjour

Dans le même style que M12

Private Sub CommandButton1_Click()
For Each Cell In Range("A2:H17")
If Cell.Interior.ColorIndex = xlNone Then
n = n + 1
End If
Next
MsgBox "il y a " & n & " Cellules."
End Sub

 

[DoubleZero]

Bonjour à toutes et à tous,

Ou bien :

Option Explicit
Private Sub CommandButton1_Click()
    Dim c As Range, plage As Range, compteur As Integer
    Set plage = [A2 : H17]
    compteur = 0
    For Each c In plage
        If c.Interior.Color = 16777215 Then compteur = compteur + 1
    Next
    MsgBox compteur & " pièce(s) à commander."
End Sub

A bientôt

 

[jo50160]

Un grand merci a vous tous de m'avoir aidé.
Merci beaucoup. affaire résolu