XL 2016 Comparer les valeurs d'une plage de cellule à une ligne .

album40 à dit:

Bonsoir le forum

J'ai une feuille Excel sur laquelle
J'aimerais comparer les valeurs des cellules ("B5:K19") aux valeurs des cellules ("B2:K2").
Ensuite copier ces valeurs (ligne par ligne) qui répondent à mes critères ( de comparaison) dans les cellules ("N5:W19").
Critères de Choix des valeurs : Les valeurs ("B5:K5") seront choisi si
Valeurs ("B5:K19") = Valeurs ("B2:K2")
Valeurs ("B5:K19") = Valeurs ("B2:K2") +1
Valeurs ("B5:K19") = Valeurs ("B2:K2") -1

Je prend l'exemple réel de la Cellule B5=105 comparer aux cellules ("B2:K2")
j'ai le résultat (105) dans les cellules ("N5:W5")


J'ai insérer un code mais je n'arrive pas à l'adapter à tous les cellules ("B2:K2)
aidez moi SVP.

Cliquez pour agrandir...

mapomme à dit:

Bonsoir @album40 ,

Inutile d'invoquer du VBA, une simple formule en N5 basée sur un SOMMEPROD suffit.
Cette formule sera à recopier vers la droite et vers le bas jusqu'en W19.

Comme apparemment c'est un exercice, je vous laisse un peu chercher la formule :

VB:

=SI(SOMMEPROD( (B5 >= (xxx-1) ) * (B5 <= (xxx+1) ) ) > zzz ; B5; "")

Il suffit de trouver xxx et zzz...

Pour la même chose en VBA:
il suffira de placer la formule ci-dessus dans les cellules N5:W19 puis de transformer les résultats de ces formules en valeurs.

Code:

Sub CelluleOK()
   With Feuil1
      .Range("n5").FormulaLocal = "=SI(SOMMEPROD( (B5 >= (xxx-1) ) * (B5 <= (xxx+1) ) ) > zzz ; yyy ; """")"
      .Range("n5").Copy
      .Range("n5:w19").PasteSpecial xlPasteFormulas
      .Range("n5:w19") = Range("n5:w19").Value
   End With
End Sub

Cliquez pour agrandir...

Sub comparai2nbresJJ()
    [n5:w19].Formula = "=IF(OR(COUNTIF($B$2:$K$2,B5),COUNTIF($B$2:$K$2,b5+1),COUNTIF($B$2:$K$2,b5-1)),b5,"""")"
    [n5:w19].Value = [n5:w19].Value
End Sub

​

album40 à dit:

Je veux identifier à quelle moment il faut utiliser les codes VBA ou formules.

Cliquez pour agrandir...

=SI(SOMMEPROD( (B5 >= ($B$2:$K$2-1)) * (B5 <= ($B$2:$K$2+1))  )>0;B5;"")

Sub CelluleOK()
   With Feuil1
      .Range("n5").FormulaLocal = "=SI(SOMMEPROD( (B5 >= ($B$2:$K$2-1)) * (B5 <= ($B$2:$K$2+1))  )>0;B5;"""")"
      .Range("n5").Copy
      .Range("n5:w19").PasteSpecial xlPasteFormulas
      .Range("n5:w19") = Range("n5:w19").Value
   End With
End Sub

album40 à dit:

Je veux identifier à quelle moment il faut utiliser les codes VBA ou formules.

Cliquez pour agrandir...

​