comparaison de tableau automatiquement ?

Bonjour,

Dans A6:A10 colonne de données
Dans C5:G5 ligne de données
En C6 taper : =RECHERCHEV(C5;$A$6:$A$10;1;FAUX)
Recopier la formule vers la droite => G6

Si la formule renvoie #NA, la valeur n'existe pas.
=EQUIV(C5;$A$6:$A$10;0) fonctionne de la meme façon.

La formule suivante dira si la valeur existe ou pas.
=SI(ESTNA(EQUIV(C5;$A$6:$A$10;0));"n'existe pas";"existe")

Ca marche aussi avec les noms :
=SI(ESTNA(EQUIV(Z_horisontale;Z_verticale;0));"n'existe pas";"existe")
=RECHERCHEV(Z_horisontale;Z_verticale;1;FAUX)

Bonjour,

Sub essai()
x = EstCommun([x_horiz], [x_vert])
x2 = EstCommun2([x_horiz], [x_vert])
End Sub
Function EstCommun(champ1 As Range, champ2 As Range)
EstCommun = False
For Each c In champ1
For Each d In champ2
If c.Value = d.Value Then EstCommun = True
Next d
Next c
End Function

Function EstCommun2(champ1 As Range, champ2 As Range)
EstCommun2 = False
For Each c In champ1
If Not champ2.Find(c, LookIn:=xlValues, LookAt:=xlWhole) Is Nothing
Then EstCommun2 = True
Next c
End Function


JB

Bonjour,
j'ai deux zones nommée Z_horisontale(1ligne Xcolonnes) , et une autre
Z_verticale (X lignes, 1colonne)


existe-t-il une fonction capable de "comparer" ces deux zones, pour
dire si oui ou non
il y a des valeurs communes entre celles ci ?

Merci
José

Nb éléments communs:

=SOMME(SI(ESTNA(EQUIV(z_vert;z_horiz;0));0;1))
Valider avec Maj+Ctrl+Entrée

JB

Bonjour,
j'ai deux zones nommée Z_horisontale(1ligne Xcolonnes) , et une autre
Z_verticale (X lignes, 1colonne)


existe-t-il une fonction capable de "comparer" ces deux zones, pour
dire si oui ou non
il y a des valeurs communes entre celles ci ?

Merci
José

Bonjour José,

Cette macro indique si deux plages de cellules adjacentes
ont au moins un élément en commun :

Function commun(plage1 As Range, plage2 As Range) As String
For Each c1 In plage1
For Each c2 In plage2
If c1 = c2 Then t = t + 1
Next c2
Next c1
If t > 0 Then commun = "oui" Else commun = "non"
End Function

Serge



"Alfred WALLACE" <jose6a@gmail.com> a écrit dans le message de news: 1165565055.185227.82820@16g2000cwy.googlegroups.com...
Bonjour,
j'ai deux zones nommée Z_horisontale(1ligne Xcolonnes) , et une autre
Z_verticale (X lignes, 1colonne)


existe-t-il une fonction capable de "comparer" ces deux zones, pour
dire si oui ou non
il y a des valeurs communes entre celles ci ?

Merci
José

j'ai fini par écrire ceci :

trouve = False
Set plage = Nothing
Range("a1").Select
Set plage = Range(Selection, Selection.End(xlToRight)) '.Select

' Set plage = Selection
For Each c In plage

With Range("parametres!CHAMPS_MULTI_EVAL").Select
Set Rg = Nothing
Set Rg = [parametres!CHAMPS_MULTI_EVAL].Find(c.Value)
If Not Rg Is Nothing Then
chx_multiples = True
End If
End With
Next c

la selection, est horizontale, et la zone
[parametres!CHAMPS_MULTI_EVAL] est
verticale.
J'avais peur que la méthode .find (si c'est bien une méthode) ne
fonctionne pas, mais
apparament, elle trouve bien la c.value .


Merci pour ton aide, mais,je me rend compte que ta fonction EstCommun2
est
super avec ton :

If Not champ2.Find(c, LookIn:=xlValues, LookAt:=xlWhole) Is Nothing



Merci
José

Bonjour,

Sub essai()
x = EstCommun([x_horiz], [x_vert])
x2 = EstCommun2([x_horiz], [x_vert])
End Sub
Function EstCommun(champ1 As Range, champ2 As Range)
EstCommun = False
For Each c In champ1
For Each d In champ2
If c.Value = d.Value Then EstCommun = True
Next d
Next c
End Function

Function EstCommun2(champ1 As Range, champ2 As Range)
EstCommun2 = False
For Each c In champ1
If Not champ2.Find(c, LookIn:=xlValues, LookAt:=xlWhole) Is Nothi ng
Then EstCommun2 = True
Next c
End Function


JB