Extension de Code

Bonsoir,

Je sollicite votre aide pour améliorer le fichier Excel suivant :

En effet

Une Macro Recherche les invendus d'un Magasin donné pour des Tailles Sélectionés

Zone de Saisie : WA!A2 & WA!A3

Restitution par Macro WA! H1:J60000

Là ou j'aurai besoin d'aide c'est dans l'onglet Recap pour AW2 AW3 ......

et AY2

Pour les AW pour un Type donné dire le nombre de Taille disponible sans doublon onglet WA! Colonne J

Pour le AY comptés le nombre de saisie sans Doublon onglet WA! B2

Ci joint un Exemple pour compréhension

Par Avance Merci de votre Aide Precieux et Apprécié

Bien cordialement

Bonjour,

Pour Info peut être peut-on sophistiqué la formule recap! AV2 AV3 .... pour s'en approcher !!!

Par avance Merci

bien cordialement

Bonjour,

ci-jointe une proposition avec une fonction "ad hoc" :

comptage(cible;séparateur) avec cible = valeur ou cellule ou plage d'une colonne ou plage d'une ligne

Thev bonjour,

Tu es un Génie

Concernant AY2 j'ai mis =comptage(WA!B2;",")

Seulement j'aurai encore une requête a te demandé : Est-il possible de lancer le comptage de AY2 que si et seulement si

les Datas en WA!B2 est écrit en Rouge du style 38,40,42,44

En gros je veux inclure la function suivante dans recap! AY2

Function NBELEMROUGE(plg As Range, sépar As String)

Dim n%, c As Range

Sheets("WA").Select

For Each c In plg

If c <> "" Then

If c.Font.Color = vbRed Then _

n = n + UBound(Split(c, sépar)) + 1

End If

Next c

NBELEMROUGE = n

End Function

Par avance Grand Merci de ton precieux support

Bonsoir,

voici ta fonction

Function NBELEMROUGE(plage As Range, sépar As String)
    Dim n%, i%, j%, cell As Range, liste() As String

    NBELEMROUGE = CVErr(xlErrValue)
    n = 0
    For Each cell In plage
        liste = Split(cell, sépar): j = Len(sépar)
        For i = 0 To UBound(liste)
            If cell.Characters(j, Len(liste(i))).Font.Color = vbRed Then n = n + 1
            j = j + Len(liste(i)) + Len(sépar)
        Next i
    Next cell

    NBELEMROUGE = n
End Function

Merci Thev

Peux tu l'inclure dans un nouveau fichier inventaire xlm

car je n'arrive pas a activé NBELEMROUGE et comptage dans mon xlm final

Alt + f11 je colle mais rien y fait il fait mine de rien savoir

Option Explicit

End Function

cordialement

Bonsoir,

Il faut juste les coller dans un module VBA.

(pour afficher un code dans un Post, utiliser le bouton HTML "</>")

Merci

Comment donc pour Recap!AY2 conbiné la fonction Comptage et NBELEMROUGE

C'est à dire de lancer le comptage que si et seulement si WA!B2 contient du Texte Rouge

si texte autre couleur Comptage ne ce realise pas.

Encore Merci de ton aide et patience

Bien Cordialement

Bonsoir,

il suffit de créer une nouvelle fonction : "valeurs_rouge" légèrement différente de la précédente .

Merci Infiniment de ton support et de ta disponibilité c très class