Discussion :

[Tivert15]

BONSOIR, JE VEUX CONNAITRE LE NOMBRE DE CELLULES IDENTIQUES ENTRE DEUX LIGNES.
Dans le fichier en attaché, à la ligne 2 c'est la ligne que je veux valider versus les autres lignes de mon fichier.
Dans la colonnes jaune "BG" je viens inscrire le nombre de cellules identique sans compter les cellules vides.

J'ai placé manuellement les premier résultats.

je suis assez bon pour adapter le code VBA pour mes besoins mais pas encore pour en écrire..

Merci beaucoup.

[Theze]

Bonjour,

Une piste :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 
Function PlageCiblesIdentiques(PlageCibleOrigine As Range, PlageCible As Range) As String
 
    Dim TabloOrigine
    Dim Tablo
    Dim I As Integer
    Dim J As Integer
    Dim Chaine1 As String
    Dim Chaine2 As String
    Dim Retour As String
 
    Application.Volatile
 
    'utilise des tableaux
    TabloOrigine = PlageCibleOrigine
    Tablo = PlageCible
 
    'remplace les vides par des X
    For I = 1 To UBound(TabloOrigine, 2)
        If TabloOrigine(1, I) = "" Then TabloOrigine(1, I) = "X"
    Next I
 
    'puis concatène
    For I = 1 To UBound(TabloOrigine, 2): Chaine1 = Chaine1 & TabloOrigine(1, I): Next I
 
    'boucle
    For I = 1 To UBound(Tablo, 1) 'lignes
 
        For J = 1 To UBound(Tablo, 2) 'colonnes
            'remplace les vides par des X et concatène
            If Tablo(I, J) = "" Then Chaine2 = Chaine2 & "X" Else Chaine2 = Chaine2 & Tablo(I, J)
 
        Next J
 
        'effectue la comparaison, si bon, mémorise l'adresse de la ligne
        If InStr(Chaine1, Chaine2) <> 0 Then Retour = Retour & PlageCible.Rows(I).Address(0, 0) & "'"
 
        Chaine2 = ""
 
    Next I
 
    'supprime l'apostrophe de fin
    Retour = Left(Retour, Len(Retour) - 1)
 
    'passe à la fonction
    PlageCiblesIdentiques = Retour
 
End Function

utilisée de cette façon :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
=PlageCiblesIdentiques(A2:BD2;A3:BD37)

[Tivert15]

Merci Theze, pour la fonction,
Mais je crois que je n'ai pas été assez précis.

Pour chacune des lignes <a la colonnes "BG" je voudrais connaitre le nombre de match entre les 2 lignes et non ou les lignes sont identiques.

Lignes 2 vs 3
Lignes 2 vs 4
Lignes 2 vs 5 ect .

Aussi comme je disais je suis pas pire pour modifier les macros mais pas encore bon pour en écrire...

Merci

[Theze]

Bonjour,

Effectivement, j'avais mal compris !
Voici ce que tu demande (enfin, j'espère) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Function CellulesIdentiques(PlageOrigine As Range, PlageCible As Range) As Integer
 
    Dim TabloOrigine
    Dim Tablo
    Dim I As Integer
    Dim NBCel As Integer
 
    Application.Volatile
 
    'utilise des tableaux
    TabloOrigine = PlageOrigine
    Tablo = PlageCible
 
    'remplace les vides par des X
    For I = 1 To UBound(TabloOrigine, 2)
 
        If TabloOrigine(1, I) <> "" Then If TabloOrigine(1, I) = Tablo(1, I) Then NBCel = NBCel + 1
 
    Next I
 
    'passe à la fonction
    CellulesIdentiques = NBCel
 
End Function

A utiliser de cette façon en tirant vers le bas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
=CellulesIdentiques($A$2:$BD$2;A3:BD3)

[Tivert15]

Merci Theze, c'est parfais

Merci encore