Ecart actuel couleur...

[olibelle0101]

Ecart actuel d'une couleur donnée...

Bonjour,
Merci de votre aide pour le code VBA trouvée.
Elle me trouve l'écart actuel d'une couleur =ecartrouge(Saisie!B4:B4000)
Comment faire pour trouver sur 2 collonnes?
=ecartrouge(Saisie!B4:C4000)
Ca me mais "#Erreur : Une Seule colonne possible"

Voici le code qui marche très bien pour 1 colonne................
Amicalement.

Option Explicit

Function EcartRouge(MaPlage As Range)
Dim Cel As Range, Compteur As Long
' Permettre à la fonction de s'éxécuter à tout moment
Application.Volatile
' Initialiser le compteur
Compteur = 0
If MaPlage.Columns.Count > 1 Then
EcartRouge = "#Erreur : Une Seule colonne possible"
Exit Function
End If
' Pour chaque cellule de la colonne
For Each Cel In MaPlage
If Cel.Interior.ColorIndex = 3 Then
Compteur = 0
Else
If Cel.Value <> "" Then Compteur = Compteur + 1
End If
Next Cel
EcartRouge = Compteur
End Function

 

[olibelle0101]

Re : Ecart actuel couleur...

Voila le fichier d'origine ou on m'à inscrit ce code.

 

[ROGER2327]

Re : Ecart actuel couleur...

Bonjour olibelle0101

Pas claire pour moi, cette affaire.

1. Vous parlez de trouver des écarts. Écart entre quoi et quoi ?
2. Dans votre classeur, une seule colonne contient des cellules rouge. Pourriez-vous le compléter avec une autre colonne ?

Quant à cela :

=ecartrouge(Saisie!B4:C4000)
Ca me mais "#Erreur : Une Seule colonne possible"

c'est normal : le code est prévu pour ne traiter qu'une colonne :

  If MaPlage.Columns.Count > 1 Then
    EcartRouge = "#Erreur : Une Seule colonne possible"
    Exit Function
  End If

On peut éventuellement le modifier pour traiter deux colonnes ou plus, mais il faut donner un exemple avec le résultat attendu.​

A plus tard.
ROGER2327