Comparaison 2 cellules et compteur

Bonjour,

Je n'y quasi rien en excel mais j'ai un besoin ponctuel

Je souhaites une fonction qui permette de comparer toutes les cellules de la colonne B avec les cellules de la colonne A(même ligne) et, si les valeurs sont identiques, incrémenter un compteur

si valeur différente, compteur_max=compteur et compteur remise à 0

J'imagine que cela ne peut se faire qu'en vba

D'avance merci

Bonjour,

Envoi un exemple de fichier avec le résultat attendu si tu veux une réponse plus précise.

Sinon voici un exemple avec des formule. (mais je ne sais pas si c'est exactement ce que tu veux.....)

Damien

Tout d'abord merci

L'exemple que vous donnez correspond bien à ce que je cherche à faire

Par contre, je souhaiterais plutôt avoir une fonction style MaxColonne(B1;B23) donc qui prendrait en paramètre une plage de cellule

Re,

Désolé ce n'est toujours pas clair......

Question :

Ta fonction avec le range B1-B23 va donc comparer A1 avec B1 et ainsi de suite. Puis te donner un compteur a la fin qui sera en fait

le nombre de fois maximum ou on aura A=B a la suite

Exemple :

A1=B1

A2=B2

A3=B3

A4<>B4

A5=B5

Compteur =3

Un exemple a copier dans UN MODULE :

(A tester)

Function maxcompare(plage As Range)
Dim c As Range
Dim compteur As Long
Dim compteurmax As Long

compteur = 0
compteurmax = 0

For Each c In plage

If c.Value = c.Offset(0, -1) Then  'Si c'est égale  'On compare la colonne avec la colonne précedente (B avec A dans notre exemple)
    compteur = compteur + 1
Else
    If compteur > compteurmax Then

        compteurmax = compteur
        compteur = 0
    End If
End If

Next

maxcompare = compteurmax

End Function

Avec le fichier modifié

Malgré mon manque de clarté, vous avez réussi à me fournir exactement ce que je cherchais

Merci beaucoup

Ok

Peux tu mettre résolu dans le statut ? (On répond a bcp de demandes des fois et c'est pratique de savoir que la question est résolu...)

Merci

Damien

Juste une petite chose (enfin j'espère)

Vu que cette fonction est censée être utilisée pour plusieurs colonnes, est-il possible de remplacer le décalage (offset) par la colonne référence pour la comparaison

exemple

colonne A (référence) ColonneB ColonneC ColonneD

maxcompare(B1:A1) maxcompare(C1:A1) maxcompare(D1:A1)

maxcompare(B2:A2) maxcompare(C2:A2)..........................

Sinon comment passer en "résolu" ?

Merci

je me rend compte que c'est pas évident à capter

ci-joint un fichier excel

je voudrais un maxcompare pour les colonnes H à P sachant que la comparaison se fera toujours avec la colonne A

Re,

Merci pour le fichier, peux tu mettre a la main le résultat attendu (1 exemple suffit)

Sinon a tester (cf fichier attaché)

Damien

je suis très embêtante mais en fait c'est l'inverse que je voudrais : compteur max quand B est différent de A

désolée...

ci-joint le fichier excel avec le max attendu

encore merci, le prochain devrait être le bon

Re,

Tu viens de me renvoyer mon fichier.

Sinon tu peux remplacer :

if c.Value = result.Value then 

par

If c.Value <> result.Value then

Damien

Ok merci, ça fonctionne