Comparer uune plage de cellules
manu
-
Bidouilleu_R Messages postés 1209 Statut Membre -
Bidouilleu_R Messages postés 1209 Statut Membre -
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
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
A voir également:
- Comparer uune plage de cellules
- Somme de plusieurs cellules excel - Guide
- Verrouiller cellules excel - Guide
- Comparer prix amazon - Guide
- Image de plage pix ✓ - Forum Google Chrome
- Fusionner deux cellules excel - Guide
1 réponse
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
