Trouver Ecartrouge actuel sur 2 colonnes ???

[olibelle0101]

Merci à tous pour vos solutions.
Je joint un petit fichier,
pour trouver un écart actuel sur une couleur donnée.
Je vous remerci par avance de votre aide.
Cordialement.

 

[olibelle0101]

Re : Trouver Ecartrouge actuel sur 2 colonnes ???

Pardon pour l'oubli du fichier.

 

[jeanpierre]

Re : Trouver Ecartrouge actuel sur 2 colonnes ???

Bonjour olibelle0101,

Déjà que trouver l'écart en chair et en chiffre (cf.un post récent) j'ai du mal, mais avec les couleurs, cela va être pire, surtout sans le fichier anoncé....

Dépose ton fichier, ou recommence, s'il n'est pas passé.

Bonne journée.

Jean-Pierre

 

[jeanpierre]

Re : Trouver Ecartrouge actuel sur 2 colonnes ???

Re,

C'est bon, ton fichier est arrivé entre-temps.

Peux-tu expliciter ta méthode de calcul qui donne 6 comme résultat.

En formule, je ne sais pas, mais en VBA cela doit être possible.

 

[olibelle0101]

Re : Trouver Ecartrouge actuel sur 2 colonnes ???

Bonjour Jeau Pierre,
J'ai émis un message sur le forum ,mais pas de réponse.
Le revoici:
Cordialement


Bonjour,
Merci de votre aide pour la formule 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 la formule 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

 

[jeanpierre]

Re : Trouver Ecartrouge actuel sur 2 colonnes ???

Re,

Parles-tu d'un autre fils ?

Auquel cas, il fallait y rester, avec ou sans réponse, voire le faire remonter si le délai est trop long.

Nous sommes week-end et toutes les personnes pouvant solutionner ton problème ne sont pas forcément présentes.

Il faut un peu de patience envers les bénévoles qui ont, aussi, quelques obligations.

Sois patient et bon week-end.

Jean-Pierre

 

[olibelle0101]

Re : Trouver Ecartrouge actuel sur 2 colonnes ???

Merci poue ces conseils Jean-Pierre.
Cordialement.