comparer uune plage de cellules

Question

Bonjour,

Je n'y arrive pas,

Je veux comparer le contenu de huit cellules avec le contenu 

de huit autres cellules. Le type de comparaison est le suivant : si dans les huit premières

cellules j'ai plus de trois cellules égales à celles des huit autres alors je lance une instruction.

Une fois la comparaison terminée et l'instruction lancée, je passe à la ligne suivante.

Les huit premières cellules sont ("A1:H1") et les huit autres ("I1:P1)

et ensuite ("A2:H2") et les huit autres ("I2:P2) ainsi de suite...

Merci

Bidouilleu_R · Answer

l'action a exécuter sera l'affichage d'un message.


Sub comparePlage()
' cette macro compare la plage A1H1 avec I1P1 puis
' elle compare la ligne suivante A2H2 avec I2P2

Dim c1 As Variant
Dim i As Integer
Dim j As Integer
Dim k As Integer
derlig = Range("a65635").End(xlUp).Row

For j = 1 To derlig
    For Each c1 In Range("A1:H1")
        For i = 9 To 15
            If c1.Value = Cells(j, i).Value Then
                k = k + 1
            End If
        Next i
    Next
        If k > 2 Then
            s = MsgBox("Nombre de valeurs trouvées : " & k, vbInformation, "informations")
            k = 0
            ' on exucete ce que l'on veut
        End If

Next j


End Sub

Comparer uune plage de cellules

1 réponse

Discussions similaires

Newsletters