XL 2016 Analyse d'une suite de nombre dont l'espacement est variable

[Guerin]

Bonjour,

Je suis ici pour demander de l'aide sur une tache que je n'arrive pas à faire réaliser à excel, j'ai aucune connaissance en VBA, bien que forcé au constat que je suis à plusieurs lectures de tuto, sans application, mais les notions commences à être moins floues

N'ayant pas eu pour autant d'éclaire de génie fasse à mon problème :/
Je sèche depuis 1 mois, j'ai toujours réussi à faire se que je voulais avec des if(and() ^^ mais là............. need help

Mon but :

J'ai des sommes de série de 1 et -1 (colonne C & H voir fichier joint) que je veux pouvoir comparer les une aux autres (toute les 5 sommes successives) prenant aussi en compte leur valeur.
Les conditions sont énoncées dans le fichier.

Le fichier :

 

[job75]

Bonjour Guerin, le forum,

Voyez la feuille Sheet2 du fichier joint et les 2 conditions de la MFC sur la plage C6:C1000.

Tirage aléatoire (facultatif bien sûr) des 1 et -1 en colonne B.

A+

 

[job75]

Re,

Fichier (2) .xlsm avec cette macro dans le code de Sheet2 (clic droit sur l'onglet et Visualiser le code) :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$B$5" Then Exit Sub
Application.ScreenUpdating = False
If FilterMode Then ShowAllData
[B6:B1000] = "=IF(RAND()<0.5,-1,1)"
[B6:B1000] = [B6:B1000].Value
Target(1, 2).Select
With [C5:C1000]
    .AutoFilter 1, RGB(255, 192, 0), xlFilterCellColor
    [D5] = .SpecialCells(xlCellTypeVisible).Count - 1 & " cellules jaunes soit " & Format((.SpecialCells(xlCellTypeVisible).Count - 1) / 995, "0.0%")
    .AutoFilter 1, RGB(142, 169, 219), xlFilterCellColor
    [G5] = .SpecialCells(xlCellTypeVisible).Count - 1 & " cellules violettes soit " & Format((.SpecialCells(xlCellTypeVisible).Count - 1) / 995, "0.0%")
End With
If FilterMode Then ShowAllData
End Sub

La macro fait un nouveau tirage et compte les cellules jaunes et violettes.

Le filtre automatique est en place sur la colonne C : on peut filtrer la colonne par couleur.

A+

 

[job75]

Re,

Dans les fichiers précédents la MFC violette utilisait vos critères.

Dans ce fichier (3) j'ai mis une formule du même acabit que celle de la MFC jaune, c'est mieux je pense.

Edit : et dans le fichier (3 bis) une autre formule, vous choisirez donc celle qui vous plaît.

A+

 

[Guerin]

Bonjour Job75,

Tout d'abord un énorme merci pour avoir passé du temps sur le sujet.
La condition commune en jaune est bien respectée, celles en violette le sont que dans les situation ou elles ne sont pas espacées, je souhaiterais que cela le soit.
Je vais établir un diagramme, pour que cela soit plus claire.

 

[job75]

Oui ceci n'est vraiment pas clair :

celles en violette le sont que dans les situation ou elles ne sont pas espacées, je souhaiterais que cela le soit.

 

[Guerin]

Ci-joint le diagramme au format pdf 🙂

 

[Guerin]

J'ai posté mon besoin sur un autre forum ou l'on m'a répondu, d'une manière différente mais tout aussi engagé.
voici, le lien :

 

[job75]

Re,

C'est peut-être la formule de ce fichier (4) qui vous conviendra pour la MFC violette.

Mais je trouve que celle du fichier (3) est plus logique...

Bonne nuit.

 

[job75]

Bonjour Guerin, le forum,

Pour ceux qui ne comprennent pas les MFC précédentes voici le fichier (4 bis) et la colonne auxiliaire D (à masquer).

La formule en D6 coule de source pour ceux qui ont suivi :

=SIERREUR(ET(C5="";ABS(C6+C7)=1;C8="");)+SIERREUR(ET(C4="";ABS(C5+C6)=1;C7="");)+2*(SIERREUR(ABS(C6+C7+C8)=2;)+SIERREUR(ABS(C5+C6+C7)=2;)+SIERREUR(ABS(C4+C5+C6)=2;))

A+

 

[Guerin]

Bonjour Job75,
Une solution qui à pris un peut plus d'une 20ène de ligne de code, à été trouvé sur le Forum Excel-Pratique.com, à l'adresse ci dessous par H2so4.
https://forum.excel-pratique.com/viewtopic.php?p=710274#p710274

Merci de m'avoir donné de votre temps.

Bien cordialement,

Guerin
Ramonne
Alphadupoint

 

[job75]

Bonsoir Guerin,

J'avoue ne pas comprendre l'intérêt de la solution donnée par h2so4 sur excel-pratique.

Il n'y a aucune application des 2 couleurs jaune et violette en colonne C !!!

A+

 

[Guerin]

Bonsoir Job75,

Les couleurs sont censées aider à la compréhension de la logique conditionnelle des cellules en D.
Se ne sont pas les couleurs qui sont importantes mais la logique conditionnelle les définissant.

est ce plus claire ?

 

[job75]

Re,

Non car je ne vois pas le lien entre la "logique conditionnelle" et l'application des couleurs.

Chez moi la "logique conditionnelle" ce sont les formules de la MFC, pas besoin de VBA.

Et les valeurs en colonne D ne sont pas indispensables, je m'en sert uniquement au post #10.

A+

 

[Guerin]

Si tu arrives à refaire se qu'a fait H2so4 sans VB, sans prendre en compte les couleurs, juste avec la logique conditionnelle bravo !
Dans le code de H2so4, ce sont les variables Bound() et Lbound() qui on débloqué le sujet.
Personnellement je n'ai pas trouvé d’équivalent en fonction excel.